Routine: PSGPLUP0

Information

PSGPLUP0 ;BIR/CML3-UPDATING FOR PSGPLUP OCCURS HERE ;06 AUG 96 / 10:53 PM

Source Information

Source file <PSGPLUP0.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Inpatient Medications	5	ENUNM^PSGOU (ENASET,PATIENT)^PSGPL1 ($$LOCK,UNLOCK)^PSGPLUTL ^PSJAC $$LASTREN^PSJLMPRI
VA Fileman	3	(C,NOW)^%DTC ^DIE (,EN1)^DIK

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSGPLUP

Entry Points

Name	Comments	DBIA/ICR reference
UNFLAG	; unset "old" update flag
UP	; if patient has an update (AUE xref on UD subfile), add order and drug multiples to Pick List and flag as updated. ; if patient not on last pick list (i.e., transferred or admitted ; and has no orders, add to Pick List patient multiple and flag as updated (do PATIENT^PSGPL1).
ENQ	; check for a previous update, if there is one "unflag" updated orders.
DONE	;
ENASET	; ; if you're adding an order that is already on the PL, delete the old one first
UP1	;

External References

Name	Field # of Occurrence
C^%DTC	ENQ+9, UP+20
NOW^%DTC	ENQ+3, ENQ+16, UP+20
^DIE	ENASET+13
^DIK	ENASET+2
EN1^DIK	ENQ+15
ENUNM^PSGOU	UP+3
ENASET^PSGPL1	ENASET+13
PATIENT^PSGPL1	UP+13
$$LOCK^PSGPLUTL	ENQ+2
UNLOCK^PSGPLUTL	DONE+1
^PSJAC	UP+3
$$LASTREN^PSJLMPRI	ENASET+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.5 - [#53.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	ENQ+10, UP+4
^DPT - [#2]	UP+4
^DPT("CN"	ENQ+10
^PS(53.5 - [#53.5]	ENQ+4, ENQ+13, ENQ+15!, ENQ+16, UP+10, UP+12, UP+13, UP+17, UP+22, ENASET+2 , ENASET+5, ENASET+6, ENASET+7, ENASET+8, ENASET+9, ENASET+10, UNFLAG+3, UNFLAG+4
^PS(55 - [#55]	ENQ+13, ENQ+14, UP+17, UP+21, UP1+1
^PS(57.5 - [#57.5]	ENQ+10, UP+10
^PS(57.7 - [#57.7]	UP+5
^PS(59.7 - [#59.7]	UP+16

Label References

Name	Line Occurrences
ENASET	UP1+1
ENQ	ENQ+2
UNFLAG	ENQ+4
UP	ENQ+10, ENQ+13, ENQ+14
UP1	UP+17, UP+22

Naked Globals

Name	Field # of Occurrence
^(	UP+16
^(0	ENASET+9, ENASET+10
^(2	UP+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENQ+3, ENQ+16, DONE+1!, UP+20
%X	DONE+1!
%Y	DONE+1!
DA	ENQ+15!, DONE+1!, ENASET+8!, ENASET+10, ENASET+13*
DA(1	ENASET+8, ENASET+9, ENASET+10, ENASET+13
DA(2	ENASET+8, ENASET+9, ENASET+10, ENASET+13
>> DDC	ENASET+13*
>> DFN	UP+4*
DIE	ENASET+13*!
DIK	ENQ+15!, DONE+1!, ENASET+2!, ENASET+8!
DIK(1	ENQ+15*
>> DR	ENASET+13*
DRG	DONE+1!
EST	ENQ+3*, DONE+1!
>> GRP	UP+10*, UP+12, UP+13, UP+17, UP+20, UP1+1
I	ENQ+5!
NST	DONE+1!, UP1+1*
>> PDRG	ENQ+3*
PN	ENQ+3, DONE+1!, UP+11
>> PSG	ENQ+15*
PSGAU	ENQ+3, DONE+1!, UP+13, ENASET+13*
>> PSGDT	ENQ+3, UP+20
PSGNDATE	DONE+1!, UP+22*
PSGORD	ENQ+5!, DONE+2!, ENASET+13, UNFLAG+2*, UNFLAG+4
PSGOST	ENASET+3~*, ENASET+4, ENASET+6
PSGP	ENQ+5!, ENQ+10, ENQ+13, ENQ+14, UP+4, UP+11, UP+12, UP+13, UP+17, UP+21 , UP+22, UP1+1, ENASET+2, ENASET+3, ENASET+5, ENASET+6, ENASET+8, ENASET+13, UNFLAG+2, UNFLAG+3 , UNFLAG+4
PSGP(0	UP+11
>> PSGPLD	UP+20*, UP+21
PSGPLF	ENASET+4~*
>> PSGPLG	ENQ+2, ENQ+4, ENQ+13, ENQ+14, ENQ+15, ENQ+16, DONE+1, UP+10, UP+12, UP+13 , UP+17, UP+22, ENASET+2, ENASET+5, ENASET+6, ENASET+7, ENASET+8, ENASET+13, UNFLAG+3, UNFLAG+4
PSGPLO	DONE+1!, UP1+1, ENASET+5~, ENASET+6
>> PSGPLREN(	ENASET+6, ENASET+7
>> PSGPLREN("B"	ENASET+6*
PSGPLS	ENQ+9, DONE+1!, UP+20, ENASET+4~*
>> PSGPLTND	ENQ+3, ENASET+4
PSGPLUPO	ENQ+9*, DONE+1!, UP+17
PSGPLWD	ENQ+10, DONE+1!, ENASET+12~
PSGPLWDN	ENQ+10*, DONE+2!
>> PSGPLWG	ENQ+10
PSGPLX	ENASET+7~*
PSGUP	DONE+2!
PSGX	ENQ+4, ENQ+5!, ENQ+13, ENQ+14*, DONE+2!, UNFLAG+2, UNFLAG+3
PSGXP	ENQ+4, ENQ+5!, ENQ+13, DONE+2!
PSJACNWP	ENQ+3*, DONE+2!
PSJJORD	DONE+1!, UP+17, UP+21, UP+22, UP1+1, ENASET+2, ENASET+3, ENASET+5, ENASET+6, ENASET+8
PSJPRN	UP+16~*
PSJSITE	UP+16~*
PST	ENQ+3, DONE+2!, UP+21, UP1+1*
RB	ENQ+3, DONE+2!, UP+4, UP+5, UP+12
SD	DONE+2!, UP+17, UP+21, UP+22
TM	ENQ+3, DONE+2!, UP+5, UP+12
U	UP+10, UP+12, UP+16, ENASET+9, ENASET+10
>> WD	ENQ+10, UP+4, UP+5, UP+10, UP+12, ENASET+12
>> WDN	ENQ+3, ENQ+10, UP+4*, UP+12
>> WSF	ENQ+10
X	ENQ+5!, ENQ+9, DONE+2!, UP+6*, UP+20
X1	ENQ+9, DONE+2!, UP+20
X2	ENQ+9, DONE+2!, UP+20

Customize PDF page

Package: Inpatient Medications

Routine: PSGPLUP0

Call Graph Total: 8

Caller Graph Total: 1