Routine: PSJMDIR

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Inpatient Medications	7	PSGAP0 PSGCAP PSGEUDD PSGMAR PSGMMAR PSJMDIR1 PSJMDWS

Entry Points

Name	Comments	DBIA/ICR reference
STDATE()	;*** Ask for starting date and time
ENDATE(PSGTMP,PSGTMP1)	;*** Ask for eding date and time
PRN()	;
RBADM	;*** Sort by PATIENT, ROOM-BED or ADMIN TIME
STOP()	;
RBPPN	;*** Sort by ROOM-BED or PATIENT(when selected by WARD).
DICTM	;*** LooK up a team.
MEDTYPE(PSGMARWD)	;*** Ask for Med choices
ADMTM	;*** Askif user want to sort by admin team
ADMTM2	;

Name	Field # of Occurrence
^DIC	DICTM+3
^DIR	MEDTYPE+10, STDATE+2, ENDATE+4, PRN+4, ADMTM+6, ADMTM2+1, RBADM+5, RBPPN+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: MEDTYPE+10
Function Call: WRITE	Prompt: !! Line Location: STDATE+2
Function Call: WRITE	Prompt: !! Line Location: ENDATE+4
Function Call: WRITE	Prompt: !! Line Location: PRN+4
Function Call: WRITE	Prompt: ! Line Location: ADMTM2+1
Function Call: WRITE	Prompt: ! Line Location: RBADM+5
Function Call: WRITE	Prompt: ! Line Location: RBPPN+4
Routine Call	DIC Line Location: DICTM+3
Routine Call	DIR Line Location: MEDTYPE+10 STDATE+2 ENDATE+4 PRN+4 ADMTM+6 ADMTM2+1 RBADM+5 RBPPN+4

Name	Line Occurrences (* Changed, ! Killed)
^PS(59.6 - [#59.6]	MEDTYPE+7

Name	Line Occurrences
$$STOP	MEDTYPE+11, STDATE+3, ENDATE+5, PRN+5, ADMTM+6, ADMTM+11, ADMTM2+1, RBADM+5, RBPPN+4
ADMTM2	ADMTM+11
DICTM	ADMTM2+2

Name	Field # of Occurrence
DIC	DICTM+2!*
DIC("A"	DICTM+3*
DIC(0	DICTM+2, DICTM+3
DIR	MEDTYPE+4!, STDATE+2!, ENDATE+2!, PRN+2!, ADMTM+3!, ADMTM2+1!, RBADM+2!, RBPPN+2!
DIR("?"	MEDTYPE+5, MEDTYPE+6, MEDTYPE+8, MEDTYPE+9, STDATE+2, ENDATE+3, PRN+3, ADMTM+4, ADMTM+5, ADMTM2+1 , RBADM+3, RBADM+4, RBPPN+3*
DIR("A"	MEDTYPE+4, STDATE+2, ENDATE+2, PRN+2, ADMTM+3, ADMTM2+1, RBADM+2, RBPPN+2
DIR("B"	MEDTYPE+7, PRN+2, ADMTM+3, ADMTM2+1, RBADM+2, RBPPN+2
DIR(0	MEDTYPE+4, STDATE+2, ENDATE+2, PRN+2, ADMTM+3, ADMTM2+1, RBADM+2, RBPPN+2
>> DIRUT	STOP+2
>> DTOUT	ADMTM2+3, STOP+2
>> DUOUT	ADMTM2+3, STOP+2
>> PFLG	ADMTM2+3, DICTM+3*
PSGMARWD	MEDTYPE~, MEDTYPE+7
>> PSGRBADM	RBADM+5*
>> PSGRBPPN	RBPPN+4*
>> PSGTM	ADMTM+2, ADMTM+12
>> PSGTM(	DICTM+3*
>> PSGTM(0	ADMTM+12
>> PSGTMALL	ADMTM+2, ADMTM+11, ADMTM2+1
PSGTMP	ENDATE~, ENDATE+2
PSGTMP1	ENDATE~, ENDATE+2
>> PSGWD	DICTM+2
>> PSJSTOP	ADMTM2+3, STOP+2, STOP+3
>> X	ADMTM+11
XTYPE	MEDTYPE+7~*
>> Y	ADMTM+6, ADMTM2+1, ADMTM2+3, DICTM+3, RBADM+5, RBPPN+4
>> Y(0	DICTM+3