Routine: PSGPR

Information

PSGPR ;BIR/CML3-PATIENT PROFILE ;29-May-2012 14:31;PLS

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Inpatient Medications	12	(,BOT,ENPR)^PSGO ENVO^PSGOE0 (ENGORD,ENL)^PSGOU ^PSGSEL (ENCV,ENKV)^PSGSETU ENDEV^PSGTI L^PSGVBW EN2^PSGVW (ALC,ENA)^PSGVW0 ^PSJAC (G,P,RBPPN,W)^PSJPDIR READ^PSJUTL
VA Fileman	2	^DIC ^DIR
IHS Changes To Pharmacy	1	SETPTCX^APSPFUNC
Kernel	1	^%ZISC
Registration	1	^VADPT

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Inpatient Medications	4	PSGOE5 PSJU OR PAT PR PSJU OR PR PSJU PR

Entry Points

Name	Comments	DBIA/ICR reference
C	;
ENDEV	;
ENLM
PW	;
G	; get ward group
P	; get patient
PC
PP	;
CDIC	;
PP0	;
L	;
ENQ	;
PP1	;
SET	;
DONE	;
PG	;
W	; get ward
GO	;
PH	;
ENOR
PL

External References

Name	Field # of Occurrence
^%ZISC	ENQ+2
SETPTCX^APSPFUNC	PP0+1
^DIC	CDIC+1
^DIR	GO+2, C+2, PP1+3
^PSGO	PW+3
BOT^PSGO	PP0+6
ENPR^PSGO	PP0+2
ENVO^PSGOE0	PW+3
ENGORD^PSGOU	PP0+2
ENL^PSGOU	PSGPR+18, ENLM+4
^PSGSEL	PSGPR+11
ENCV^PSGSETU	PSGPR+8, ENLM+2
ENKV^PSGSETU	DONE+1
ENDEV^PSGTI	ENDEV+2
L^PSGVBW	L+1
EN2^PSGVW	PP1+2
ALC^PSGVW0	GO+3
ENA^PSGVW0	PP1+2
^PSJAC	PG+4, PW+3, SET+2, ENLM+4
G^PSJPDIR	PSGPR+12
P^PSJPDIR	PSGPR+12
RBPPN^PSJPDIR	PSGPR+15
W^PSJPDIR	PSGPR+12
READ^PSJUTL	PW+3, PP0+3, ENLM+7
^VADPT	ENLM+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GO+2
Function Call: READ	Timeout: DTIME Line Location: GO+3
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: ! Line Location: PP1+3
Function Call: WRITE	Prompt: !!?2,"Enter a 'P' to print ONLY the PROFILE of orders for this patient. Enter an",!,"'E' to print ONLY the EXPANDED VIEW of the orders for this patient. Enter a",!,"'B' to have BOTH the profile (first) and the expanded views print." Line Location: PH+1
Function Call: WRITE	Prompt: " Enter an '^'to exit." Line Location: PH+2
Routine Call	DIC Line Location: CDIC+1
Routine Call	DIR Line Location: GO+2 C+2 PP1+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	PG+1
^DPT - [#2]	PG+3, PW+2, PC+1, ENLM+3
^DPT("CN"	PG+2, PW+2
^PS(53.1 - [#53.1]	PC+1
^PS(57.5 - [#57.5]	PG+1
^PS(57.7 - [#57.7]	PW+5, SET+1
^PS(57.8 - [#57.8]	PL
^SC - [#44]	PC
^TMP("PSG"	PP0+3, PP0+5, PP0+6!
^TMP("PSGPR"	DONE+1!, ENQ+1!, PG+3, PG+4, PG+5, PW+6, PC+3, SET+2, SET+3
^TMP("PSJSELECT"	PSGPR+11!

Label References

Name	Line Occurrences
@(	PSGPR+18, ENQ+2
DONE	ENDEV+2, ENQ+3, ENLM+7
ENDEV	GO+1
GO	PSGPR+18, ENLM+6
PC	PL
PP0	PG+5, PW+6, PC+3, PP+1
PP1	PP0+5
SET	PW+4, PW+5, PC+2

Naked Globals

Name	Field # of Occurrence
^(0	PG+1, PC

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	PSGPR+5~
AND	DONE+1!
AT	DONE+1!, GO+3, PP1+2
ATM	ENQ+2~
C	DONE+1!
CA	DONE+1!
>> CG	PL
>> CL	CDIC+1, PL, PC, PC+1
CONT	PSGPR+5~
>> DFN	ENOR*, ENLM+3, ENLM+6
DIC	CDIC+1!*
DIC(0	CDIC+1*
DIR	GO+2!, C+1!
DIR("?"	GO+2, C+2
DIR("A"	GO+2, C+1
DIR("B"	GO+2*
DIR(0	GO+2, C+1, PP1+3*
>> DIRUT	PP1+3
DOB	DONE+1!
DRGI	DONE+1!
DTIME	GO+3
FQC	DONE+1!
HDT	DONE+2!
IO	ENQ+2, PP0+2
IO("Q"	ENDEV+2
IO(0	ENQ+2
IOF	ENQ+2
IOST	ENQ+2
LD	PSGPR+5~
LN2	PSGPR+5~
MF	DONE+1!
ND	DONE+1!
NF	DONE+1!
O	DONE+1!
OD	DONE+2!
ON	DONE+1!
>> ORVP	ENOR
PAT	PSGPR+5~, P+1~, PP+1
PDRG	DONE+2!
PFLG	PSGPR+5~
PG	DONE+1!
PN	DONE+1!
>> POP	ENDEV+2
PPAGE	PSGPR+5~, PSGPR+10, PSGPR+18, ENLM~, ENLM+1*
PRI	DONE+1!
PSGAPTM	DONE+2!
PSGAPTM(	W+2*
PSGLI	PSGPR+4~
PSGODT	DONE+2!
PSGOE	PSGPR+4~
PSGOEEWF	PSGPR+4~
PSGOEPRF	PSGPR+5~, DONE+1, ENDEV+2, ENQ+3, ENLM~
PSGOH	PSGPR+4~
PSGOL	PSGPR+18, DONE+2!, ENLM+4
PSGON	DONE+1!, PW+3
PSGONC	DONE+1!, PW+3*
>> PSGONF	PW+3*
PSGONR	DONE+1!, PW+3*
PSGONV	DONE+1!, PW+3*
PSGORD	DONE+1!, PP1+2*
PSGOS	DONE+2!
>> PSGP	PSGPR+10, PSGPR+18, P+1, PG+2, PG+3, PG+4, PG+5, PW+2, PW+6, PC+1* , PC+3, SET+2, SET+3, PP+1, PP0+1, ENOR*
>> PSGP(	P+1, PP+1, ENLM+6
>> PSGP(0	PG+4, SET+2, ENLM+6!
PSGPATM	DONE+2!, PW+4
PSGPATM(	PW+1*, PW+5
PSGPATM("ALL"	PW+5
PSGPR	PSGPR+10, DONE+2!, ENQ+2, PW+3, PP0+3, PP0+6, PP1+3
PSGPRA	DONE+2!, GO+1, GO+3, GO+4, PP1+2
PSGPRF	PW+3*!
PSGPRP	DONE+2!, GO+1, GO+2, GO+3, PW+3, PP0+2
PSGPRWD	PSGPR+10, DONE+2!, W+1, PG+1, PW+5, SET+1, ENLM+5
PSGPRWDN	PSGPR+10, DONE+2!, W+1, PG+1, PG+2, PG+3, PG+4, PW+2, ENLM+5
PSGPRWG	PSGPR+10, DONE+2!, G+1, PG+1, ENLM+5*
PSGPRWGN	PSGPR+10, DONE+2!, G+1, ENLM+5*
PSGPTMP	PSGPR+5~, PSGPR+10, PSGPR+18, ENLM~, ENLM+1*
PSGSEL	DONE+1!
PSGSS	PSGPR+11, PSGPR+17, PSGPR+18, DONE+2!, GO+1, ENQ+2, PP0+3, ENLM+5
PSGSSH	PSGPR+10*, DONE+2!
>> PSGTIR	ENDEV+1*
PSGVBY	ENQ+2!
PSGWD	PSGPR+4~
PSGX	PG+5~, PW+6~, PC+3~*
PSJACNWP	PW+3~*
PSJNEW	PSGPR+5~, ENLM~
>> PSJNKF	ENLM+7*
PSJOPC	PSGPR+7, DONE+2!, ENLM+1
PSJPWDO	PSGPR+4~
PSJSEL	PSGPR+11!, DONE+2!
PSJSEL("P"	PSGPR+17, P+1, ENLM+3*
PSJSEL("RBP"	ENQ+2
PSJSEL("SELECT"	PSGPR+10, PSGPR+11, PSGPR+12, PSGPR+15, GO+1, ENLM+3
PSJSEL("TM"	W+2, PW+1
PSJSEL("W"	W+1
PSJSEL("WG"	G+1
PSJSTOP	PSGPR+4~, PSGPR+11*, PSGPR+14, PSGPR+16
PSJTEAM	PSGPR+4~
PX	DONE+1!
>> Q	GO+3
QFLG	DONE+2!
RB	ENQ+2~, PG+3, PW+2, PW+5, PC+1, SET+1, SET+3
RBP	ENQ+2~*, PG+3, PG+4, SET+2, SET+3
RCT	DONE+2!
RF	DONE+2!
S1	DONE+2!, PP0+4, PP0+5, PP1+2, PP1+3*
S2	DONE+2!, PP0+4, PP0+5, PP1+3*
S3	DONE+2!, PP0+4, PP0+5, PP1+2, PP1+3*
S4	DONE+2!
SD	DONE+2!
SLS	DONE+2!
SSN	DONE+2!
TF	DONE+2!
TM	DONE+2!, W+2, PW+1, PW+2, PW+5, PC+1, SET+1, SET+2, SET+3
U	ENLM+3
UD	DONE+2!
UDU	DONE+2!
WD	PSGPR+18*, DONE+2!
>> WDN	PC*
WDP	DONE+2!
>> WG	PSGPR+18*
WT	DONE+2!
>> X	ENDEV+1, CDIC+2, PG+5, PW+3, PW+6, PC+3, PP+1, PP0+4, PP0+6, PP1+3*
>> XQUIT	PSGPR+10, ENLM+2
Y	PSGPR+11!, PSGPR+17, PSGPR+18, GO+2, CDIC+1
>> ZTDESC	ENDEV+1*
ZTOUT	DONE+2!
ZTSAVE	ENDEV+1!
ZTSAVE(	ENDEV+1*
ZTSK	DONE+2!

Customize PDF page

Package: Inpatient Medications

Routine: PSGPR

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: