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 Total: 14

Package Total Call Graph
Inpatient Medications 9 ^PSGAPIV  ^PSGAPP  $$ENDTC^PSGMI  $$ENSET^PSGSICHK  ENDEV^PSGTI  PSJAC2^PSJAC  DRGDISP^PSJLMUT1  $$MEDTYPE^PSJMDIR  
$$NFWS^PSJUTL1  
VA Fileman 3 ^%DT  NOW^%DTC  D^DIQ  
Kernel 2 ^%ZISC  $$DT^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGAP  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+5
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+2
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+3
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+4

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( GOD+1, GOD+11*, PAT+15*
^(0 PG+2
^(2 GOD+1
^(6 GOD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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