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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGAP0

Package: Inpatient Medications

Routine: PSGAP0


Information

PSGAP0 ;BIR/CML3-ACTION PROFILE ;20 May 98 / 12:36 PM

Source Information

Source file <PSGAP0.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Inpatient Medications 10 ^PSGAPIV  ^PSGAPP  $$ENDTC^PSGMI  $$ENSET^PSGSICHK  ENDEV^PSGTI  PSJAC2^PSJAC  DRGDISP^PSJLMUT1  $$MEDTYPE^PSJMDIR  
($$CLINIC,$$CLINSORT)^PSJO1  $$NFWS^PSJUTL1  
VA FileMan 3 ^%DT  NOW^%DTC  D^DIQ  
Kernel 2 ^%ZISC  $$DT^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGAP  

Entry Points

Name Comments DBIA/ICR reference
GOD ; gather order data
PAT ;
GDT ;
EN ; entry point
ENQ ; queued entry point
PG ;
CLIN ;
PW ;
PP ;
DTM ;

External References

Name Field # of Occurrence
^%DT GDT+1
NOW^%DTC PAT+4, EN+3
^%ZISC ENQ+2
D^DIQ DTM+2
^PSGAPIV PAT+9, PAT+10, PAT+11
^PSGAPP ENQ+2
$$ENDTC^PSGMI GOD+10
$$ENSET^PSGSICHK GOD+12
ENDEV^PSGTI EN+8
PSJAC2^PSJAC PAT+4
DRGDISP^PSJLMUT1 GOD+6
$$MEDTYPE^PSJMDIR EN+5
$$CLINIC^PSJO1 GOD+14
$$CLINSORT^PSJO1 GOD+14
$$NFWS^PSJUTL1 GOD+4
$$DT^XLFDT EN+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: !!,"Enter ",N," date/time: "
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: !,"...this may take a few minutes...(you should QUEUE this report)..."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!?2,"If a ",N," date is entered, an action profile will print for only those",!,"patients that have at least one active order with a ",$S(N["A":"STOP",1:"START")," DATE on or ",$S(N["A":"after",1:"before"),!,"the ",N," date entered."
  • Line Location: DTM+3
Function Call: WRITE
  • Prompt: !?2,"Entry is not required. If neither date is entered, all patients with active",!,"orders will print (for the ward(s) chosen). Enter an up-arrow (^) to exit."
  • Line Location: DTM+4
Function Call: WRITE
  • Prompt: !?2,"If you wish to enter a ",$S(N["R":"start",1:"stop")," date of ",Y,", you must enter a TIME of day",!,"of ",T," or greater. Any date after ",Y," does not need time entered.",!
  • Line Location: DTM+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] PG+2, PP+1
^DPT - [#2] PAT+1, PP+1
^DPT("CN" PW+1
^PS(55 - [#55] GOD+2, PAT+8, CLIN+1, CLIN+2, PW+2, PW+3
^PS(57.5 - [#57.5] PG+2
^PS(57.7 - [#57.7] PAT+1, PAT+3
^TMP("PSGAP0" PAT+14*, ENQ+1!, ENQ+2!, CLIN+2
^TMP($J GOD+17*, PAT+12, PAT+13*, EN+1!

Label References

Name Line Occurrences
@( ENQ+2
CLIN PG+1
DTM GDT+1
GDT EN+3
GOD PAT+8
PAT CLIN+3, PW+2, PW+3, PP+1
PW PG+2

Naked Globals

Name Field # of Occurrence
^( GOD+2, GOD+17*
^(0 PG+2
^(2 GOD+2
^(6 GOD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT+4, EN+3
%DT GDT+1!*, GDT+3!
%DT(0 GDT+1*, DTM+2
ATM PAT+2*, ENQ+1~
CLIN EN+2~, CLIN+1*, CLIN+2
CLINSORT GOD+1~, GOD+14*, GOD+15
>> DFN CLIN+2*, CLIN+3
>> DRG GOD+2*, GOD+7*, GOD+15
DRGI ENQ+1~
DRGN ENQ+1~
DRGT ENQ+1~
DT EN+3*
DTIME GDT+1
>> FD GOD+8*, GOD+17
INDEX EN+2~, CLIN+1*, CLIN+2
IO("Q" EN+8
>> N GDT+1, GDT+2, EN+3*, DTM+3, DTM+5
>> ND GOD+2*, GOD+8*, GOD+14, GOD+15
>> ND2 GOD+2*, GOD+8
>> NF GOD+4*, GOD+17
ON ENQ+1~
>> PN GOD+17, PAT+4*, PAT+12, PAT+13
>> PND PAT+4*
>> POP EN+8
PSG GOD+5~, GOD+6
PSG(1 GOD+7
>> PSGAPTM PAT+1, PAT+2
>> PSGAPTM( PAT+2
>> PSGAPWD GOD+4, PAT+1, PAT+3, PG+2*, PP+1*
>> PSGAPWDN GOD+17, PAT+1*, PAT+12, PAT+13, PG+2*, PW+1, PP+1*
>> PSGAPWG PG+2
>> PSGAWPDN GOD+14*
>> PSGDT PAT+4*, PAT+5, GDT+1, GDT+2, EN+3*
>> PSGMTYPE PAT+6*, PAT+7, PAT+10, PAT+11, EN+5*
>> PSGP GOD+2, GOD+4, GOD+6, GOD+14, PAT+1, PAT+4, PAT+8, PAT+14, CLIN+3*, PW+1*
, PW+2, PW+3, PP+1*
>> PSGP(0 PAT+4
>> PSGPAT( PP+1
>> PSGSS EN+3, EN+4, EN+6, ENQ+2
>> PSGTIR EN+8*
>> PSGWD EN+5
PSIVUP ENQ+1~
>> PSJACNWP PAT+4*
PSJCLN GOD+1~, GOD+14*, GOD+15
>> PSJJORD GOD+2, GOD+4, GOD+6, GOD+14, GOD+17, PAT+8*
PSJORIFN ENQ+1~
>> PSJPAD PAT+13
>> PSJPAGE PAT+13
>> PSJPDOB PAT+13
>> PSJPDX PAT+13
>> PSJPRB PAT+13
>> PSJPSEX PAT+13
>> PSJPTD PAT+13
>> PSJPWT PAT+13
>> PSJSEL("RBP" PAT+4
>> PSJSEL("WG" PAT+14, PG+1
>> PSJSTOP EN+3*, EN+5*, EN+8*
PST PAT+9*, PAT+10*, PAT+11*, ENQ+1~
>> Q CLIN+3*, PW+2*, PW+3*
QST ENQ+1~
RB PAT+1*, PAT+4, ENQ+1~
>> SD GOD+8*, GOD+9, GOD+17
>> SI GOD+2*, GOD+12
SLS ENQ+1~
>> SM GOD+4*, GOD+17
>> ST GOD+8*, GOD+17
STOP CLIN+1*, CLIN+2, CLIN+3~
>> STP GOD+9, PAT+5*, GDT+2*, EN+4*
>> STRT PAT+8*
>> STT PAT+5*, PAT+8, GDT+1, GDT+2*, EN+4*, PW+2, PW+3
T DTM+1~, DTM+2*, DTM+5
TM GOD+17, PAT+1*, PAT+2, PAT+3*, PAT+12, PAT+13, ENQ+1~
U GOD+4, GOD+15, GOD+17
>> VA("PID" PAT+13
>> WS GOD+4*, GOD+17
X GOD+4*, GOD+5~, GOD+10*, GOD+15*, GOD+17, GDT+1*, GDT+2, EN+3, EN+4, EN+6*
XTYPE PAT+9*, PAT+10~*, PAT+11*, ENQ+1~
>> Y GOD+12*, GOD+17, GDT+1*, GDT+2, EN+5, DTM+2*, DTM+5*
>> ZTDESC EN+8*
ZTSAVE EN+6!
ZTSAVE( EN+6*
ZTSAVE("STP" EN+6*
ZTSAVE("STT" EN+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All