nvg

import PT_WF_NOTIFICATION:*;

class EmailTemplate
   /*
   Creates a new email template with the specified name. Email templates can be configured in 
     Main Menu > PeopleTools > Workflow > Notifications > Generic Templates 
   */
   method EmailTemplate(&templateNameParam As string);
   method AddTo(&emailParam As string);
   method AddCc(&emailParam As string);

nvg

WriteToLog(%ApplicationLogFence_Level1, "");

nvg

    ----  Menu Look-up
    SELECT SRCH.PORTAL_LABEL LABEL
       , NVL(SRCH.PORTAL_URI_SEG2, ' ') COMPNOENT
       , SRCH.PORTAL_OBJNAME
      --L1.PORTAL_LABEL,  L2.PORTAL_LABEL,  L3.PORTAL_LABEL,  
      --L4.PORTAL_LABEL,  L5.PORTAL_LABEL,  L6.PORTAL_LABEL
      ,'Main Menu > ' || L1.PORTAL_LABEL || decode(L1.PORTAL_REFTYPE, 'F', ' > ')
      || L2.PORTAL_LABEL  || DECODE(L2.PORTAL_REFTYPE, 'F', ' > ')
      || L3.PORTAL_LABEL  || DECODE(L3.PORTAL_REFTYPE, 'F', ' > ')
      || L4.PORTAL_LABEL  || DECODE(L4.PORTAL_REFTYPE, 'F', ' > ')

nvg

/**
  Utility to clean record from non-printable characters
*/
class RecordClean
   /**
      Cleans all text fields in the specified record from non-printable characters
   */
   method cleanRecord(&p_rec As Record);
   
   /**

nvg

Declare Function FunctionName PeopleCode RECORD.FIELD FieldChange;

nvg

/**
	Ensures that dropdown field ordering is maintained, overriding the default alpha order
    in PeopleSoft.
*/
class FieldSorter
   /**
     Reloads XLATS for the specified and and sets them in the load order
   */
   method sortXlats(&field As Field);
end-class;

nvg

Local number &z;
Local string &s = "";
For &z = 1 To &rec.FieldCount      
  &s = &s | " " | &rec.GetField(&z).Name;
  try
	&s = &s | "=" | &rec.GetField(&z).Value;
  catch Exception &err
	&s = &s | "=" | "[f%#k]";
  end-try;
End-For;

nvg

import TTS_UNITTEST:TestBase;

class Test extends TTS_UNITTEST:TestBase
   method Test();
   method Run();
   method Setup();
protected
   
private
   instance string &someValue;

nvg

method GetRec
   /+ &p_key as String, +/
   /+ Returns Record +/
   Local Record &result = CreateRecord(Record.MY_REC);
   Local string &sqlStr = "SELECT * FROM PS_MY_REC WHERE KEY = :1";
   SQLExec(&sqlStr, &p_key, &result);
   Return &result;
    
   /* - OR - */

nvg

SELECT A.PHI_DOMAIN_ID, A.PHI_CR_NUM, A.PHIOBJTYPE, A.PHIOBJID1, A.PHIOBJVALUE1, TO_CHAR(CAST((B.PHI_MIGR_DTTM) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF'), B.PHI_SOURCE_DB, B.PHI_TARGET_DB
  FROM PS_PHI_CR_OBJECT A, PS_PHI_CR_MIGR_REQ B
  WHERE ( A.PHI_DOMAIN_ID = B.PHI_DOMAIN_ID
     AND A.PHI_CR_NUM = B.PHI_CR_NUM
     AND A.PHIOBJTYPE IN ('RECORD','FIELD')
     AND B.PHI_MIGR_DTTM BETWEEN TO_DATE(:1,'YYYY-MM-DD') AND TO_DATE(:2,'YYYY-MM-DD') )