Routine: PSGMAR

Call Graph Total: 17

Package	Total	Call Graph
Inpatient Medications	12	$$EN^PSGCT ENP^PSGGAO ENKV^PSGLOI ^PSGMAR0 ^PSGMAR1 $$ENDTC2^PSGMI MARFORM^PSGMUTL ENDPT^PSGP ^PSGSEL (ENCV,ENKV)^PSGSETU ENDEV^PSGTI ($$MEDTYPE,ADMTM,RBPPN)^PSJMDIR
VA Fileman	4	^%DT (C,NOW)^%DTC ^DIC ^DIR
Kernel	1	^%ZISC

Package

Total

Call Graph

$$EN^PSGCT ENP^PSGGAO ENKV^PSGLOI ^PSGMAR0 ^PSGMAR1 $$ENDTC2^PSGMI MARFORM^PSGMUTL ENDPT^PSGP
^PSGSEL (ENCV,ENKV)^PSGSETU ENDEV^PSGTI ($$MEDTYPE,ADMTM,RBPPN)^PSJMDIR

VA Fileman

^%DT (C,NOW)^%DTC ^DIC ^DIR

Kernel

^%ZISC

Package	Total	Caller Graph
Inpatient Medications	3	PSGOE5 PSJU 24H MAR PSJU MAR

Package

Total

Caller Graph

Inpatient Medications

PSGOE5 PSJU 24H MAR PSJU MAR

Entry Points

Name	Comments	DBIA/ICR reference
C	;
EN	;
ENLM	;
DH	;
G	; get ward group
P	; get patient
BH	;
CDIC	;
DEV	; ask print device and queue if asked to
L	;
ENQ	; when queued
DONE	;
W	; get ward
SHTH	;
ENDATE	; get start date
LDIC	;
OUT

External References

Name	Field # of Occurrence
^%DT	ENDATE+1
C^%DTC	ENDATE+6
NOW^%DTC	ENDATE+9
^%ZISC	ENQ+6
^DIC	G+1, W+1, CDIC+1, LDIC+1
^DIR	C+4, L+2
$$EN^PSGCT	ENDATE+4
ENP^PSGGAO	P+1
ENKV^PSGLOI	DONE+8
^PSGMAR0	ENQ+2
^PSGMAR1	ENQ+2
$$ENDTC2^PSGMI	ENDATE+8
MARFORM^PSGMUTL	EN+4
ENDPT^PSGP	P+1
^PSGSEL	ENDATE+10
ENCV^PSGSETU	EN+3
ENKV^PSGSETU	DONE+1
ENDEV^PSGTI	DEV+5
$$MEDTYPE^PSJMDIR	ENDATE+11
ADMTM^PSJMDIR	W+2
RBPPN^PSJMDIR	G+5, W+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Line Location: EN+5
Function Call: WRITE	Prompt: " (Both)" Line Location: EN+6
Function Call: WRITE	Prompt: $S(X="C":"ontinuous",X="P":"RN",1:"oth") Line Location: EN+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: ENDATE+1
Function Call: WRITE	Prompt: !!,"Enter START DATE/TIME for 24 hour MAR: " Line Location: ENDATE+1
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: ENDATE+1
Function Call: WRITE	Prompt: $C(7),!!?5,"(No date selected for MAR run.)" Line Location: ENDATE+2
Function Call: WRITE	Prompt: $C(7),!!?5,"(No patient(s) selected for MAR run.)" Line Location: OUT+0
Function Call: WRITE	Prompt: ! Line Location: G+1
Function Call: WRITE	Prompt: ! Line Location: C+4
Function Call: WRITE	Prompt: ! Line Location: L+2
Function Call: WRITE	Prompt: !!," Enter a 'Y' to print BLANK (no data) MARs for the patient(s) you select.",!,"Enter an 'N' (or press the RETURN key) to print MARs complete with orders.",!,"Enter an '^' to exit this option now." Line Location: BH+1
Function Call: WRITE	Prompt: !!?2,"Enter the START DATE of the 24 hour period for which this MAR is to print.",!,"Unless the BLANK MARs are selected, all orders for the patient(s) selected that",!,"are (or were) active during the date range selected will print." Line Location: DH+1
Function Call: WRITE	Prompt: !?2,"Time is not required. If time is not entered, the default time is used (if",!,"found in the site parameters). If the default time is not found, the start of",!,"the day is used." Line Location: DH+2
Function Call: WRITE	Prompt: !!?2,"Enter 'C' to print ONLY CONTINUOUS blank sheets for the patients selected.",!,"Enter 'P' to print ONLY PRN sheets. Enter 'B' (or press RETURN) to print BOTH",!,"sheets for each patient." Line Location: SHTH+1
Routine Call	DIC Line Location: G+1 W+1 CDIC+1 LDIC+1
Routine Call	DIR Line Location: C+4 L+2

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

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

Name	Line Occurrences
@(	ENDATE+10
DEV	ENDATE+12
DH	ENDATE+1
DONE	EN+3, EN+4, EN+6, ENDATE+2, ENDATE+12, ENQ+6
EN	ENLM+1
ENDATE	EN+5
OUT	ENDATE+10, ENDATE+11
SHTH	EN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENDATE+9
>> %DT	ENDATE+1*
AD	DONE+2!
ASTERS	DONE+2!
BD	DONE+2!
BLN	DONE+2!
C	DONE+2!
>> CG	LDIC+1*
>> CL	CDIC+1*
CNTR	DONE+2!, P+1*
DA1	DONE+2!
DA2	DONE+2!
DAO	DONE+2!
DFN	DONE+2!
DIC	G+1!, W+1!, CDIC+1!, LDIC+1!
DIC("A"	G+1, W+1
DIC(0	G+1, W+1, CDIC+1, LDIC+1
DIR	C+3!, L+1!
DIR("?"	C+4, L+2
DIR("A"	C+3, L+1
DIR(0	C+3, L+1
DRG	DONE+2!
DRGI	ENQ+1~
DRGN	ENQ+1~
DRGT	ENQ+1~
DTIME	EN+5, ENDATE+1
DX	DONE+2!
EXPIRE	DONE+2!
F	ENQ+1~
FD	DONE+2!
FT	ENDATE+4*, ENDATE+5, ENDATE+7, DONE+2!
HT	DONE+7!
HX	DONE+2!
IO	ENQ+2, DEV+6
IO("Q"	ENDATE+12, DEV+6
L	DONE+2!
LN1	DONE+2!
LN14	DONE+2!
LN2	DONE+2!
LN3	DONE+2!
LN4	DONE+2!
LN5	DONE+2!
LN6	DONE+2!
LN7	DONE+2!
MOS	DONE+2!
MSG1	DONE+2!
MSG2	DONE+2!
ND2	DONE+2!
NG	DONE+2!
ON	DONE+7!
ONHOLD	DONE+7!
OPST	DONE+2!
P	ENQ+1~
PAGE	DONE+2!
PN	DONE+2!
PND	DONE+2!
PNN	DONE+2!
>> POP	ENDATE+12, DEV+5
PPN	DONE+2!
PRB	DONE+2!
PSEX	DONE+2!
PSGADR	DONE+3!
PSGALG	DONE+3!
>> PSGCLNC	C+2, CDIC+1
PSGD	DONE+3!
PSGDICA	P+1*, P+5!
>> PSGDT	ENDATE+9*
PSGDW	DONE+3!
PSGFORM	DONE+3!
PSGL	DONE+3!
PSGLRPH	DONE+6!
PSGMAR	DONE+3!
PSGMARB	EN+4, EN+5, DONE+3!, P+1, DEV+1
PSGMARDF	DONE+3!
PSGMARDT	ENDATE+3*, ENDATE+4, DONE+3!, DEV+3
PSGMARED	DONE+3!
PSGMARFD	ENDATE+5*, DONE+3!
PSGMARFP	ENDATE+8*, DONE+3!
PSGMARGD	DONE+3!
PSGMARO	DONE+5!
PSGMAROC	DONE+3!
PSGMARS	EN+4, EN+6, EN+7*, DONE+3!
PSGMARSD	ENDATE+5*, DONE+3!
PSGMARSM	DONE+4!
PSGMARSP	ENDATE+8*, DONE+4!
PSGMARTS	DONE+4!
PSGMARWD	ENDATE+9, ENDATE+11, DONE+4!, W+1, W+2, P+4*
PSGMARWG	ENDATE+9, DONE+4!, G+2, G+3*
PSGMARWN	DONE+4!
PSGMARWS	DONE+4!
PSGMFOR	DONE+6!
PSGMPG	DONE+4!
PSGMPGN	DONE+4!
PSGMSORT	ENQ+1~
PSGMTYPE	ENDATE+11*, DONE+6!
PSGOENOF	ENDATE+10, DONE+1, DONE+7!, ENLM+1*
PSGOES	DONE+7!
PSGOP	EN+2~
PSGORD	DONE+4!
>> PSGP	ENDATE+10*, P+1, P+2, ENLM+1
PSGPAT	ENDATE+10, DONE+4!, P+1!, P+2*, P+5
PSGPAT(	P+2, ENLM+1
PSGPG	DONE+6!
PSGPLC	DONE+2!
PSGPLF	ENDATE+4, ENDATE+6, ENDATE+7*, ENDATE+8, OUT!, DONE+2!
PSGPLO	DONE+2!
PSGPLS	ENDATE+4, ENDATE+7, ENDATE+8, OUT!, DONE+2!
PSGRBPPN	ENDATE+9*, DONE+6!, DONE+7!
>> PSGREP	ENQ+4
PSGS0XT	DONE+6!, DONE+7!
PSGS0Y	DONE+6!
PSGSS	ENDATE+10, DONE+5!, DEV+4, ENLM+1*
PSGSSH	ENDATE+10*, DONE+5!
PSGST	DONE+6!, DONE+7!
PSGTIR	DONE+7!, DEV+1*
PSGTM	DONE+6!
PSGTMALL	DONE+6!
PSGWD	DONE+7!, W+2*
PSIVUP	ENQ+1~
PSJACNWP	ENQ+2*, DONE+5!
PSJDIET	DONE+4!
PSJJORD	DONE+2!
PSJORIFN	ENQ+1~
>> PSJPWD	ENDATE+9, P+4
PSJPWDO	ENDATE+9, DONE+5!, P+4
PSJSTOP	ENDATE+10, DONE+5!, G+1, G+4, W+1, W+3, P+5, CDIC+1, LDIC+1*
PSSN	DONE+2!
PST	DONE+5!
PSTXDT	DONE+5!
PTM	DONE+5!
PWDN	DONE+5!
QST	DONE+5!
QX	DONE+2!
R	DONE+5!
RB	DONE+5!
RCT	DONE+5!
S	DONE+5!
SD	DONE+5!
SM	DONE+5!
SPACES	DONE+5!
ST	ENDATE+4*, ENDATE+5, ENDATE+6, ENDATE+7, DONE+5!
T	DONE+5!
TD	DONE+5!
TM	DONE+5!
TMSTR	DONE+2!
TS	DONE+5!
WD	DONE+5!
WDN	DONE+5!
WG	DONE+5!
WGN	DONE+5!
WS	DONE+5!
WT	DONE+5!
>> X	EN+5, EN+6, EN+7, ENDATE+1, ENDATE+6, G+2, CDIC+2, LDIC+2, DEV+2, DEV+3 , DEV+4*
X1	ENDATE+6*, DONE+5!
X2	ENDATE+6*, DONE+5!
XQUIT	EN+3, DONE+7!
XTYPE	DONE+6!
XX	DONE+2!
>> Y	ENDATE+1, ENDATE+2, ENDATE+3, ENDATE+11, G+3, G+4, W+1, P+5, CDIC+1, LDIC+1
Y1	DONE+5!
ZTDES	DONE+7!
>> ZTDESC	DEV+1*
ZTSAVE	DEV+1!
ZTSAVE(	DEV+2, DEV+3, DEV+4*
ZTSAVE("PSGMARS"	DEV+1*
ZTSK	DEV+5!

Customize PDF page

Package: Inpatient Medications

Routine: PSGMAR

Information

Source Information

Call Graph

Call Graph Total: 17

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: