Routine: PSGCAP

Package	Total	Call Graph
Inpatient Medications	7	ENQ^PSGCAP0 ENP^PSGGAO $$ENDD^PSGMI ^PSGSEL (ENCV,ENKV)^PSGSETU ENDEV^PSGTI $$MEDTYPE^PSJMDIR
VA Fileman	4	NOW^%DTC ^DIC D^DIQ ^DIR

Package	Total	Caller Graph
Inpatient Medications	3	PSGCAP0 PSJU AP-2 PSJU OR AP-2

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;
C	;
Q2	;
GDT	;
DTM	;
G	; get ward group
P	; get patient
ORS
CDIC	;
START	;
DONE	;
W	; get ward
ENLM	;Entry point for PSJ LM AP2 protocol
LDIC	;
L	;
ORS1

External References

Name	Field # of Occurrence
NOW^%DTC	ORS1
^DIC	G+1, CDIC+1, LDIC+1, W+1
D^DIQ	DTM+1
^DIR	GDT+2, C+2, L+2
ENQ^PSGCAP0	ORS1+6
ENP^PSGGAO	P+2
$$ENDD^PSGMI	GDT+1
^PSGSEL	START+2
ENCV^PSGSETU	PSGCAP+4, ENLM+3
ENKV^PSGSETU	DONE+1
ENDEV^PSGTI	ORS1+5
$$MEDTYPE^PSJMDIR	ORS1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"No patient(s) selected. Option terminated." Line Location: START+2
Function Call: READ	Timeout: DTIME Variable: PSGAPS Line Location: ORS+1
Function Call: WRITE	Prompt: !!,"Sort Action Profiles by (T)eam or Treating (P)rovider? T// " Line Location: ORS+1
Function Call: READ	Timeout: DTIME Variable: PSGAPO Line Location: ORS1+1
Function Call: WRITE	Prompt: !!,"Print (A)ll active orders, or (E)xpiring orders only? A// " Line Location: ORS1+1
Function Call: WRITE	Prompt: !,"...this may take a few minutes...(you really should QUEUE this report)..." Line Location: ORS1+6
Function Call: WRITE	Prompt: ! Line Location: G+1
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: ! Line Location: L+2
Function Call: WRITE	Prompt: ! Line Location: W+1
Function Call: WRITE	Prompt: !!?2,"Enter a ",N," date. If a time is not entered for the ",N," date, the",!,$S(N["R":"beginning",1:"end")," of the day is assumed and used." Line Location: DTM+2
Function Call: WRITE	Prompt: !?2,"If you wish to enter a ",$S(N["R":"start",1:"stop")," date of ",Y,", you must enter a TIME of day",!,"of ",T," or greater. Any date after ",Y," does not need time entered.",! Line Location: DTM+3
Function Call: WRITE	Prompt: " (TEAM)" Line Location: Q1+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: Q1+3
Function Call: WRITE	Prompt: !!?2,"Enter 'T' (or press RETURN) to sort and print patients by TEAM. Enter 'P'",!,"to sort and print patients by treating PROVIDER." Line Location: Q1+4
Function Call: WRITE	Prompt: $P(X,PSGAPS,2) Line Location: Q1+6
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: Q1+7
Function Call: WRITE	Prompt: " (ALL)" Line Location: Q2+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: Q2+3
Function Call: WRITE	Prompt: !!?2,"Enter 'A' (or press RETURN) to print ALL ACTIVE orders for the patient(s)",!,"selected. Enter 'E' to print only orders that will EXPIRE within the date",!,"range selected for the patient(s) selected." Line Location: Q2+4
Function Call: WRITE	Prompt: $P(X,PSGAPO,2) Line Location: Q2+6
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: Q2+7
Routine Call	DIC Line Location: G+1 CDIC+1 LDIC+1 W+1
Routine Call	DIR Line Location: GDT+2 C+2 L+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	DONE+4!

Label References

Name	Line Occurrences
@(	START+2
DONE	START+2, ORS1+5, ENLM+5
GDT	ORS1
ORS1	ORS, ENLM+4
Q1	ORS+1
Q2	ORS1+1
START	START+2, ORS1, ORS1+2, ORS1+3, ORS1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ORS1
CA	DONE+1!
>> CG	LDIC+1*
>> CL	CDIC+1*
CNTR	DONE+1!, P+2*
>> DFN	ENLM+4
DIAG	DONE+1!
DIC	G+1!, CDIC+1!, LDIC+1!, W+1!
DIC("A"	G+1, W+1
DIC(0	G+1, CDIC+1, LDIC+1, W+1
DIR	GDT+1!, GDT+2!, C+1!, L+1!
DIR("?"	GDT+2, C+2, L+2*
DIR("A"	GDT+2, C+1, L+1*
DIR("B"	GDT+1*
DIR(0	GDT+2, C+1, L+1*
>> DIRUT	ORS1, GDT+2
DO	DONE+1!
DRG	DONE+1!
DTIME	ORS+1, ORS1+1
FD	DONE+1!
IO("Q"	ORS1+5
LQ	DONE+1!
MINDT	GDT+1~*, GDT+2
N	ORS1*, DONE+1!, GDT+1, GDT+2, GDT+3, DTM+2, DTM+3
ND	DONE+1!
ND2	DONE+1!
NF	DONE+1!
PAGE	DONE+1!
PDOB	DONE+1!
PN	DONE+1!
PND	DONE+1!
>> POP	ORS1+5
PPAGE	PSGCAP+2~, START+1, ENLM+1~, ENLM+2
PSEX	DONE+1!
PSGADR	DONE+3!
PSGALG	DONE+3!
PSGAP	START+1*, DONE+1!
PSGAPFD	DONE+2!, GDT+3*
PSGAPO	ORS1+1, ORS1+2, DONE+2!, Q2+1, Q2+2, Q2+3, Q2+4, Q2+5, Q2+6*
PSGAPS	ORS, ORS+1, ORS1, DONE+2!, Q1+1, Q1+2, Q1+3, Q1+4, Q1+5, Q1+6 , Q1+7, ENLM+4
PSGAPSD	DONE+2!, GDT+1, GDT+3*
PSGAPWD	START+1, DONE+1!, G+2, W+1, ENLM+4
PSGAPWDN	START+1, DONE+1!, G+2, W+1, ENLM+4
PSGAPWG	START+1, ORS, DONE+1!, G+1, G+2, ENLM+4
PSGAPWGN	START+1, DONE+1!, G+1, G+2, ENLM+4
PSGDICA	DONE+1!, P+2*, P+3!
>> PSGDT	ORS1*, GDT+1, GDT+3, DTM+1
PSGEXPDT	DONE+3!
PSGMTYPE	ORS1+3*, DONE+3!
>> PSGP	START+1*, P+2, ENLM+4
>> PSGPAS	Q2+7*
PSGPAT	ORS+1, DONE+1!, P+1!, P+2, P+3, ENLM+4
PSGPAT(	P+2, ENLM+4
PSGPTMP	PSGCAP+2~, START+1, ENLM+1~, ENLM+2
PSGSS	START+2, ORS+1, DONE+1!, ENLM+4*
PSGSSH	START+1*, DONE+2!
>> PSGTIR	ORS1+5*
PSGWD	ORS1+3, DONE+2!, W+1, P+1!, P+2
PSJACNWP	DONE+2!
PSJDLW	DONE+2!
PSJJORD	DONE+1!
PSJNEW	PSGCAP+2~, ENLM+1~
>> PSJNKF	ENLM+5*
PSJOPC	DONE+2!
>> PSJPWD	P+2
PSJPWDO	DONE+2!, P+1!, P+2*
PSJSI	DONE+3!
PSJSTOP	DONE+3!
PSJTEAM	DONE+3!
PST	DONE+3!
>> Q	Q1+5, Q2+5
QST	DONE+3!
RB	DONE+2!
RTE	DONE+2!
S1	DONE+2!
SD	DONE+2!
SI	DONE+2!
SM	DONE+2!
ST	DONE+2!
STP	DONE+2!
STRT	DONE+2!
STT	DONE+2!
>> T	DTM+1*, DTM+3
WS	DONE+2!
WT	DONE+2!
>> X	ORS1+4, GDT+3, G+1, CDIC+2, LDIC+2, Q1+6, Q2+6*
>> XQUIT	PSGCAP+4, ENLM+3
>> Y	START+2, ORS1+3, GDT+3, G+1, G+2, CDIC+1, LDIC+1, W+1, P+3, DTM+1* , DTM+3*
>> Y(0	G+1, W+1
>> ZTDESC	ORS1+5*
ZTOUT	DONE+2!
ZTSAVE	ORS1+4!
ZTSAVE(	ORS1+4*

Customize PDF page

Package: Inpatient Medications

Routine: PSGCAP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: