Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGPLUP0

Package: Inpatient Medications

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All