Routine: PSGCAPP

Package	Total	Call Graph
Inpatient Medications	5	PRT^PSGCAPIV ^PSGCAPP0 $$ENDTC2^PSGMI $$SITE^PSGMMAR2 DRGDISP^PSJLMUT1
VA Fileman	2	NOW^%DTC ^DIR

Package	Total	Caller Graph
Inpatient Medications	2	PSGCAP0 PSGCAPIV

Entry Points

Name	Comments	DBIA/ICR reference
END	;
ORDP1	;*** Also being called from ^PSGCAPIV. PSJ5169 Don't allow RENEW on one-time orders.
H1	; first header for patient ; PSJ5149 Use WD1 to preserve value of WD
DONE	;PSJ5149 Add WD1 to killed variables.
NP	;
NP1	;
LOOP	;
ORDP	;

External References

Name	Field # of Occurrence
NOW^%DTC	LOOP+1
^DIR	NP1+2
PRT^PSGCAPIV	ORDP+1
^PSGCAPP0	H1+4
$$ENDTC2^PSGMI	LOOP+1
$$SITE^PSGMMAR2	LOOP+5
DRGDISP^PSJLMUT1	ORDP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?26,"UNIT DOSE ACTION PROFILE #2",?62,PSGPDT,!?10,"NO ",$S(PSGAPO="E":"EXPIRING",1:"ACTIVE")," ORDERS FOUND FOR ",$S(PSGSS="G":"WARD GROUP: "_PSGAPWGN,PSGSS="W":"WARD: "_PSGAPWDN,1:"PATIENT(S) SELECTED"),"." Line Location: LOOP+3
Function Call: WRITE	Prompt: !!?13,"****** THIS PATIENT HAS NON-VERIFIED ORDERS. ******" Line Location: END+3
Function Call: WRITE	Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:" Line Location: END+10
Function Call: WRITE	Prompt: !!,LINE Line Location: END+11
Function Call: WRITE	Prompt: ! Line Location: END+13
Function Call: WRITE	Prompt: !,$J(N,3) Line Location: ORDP+4
Function Call: WRITE	Prompt: ?5,PSG(1),?46,$P(DRG,"^"),?49,$P(ND,"^",2),?55,$P(ND,"^",3),?61,$P(ND,"^") Line Location: ORDP+5
Function Call: WRITE	Prompt: ?65 Line Location: ORDP+5
Function Call: WRITE	Prompt: "NF " Condition for execution: NF Line Location: ORDP+5
Function Call: WRITE	Prompt: "WS " Condition for execution: $P(ND,"^",4) Line Location: ORDP+5
Function Call: WRITE	Prompt: $E("HSM",SM,3) Condition for execution: SM Line Location: ORDP+5
Function Call: WRITE	Prompt: !?5,PSG(X) Line Location: ORDP+6
Function Call: WRITE	Prompt: !?8,"Special Instructions: " Line Location: ORDP+7
Function Call: WRITE	Prompt: !?31 Condition for execution: $X+$L(Y)>78 Line Location: ORDP+7
Function Call: WRITE	Prompt: Y," " Line Location: ORDP+7
Function Call: WRITE	Prompt: !!?5,"__TAKE NO ACTION __DISCONTINUE "_$S($P(DRG,"^")="O"!($G(QST)="O"):" ",1:"__RENEW")_" COST/DOSE: ",DCU,!?2,"------------------------------------------------------------------------",! Line Location: ORDP1+1
Function Call: WRITE	Prompt: ! Line Location: NP1+3
Function Call: WRITE	Prompt: !?2,PPN,?40,PID,?78-$L(PDOB),PDOB Line Location: NP1+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: NP1+4
Function Call: WRITE	Prompt: !?28,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG,!?1,PPN,?40,PID,?60,PDOB Line Location: NP1+4
Function Call: WRITE	Prompt: !?28,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG,!?1,PPN,?40,PID,?60,PDOB Line Location: NP1+4
Function Call: WRITE	Prompt: !?2,PPN,?40,PID,?78-$L(PDOB),PDOB Line Location: NP1+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: NP1+5
Function Call: WRITE	Prompt: !?26,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG Line Location: NP1+6
Function Call: WRITE	Prompt: !?+PSGVAMC,$P(PSGVAMC,U,2) Line Location: NP1+7
Function Call: WRITE	Prompt: !?1,PPN,?40,PID,?60,PDOB Line Location: NP1+8
Function Call: WRITE	Prompt: !!,"ADDITIONAL MEDICATION ORDERS (CONTINUED):",! Line Location: NP1+10
Function Call: WRITE	Prompt: !!,LINE Line Location: NP1+11
Function Call: WRITE	Prompt: !!," No. Action",?16,"Drug",?46,"ST Start Stop Status/Info",!,ALN Line Location: NP1+12
Routine Call	DIR Line Location: NP1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	END+3
^TMP($J	LOOP+2, LOOP+6, LOOP+7, END+1

Label References

Name	Line Occurrences
DONE	LOOP+2
H1	LOOP+7
NP	END+1
NP1	END+5, END+6, END+11
ORDP	END+1

Naked Globals

Name	Field # of Occurrence
^(	LOOP+7, END+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LOOP+1
AD	DONE+1!
ALN	LOOP+4*, DONE+1!, NP1+12
CML	LOOP+1*, DONE+1!
>> DCU	ORDP+4*, ORDP1+1
DF	DONE+1!, END+4*, NP1+9
DIR	NP1+2!
DIR(0	NP1+2*
>> DRG	END+1*, ORDP+5, ORDP1+1
>> DTOUT	NP1+2
>> DUOUT	NP1+2
IO	LOOP+1, LOOP+2
IO(0	LOOP+1
IOF	LOOP+3, DONE+1, NP1+5
IOSL	END+1, END+5, END+6, END+9, END+11, END+13, NP1+3
IOST	LOOP+1, NP1+2
LINE	LOOP+4*, DONE+1!, END+11, NP1+11
LN	LOOP+4*, DONE+1!, END+4, END+5, END+6, END+12, NP+1
MF	DONE+1!
N	DONE+1!, ORDP+1*, ORDP+4
>> ND	END+1*, ORDP+4, ORDP+5
>> NF	ORDP+4*, ORDP+5
>> ON	END+1*, ORDP+1, ORDP+3
>> PDOB	END+14, NP1+5, NP1+8
PG	DONE+1!, NP1+5*, NP1+6
PI	LOOP+7*, DONE+1!
PID	DONE+1!, END+14, NP1+5, NP1+8
>> PN	LOOP+4, LOOP+7, END+1, ORDP+2
PPN	DONE+1!, END+14, NP1+5, NP1+8
PS1	LOOP+6*, DONE+1!
PSG	ORDP+2~, ORDP+3
PSG(	ORDP+6
PSG(1	ORDP+5
>> PSGAPO	LOOP+3
>> PSGAPWDN	LOOP+3
>> PSGAPWGN	LOOP+3
>> PSGDT	LOOP+1*
>> PSGP	END+3, ORDP+2*, ORDP+3
PSGPDT	LOOP+1*, LOOP+3, DONE+1!
>> PSGSS	LOOP+3
PSGVAMC	LOOP+5*, DONE+1!, NP1+7
PSJAMO	DONE+1!, END+8~, END+11*, NP1+10
PSJCNTR	DONE+1!, END+8~, END+11*
PSJDLW	LOOP+6, LOOP+7, DONE+1!, END+1, END+2, END+4, END+5, END+6, END+12, END+14 , NP+1, NP1+1, NP1+2*
>> PSJTEAM	LOOP+6*
>> Q	END+13, NP1+3
>> QST	ORDP1+1
RCT	DONE+1!
RF	DONE+1!
>> S1	LOOP+4, LOOP+6, LOOP+7, END+1
>> SI	END+1*, ORDP+7
>> SM	ORDP+4*, ORDP+5
TD	DONE+1!
U	ORDP+2, NP1+7
WD	LOOP+4, LOOP+6, LOOP+7, DONE+1!, H1+3~, H1+5, END+1
WD1	DONE+1!, H1+2~, H1+3*, H1+5
X	ORDP+2~, ORDP+6~, ORDP+7
>> Y	ORDP+7*

Customize PDF page

Package: Inpatient Medications

Routine: PSGCAPP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: