Routine: PSJPDIR

Package	Total	Call Graph
Inpatient Medications	3	$$ENDTC^PSGMI EN^PSJDPT ^PSJP
VA Fileman	2	^DIC ^DIR
Registration	1	(IN5,INP)^VADPT

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI EN^PSJDPT ^PSJP

VA Fileman

^DIC ^DIR

Registration

(IN5,INP)^VADPT

Package	Total	Caller Graph
Inpatient Medications	4	PSGAP PSGDS PSGPR PSJEXP

Package

Total

Caller Graph

Inpatient Medications

PSGAP PSGDS PSGPR PSJEXP

Entry Points

Name	Comments	DBIA/ICR reference
CHK	;* Check patient status *
G	;***Select by WARD GROUP
TM2HLP
LM	;Profile Type
ENL	;
P	;*** Select by Patient
DONE	;
GWP	; Ask for seletion by WARD GROUP,WARD or PATIENT.
W	;*** Select by WARD
RBPPN	;*** Sort by ROOM-BED or PATIENT
DICTM	;*** LooK up a team.
LCHK	;
STOP()	;
ADMTM	;*** Askif user want to sort by admin team
ENDPT	;* get patient *
ADMTM2	;

Name	Field # of Occurrence
^DIC	W+1, G+1, DICTM+3
^DIR	GWP+5, ADMTM+1, ADMTM2+2, RBPPN+3
$$ENDTC^PSGMI	CHK+3
EN^PSJDPT	ENDPT+2
^PSJP	P+2
IN5^VADPT	CHK+2
INP^VADPT	CHK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GWP+5
Function Call: WRITE	Prompt: !! Line Location: W+1
Function Call: WRITE	Prompt: !! Line Location: G+1
Function Call: WRITE	Prompt: !! Line Location: ADMTM2+2
Function Call: WRITE	Prompt: !!,"Enter the name of an Administration Team that you want",!,"to include on the report."," Enter ""ALL"" (or accept the",!,"default) to include all teams on the report.",! Line Location: TM2HLP+0
Function Call: WRITE	Prompt: !! Line Location: RBPPN+3
Function Call: READ	Timeout: DTIME Variable: PSJOL Line Location: ENL+1
Function Call: WRITE	Prompt: PSJOL="^" Condition for execution: '$T $C(7) S:'$T Line Location: ENL+1
Function Call: WRITE	Prompt: $P(" SHORT^ LONG","^",PSJOL="L"+1) Line Location: LCHK+2
Function Call: WRITE	Prompt: $P(X,PSJOL,2) Line Location: LCHK+4
Function Call: WRITE	Prompt: !!?2,"Enter 'SHORT' (or 'S', or press the RETURN key) to exclude this patient's",!,"discontinued and expired orders in the following profile. Enter 'LONG' (or 'L') to include those orders." Line Location: LM+1
Function Call: WRITE	Prompt: " Enter 'NO' (or 'N') to bypass the profile com-",!,"pletely. Enter '^' if you wish to go no further with this patient." Line Location: LM+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ENDPT+1
Function Call: WRITE	Prompt: !!,"Select "_$S($D(PSGDICA):PSGDICA_" ",1:"")_"PATIENT: " Line Location: ENDPT+1
Function Call: WRITE	Prompt: $C(7),!!?3,"PATIENT HAS NEVER BEEN ADMITTED." Line Location: CHK+2
Function Call: WRITE	Prompt: $C(7),!!?3,"PATIENT IS FOUND TO BE D",$P("ISCHARG^ECEAS",U,X+1),"ED AS OF ",$$ENDTC^PSGMI(+VAIP(3)),"." Line Location: CHK+3
Routine Call	DIC Line Location: W+1 G+1 DICTM+3
Routine Call	DIR Line Location: GWP+5 ADMTM+1 ADMTM2+2 RBPPN+3

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls
^PS(57.5 - [#57.5]	Classic Fileman Calls

Name	Line Occurrences
$$STOP	GWP+5, W+2, G+2, ADMTM+1, ADMTM+6, ADMTM2+2, RBPPN+3
@(	GWP+6
ADMTM	W+3
ADMTM2	ADMTM+6
DICTM	ADMTM2+3
DONE	ENDPT+1
ENDPT	ENDPT+3, CHK+2, CHK+3
GWP	GWP+6
LCHK	ENL+1
LM	LCHK+1
RBPPN	GWP+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DONE+1!
>> DFN	CHK+1*
DIC	W+1!, G+1!, DICTM+2!*, ENDPT+1!, ENDPT+4!, DONE+1!
DIC("A"	W+1, G+1, DICTM+3*
DIC(0	W+1, G+1, DICTM+2, DICTM+3
DIK	DONE+1!
DIR	GWP+1!, GWP+5!, ADMTM+1~, ADMTM2+1!, RBPPN+2!
DIR("?"	GWP+2, GWP+3, GWP+4, ADMTM+1, ADMTM2+1*
DIR("A"	GWP+1, ADMTM+1, ADMTM2+1, RBPPN+2
DIR("B"	ADMTM+1, ADMTM2+1, RBPPN+2*
DIR(0	GWP+1, ADMTM+1, ADMTM2+1, RBPPN+2
>> DIRUT	STOP+2
DTIME	ENL+1, ENDPT+1
>> DTOUT	P+3, ADMTM2+4, STOP+2
>> DUOUT	P+3, ADMTM2+4, STOP+2
>> PFLG	P+2, ADMTM2+4, DICTM+3
>> PPN	CHK+1*
PSGDICA	P+1~, P+2*, P+3, ENDPT+1
PSGP	P+2, ENDPT+1!, CHK+1
PSGP(0	P+2
PSGPAT	P+1~
>> PSGWD	P+2*
PSJACNWP	P+1~*
>> PSJOL	ENL+1, LCHK+1, LCHK+2, LCHK+3, LCHK+4
>> PSJPCAF	CHK+2*
>> PSJPWD	P+2, ENL+1, LCHK+2
>> PSJPWDO	P+2*
PSJSEL	GWP+1!
PSJSEL("P"	P+2*
PSJSEL("RBP"	RBPPN+3*
PSJSEL("SELECT"	GWP+6*
PSJSEL("TM"	ADMTM+6, ADMTM2+2, DICTM+3
PSJSEL("W"	W+3*, DICTM+2
PSJSEL("WG"	GWP+6, G+4, G+5
>> PSJSTOP	GWP+1, GWP+5, GWP+6, P+3, W+2, W+3, G+2, G+4, G+5, ADMTM2+4 , STOP+2*, STOP+3
>> Q	LCHK+3*
U	CHK+1, CHK+3
>> VA200	CHK+1*
>> VAIN(4	CHK+1
>> VAIP("D"	CHK+2*
>> VAIP(13	CHK+2
>> VAIP(3	CHK+3
>> VAIP(4	CHK+3
>> X	G+2, ADMTM+6, LCHK+4, ENDPT+1, CHK+3*
Y	GWP+5, GWP+6, P+3, W+2, W+3, G+2, G+5, ADMTM+1, ADMTM2+2, ADMTM2+4 , DICTM+3, RBPPN+3, ENDPT+1!*, ENDPT+3, CHK+1
Y(0	DICTM+3

Customize PDF page

Package: Inpatient Medications

Routine: PSJPDIR

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: