Routine: PSGMMAR2

Package	Total	Call Graph
Inpatient Medications	6	^PSGLOI (ATS,TS)^PSGMAR3 $$ENDTC2^PSGMI BLANK^PSGMMAR3 PRT^PSGMMIVC MARLB^PSGMUTL
Registration	1	($$NAME,$$SITE)^VASITE
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	11	PSGAPP PSGCAPP PSGDSP0 PSGMAR2 PSGMAR3 PSGMIV PSGMMAR1 PSGMMAR4 PSGMMIVC PSGMUTL PSJHEAD

Entry Points

Name	Comments	DBIA/ICR reference
PRT2	;
SITE(LEN)	;* Get the Institution name
HEADER	; pat info
PRT	; order info
CELL(X,X1)	; Print the **** on the not to be given cells.
S1	;
BOT	; bottom of MAR
ENB	;
ASTERS	; Print the **** on the first label.
P	; Print on Patient order
INIT	; Print the initials on the label.
CHKLAB	; Check to see if next label is needed.
W	; Print Ward/Ward group
ONHOLD	;Check order to see if it's ON hold, set Flag True if it is

External References

Name	Field # of Occurrence
NOW^%DTC	S1+9
^PSGLOI	PRT+4
ATS^PSGMAR3	HEADER+11
TS^PSGMAR3	PRT+5
$$ENDTC2^PSGMI	HEADER+4
BLANK^PSGMMAR3	S1+7
PRT^PSGMMIVC	PRT+2, PRT+3
MARLB^PSGMUTL	PRT+6
$$NAME^VASITE	SITE+4
$$SITE^VASITE	SITE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $G(PSGPG)&($Y) Line Location: HEADER+2
Function Call: WRITE	Prompt: !?1,"CONTINUOUS SHEET",?61,PSGMARDF," DAY MAR",?100,PSGMARSP," through ",PSGMARFP Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $G(PSGPG)&($Y) Line Location: HEADER+3
Function Call: WRITE	Prompt: !?1,"CONTINUOUS SHEET",?31,PSGMARDF," DAY MAR",?60,PSGMARSP," through ",PSGMARFP,?110,"Page ___ of ___" Line Location: HEADER+3
Function Call: WRITE	Prompt: !?5,$P($$SITE(80),U,2),?102,"Printed on "_$$ENDTC2^PSGMI(PSGXDT) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Allergies: See attached list of Allergies/Adverse Reactions" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,?49,"Admin" Line Location: HEADER+12
Function Call: WRITE	Prompt: ?55,LN14 Condition for execution: PSGMARDF=14 Line Location: HEADER+14
Function Call: WRITE	Prompt: !?1,"Order",?9,"Start",?21,"Stop",?49,"Times" Line Location: HEADER+14
Function Call: WRITE	Prompt: ?55,LN3," notes",!,LN1 Line Location: HEADER+14
Function Call: WRITE	Prompt: ?48,"\| ",$G(TS(L)) Line Location: CHKLAB+1
Function Call: WRITE	Prompt: !?1,"See next label for continuation",?48,"\| ",$G(TS(L+1)) Line Location: CHKLAB+1
Function Call: WRITE	Prompt: !?7,LN2,!?1 Condition for execution: PSGMAROC<6 Line Location: CHKLAB+1
Function Call: WRITE	Prompt: ?48,"\| ",$G(TS(L)) Line Location: CHKLAB+3
Function Call: WRITE	Prompt: !?1 Line Location: CHKLAB+3
Function Call: WRITE	Prompt: !?1,$E("WS",1,PSGLWS2),?4,$S(PSGLSM:$E("HSM",PSGLSM,3),1:""),?8,$E("NF",1,PSGLNF2),?30,"RPH: ",PSGLRPH,?39," RN: ",PSGLRN,?48,"\| ",?50,$G(TS(L)) Line Location: INIT+1
Function Call: WRITE	Prompt: ?55 Line Location: CELL+2
Function Call: WRITE	Prompt: ?55 Line Location: CELL+3
Function Call: WRITE	Prompt: ?55,$S(X1:LN7,1:LN4) Line Location: CELL+4
Function Call: WRITE	Prompt: "\|" Line Location: CELL+6
Function Call: WRITE	Prompt: "\|"_$S(Q<$P(PSGLSSD,"."):ASTERS,Q=PSGLFFD:EXPIRE,Q>PSGLFFD:ASTERS,(PSGMARGD=""&($G(P(9))="")):SPACES,PSGMARGD[$P(PSGD(Q),"^"):SPACES,1:ASTERS) Line Location: ASTERS+2
Function Call: WRITE	Prompt: "\|" Line Location: ASTERS+3
Function Call: WRITE	Prompt: ! Line Location: BOT+1
Function Call: WRITE	Prompt: ?6,"\|",?19,"\|" Condition for execution: QQ=1 Line Location: BOT+1
Function Call: WRITE	Prompt: ?12,$S(QQ=3:MSG1,1:MSG2) Condition for execution: 34[QQ Line Location: BOT+1
Function Call: WRITE	Prompt: ?55,$S(QQ<6:LN4,1:LN7) Line Location: BOT+1
Function Call: WRITE	Prompt: ! Line Location: BOT+2
Function Call: WRITE	Prompt: ?6,"\|",?19,"\|" Condition for execution: QQ=1 Line Location: BOT+2
Function Call: WRITE	Prompt: ?12,$S(QQ=3:MSG1,1:MSG2) Condition for execution: 34[QQ Line Location: BOT+2
Function Call: WRITE	Prompt: ?55,$S(QQ<6:LN4,1:LN7) Line Location: BOT+2
Function Call: WRITE	Prompt: ?55,$S(QQ<6:LN4,1:LN7) Line Location: BOT+2
Function Call: WRITE	Prompt: !,LN1 Line Location: ENB+2
Function Call: WRITE	Prompt: !,"\|",?11,"SIGNATURE/TITLE",?38,"\| INIT \| INJECTION SITES \|",?87,"MED/DOSE OMITTED",?107,"\| REASON \| INIT \|" Line Location: ENB+3
Function Call: WRITE	Prompt: !,"\|"_$E(LN1,1,37)_"\|------\|"_BLN(Q),?82,"\|"_$E(LN1,1,24)_"\|"_$E(LN1,1,16)_"\|------\|" Line Location: ENB+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	PRT+2
^PS(55 - [#55]	ONHOLD+5, ONHOLD+7
^SC - [#44]	HEADER+5
^TMP($J	S1+2, S1+3, S1+5, P+3, P+5, P+8, W+8, W+9
^XTMP(	S1+3, W+3, W+5

Label References

Name	Line Occurrences
$$SITE	HEADER+4
@(	S1+12
ASTERS	CELL+2, CELL+3
BOT	S1+7, S1+13, PRT+7, PRT2+3, CHKLAB+2
CELL	PRT+9, CHKLAB+1, CHKLAB+3, INIT+1
ENB	PRT+3
HEADER	S1+7, S1+9, P+2, PRT+3, PRT+7, PRT2+3, CHKLAB+2
ONHOLD	PRT+1
PRT	P+5, W+3, W+8
PRT2	PRT+9

Naked Globals

Name	Field # of Occurrence
^(	W+3, W+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S1+9
>> AD	HEADER+7
>> ASTERS	CELL+5, ASTERS+2
>> BD	HEADER+6
>> BLN(	ENB+4
CELL	CELL+1~*, CELL+5
>> DAO	S1+9, P+4, P+5, W+3, W+8*, PRT+1, PRT+4
>> DX	HEADER+7
>> EXPIRE	CELL+5, ASTERS+2
HSPACE	ASTERS+1~*, ASTERS+4
>> HT	HEADER+6
IOF	HEADER+3
>> L	CHKLAB+1, CHKLAB+3, INIT+1
LEN	SITE~, SITE+9
>> LN1	HEADER+14, ENB+2, ENB+4, ENB+7
>> LN14	HEADER+14
>> LN2	PRT2+4, CHKLAB+1, BOT+2
>> LN3	HEADER+14
>> LN4	CELL+4, BOT+1, BOT+2
>> LN7	CELL+4, BOT+1, BOT+2
>> MARLB	PRT+7, PRT+9, PRT2+4
>> MARLB(	PRT+9
>> MSG1	HEADER+3, PRT2+2, CHKLAB+2*, BOT+1, BOT+2
>> MSG2	HEADER+3*, BOT+1, BOT+2
>> NO	S1+2, S1+3, S1+5*, S1+7, S1+9
>> ON	PRT+1*, PRT+2, ONHOLD+3, ONHOLD+5, ONHOLD+7
>> ONHOLD	CELL+5, ASTERS+1, ASTERS+4, ONHOLD+1, ONHOLD+5, ONHOLD+7*
>> P(9	CELL+2, CELL+3!, ASTERS+2
>> PAGE	HEADER+6
>> PN	S1+1, S1+2, S1+3, S1+5, P+3, P+5, P+8, W+3, W+5, W+8 , W+9, ONHOLD+5, ONHOLD+7
>> PPN	HEADER+5, ENB+7
>> PRB	HEADER+6, ENB+7
PRTLN	PRT+9~*, PRT2+4
>> PSEX	HEADER+7
>> PSGALG	HEADER+8
>> PSGD(	CELL+5, ASTERS+2
>> PSGDT	S1+9*, HEADER+1
PSGLFFD	CELL+2~, CELL+5, ASTERS+2
>> PSGLNF	INIT+1
>> PSGLRN	INIT+1
>> PSGLRPH	INIT+1
>> PSGLSM	INIT+1
>> PSGLSSD	CELL+5, ASTERS+2
>> PSGLWS	INIT+1
>> PSGMARB	S1+1, S1+7
>> PSGMARDF	HEADER+3, HEADER+14, CELL+1
>> PSGMARFP	HEADER+3
PSGMARGD	PRT+4, CELL+2~, CELL+5, ASTERS+2
>> PSGMAROC	HEADER+3, PRT+3, PRT+7, PRT+8, PRT2+1, PRT2+4, CHKLAB+1, CHKLAB+2, BOT+2*
>> PSGMARS	S1+7
>> PSGMARSP	HEADER+3
>> PSGMARTS	P+5, W+3, W+8, PRT+4, PRT+5, CELL+3
>> PSGMPG	S1+11, ENB+1, ENB+7
>> PSGMPGN	S1+11, P+8, W+5, W+9, ENB+1*, ENB+7
>> PSGMSORT	PRT+2, PRT+4
PSGON	ONHOLD+2~, ONHOLD+3*, ONHOLD+5, ONHOLD+7
>> PSGORD	PRT+4*
>> PSGPG	HEADER+3*
>> PSGRBPPN	S1+1, S1+2, S1+3, W+2, W+7
>> PSGREP	S1+3, W+3, W+5
>> PSGSS	S1+2, S1+3, S1+5, S1+9, S1+12
PSGX	HEADER+11~*
>> PSGXDT	HEADER+1*, HEADER+4
>> PSJDIET	HEADER+13
PSJPSTO	PRT+4*, PRT+10!
>> PSSN	HEADER+6, ENB+7
>> PST	S1+9, P+3, P+5, W+3, W+8, PRT+3, PRT+4, PRT+10, CELL+2
>> PWDN	S1+2, S1+3, S1+5, P+3, P+5, P+8, HEADER+5, HEADER+6, HEADER+7, ENB+7
>> Q	W+3, W+8, CELL+5, ASTERS+2, BOT+2, ENB+4
>> QQ	BOT+1, BOT+2
QTS	CELL+1~, CELL+5*
>> RB	S1+1, W+3, W+5, W+8, W+9
>> SPACES	ASTERS+1, ASTERS+2, ASTERS+4
>> TD	HEADER+7
>> TM	S1+2, S1+3, S1+5, W+3, W+5, W+8, W+9
>> TS	PRT+7, PRT2+1, CHKLAB+2, CELL+3
>> TS(	PRT+9, CHKLAB+1, CHKLAB+3, INIT+1, CELL+4, CELL+5
U	HEADER+4, PRT+1, PRT+2, PRT+4, SITE+7, SITE+9
>> WDN	S1+2, S1+3, S1+5, W+3, W+5, W+8, W+9
>> WT	HEADER+5
X	S1+1, S1+2, S1+3, S1+5, CELL~, CELL+2, CELL+3, CELL+4, CELL+5, SITE+3~ , SITE+4, SITE+7*, SITE+8, SITE+9
X1	CELL~, CELL+1, CELL+4
>> Y	S1+1*, S1+2, S1+3, S1+5

Customize PDF page

Package: Inpatient Medications

Routine: PSGMMAR2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: