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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSGCAP

Package: Inpatient Medications

Routine: PSGCAP


Information

PSGCAP ;BIR/CML3-ACTION PROFILE (#2) ;04 APR 96 / 1:10 PM

Source Information

Source file <PSGCAP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 7 ENQ^PSGCAP0  ENP^PSGGAO  $$ENDD^PSGMI  ^PSGSEL  (ENCV,ENKV)^PSGSETU  ENDEV^PSGTI  $$MEDTYPE^PSJMDIR  
VA FileMan 4 NOW^%DTC  ^DIC  D^DIQ  ^DIR  

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: 5

Package Total Caller Graph
Inpatient Medications 4 PSGCAP0  PSJ LM AP2  PSJU AP-2  PSJU OR AP-2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
START ;
ORS
ORS1
DONE ;
GDT ;
G ; get ward group
C ;
CDIC ;
L ;
LDIC ;
W ; get ward
P ; get patient
DTM ;
Q1 ;
Q2 ;
ENLM ;Entry point for PSJ LM AP2 protocol

External References

Name Field # of Occurrence
NOW^%DTC ORS1
^DIC G+1, CDIC+1, LDIC+1, W+1
D^DIQ DTM+1
^DIR GDT+2, C+2, L+2
ENQ^PSGCAP0 ORS1+6
ENP^PSGGAO P+2
$$ENDD^PSGMI GDT+1
^PSGSEL START+2
ENCV^PSGSETU PSGCAP+4, ENLM+3
ENKV^PSGSETU DONE+1
ENDEV^PSGTI ORS1+5
$$MEDTYPE^PSJMDIR ORS1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"No patient(s) selected. Option terminated."
  • Line Location: START+2
Function Call: READ
  • Variable: PSGAPS
  • Timeout: DTIME
  • Line Location: ORS+1
Function Call: WRITE
  • Prompt: !!,"Sort Action Profiles by (T)eam or Treating (P)rovider? T// "
  • Line Location: ORS+1
Function Call: READ
  • Variable: PSGAPO
  • Timeout: DTIME
  • Line Location: ORS1+1
Function Call: WRITE
  • Prompt: !!,"Print (A)ll active orders, or (E)xpiring orders only? A// "
  • Line Location: ORS1+1
Function Call: WRITE
  • Prompt: !,"...this may take a few minutes...(you really should QUEUE this report)..."
  • Line Location: ORS1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !!?2,"Enter a ",N," date. If a time is not entered for the ",N," date, the",!,$S(N["R":"beginning",1:"end")," of the day is assumed and used."
  • Line Location: DTM+2
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+3
Function Call: WRITE
  • Prompt: " (TEAM)"
  • Line Location: Q1+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!?2,"Enter 'T' (or press RETURN) to sort and print patients by TEAM. Enter 'P'",!,"to sort and print patients by treating PROVIDER."
  • Line Location: Q1+4
Function Call: WRITE
  • Prompt: $P(X,PSGAPS,2)
  • Line Location: Q1+6
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q1+7
Function Call: WRITE
  • Prompt: " (ALL)"
  • Line Location: Q2+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: !!?2,"Enter 'A' (or press RETURN) to print ALL ACTIVE orders for the patient(s)",!,"selected. Enter 'E' to print only orders that will EXPIRE within the date",!,"range selected for the patient(s) selected."
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: $P(X,PSGAPO,2)
  • Line Location: Q2+6
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q2+7
Routine Call
  • DIC
  • Line Location:
    • G+1
    • CDIC+1
    • LDIC+1
    • W+1
Routine Call
  • DIR
  • Line Location:
    • GDT+2
    • C+2
    • L+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^PS(57.5 - [#57.5] Classic Fileman Calls
^PS(57.8 - [#57.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J DONE+4!

Label References

Name Line Occurrences
@( START+2
DONE START+2, ORS1+5, ENLM+5
GDT ORS1
ORS1 ORS, ENLM+4
Q1 ORS+1
Q2 ORS1+1
START START+2, ORS1, ORS1+2, ORS1+3, ORS1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ORS1
CA DONE+1!
>> CG LDIC+1*
>> CL CDIC+1*
CNTR DONE+1!, P+2*
>> DFN ENLM+4
DIAG DONE+1!
DIC G+1*!, CDIC+1!*, LDIC+1!*, W+1*!
DIC("A" G+1*, W+1*
DIC(0 G+1*, CDIC+1*, LDIC+1*, W+1*
DIR GDT+1!, GDT+2!, C+1!, L+1!
DIR("?" GDT+2*, C+2*, L+2*
DIR("A" GDT+2*, C+1*, L+1*
DIR("B" GDT+1*
DIR(0 GDT+2*, C+1*, L+1*
>> DIRUT ORS1, GDT+2
DO DONE+1!
DRG DONE+1!
DTIME ORS+1, ORS1+1
FD DONE+1!
IO("Q" ORS1+5
LQ DONE+1!
MINDT GDT+1~*, GDT+2
N ORS1*, DONE+1!, GDT+1, GDT+2, GDT+3, DTM+2, DTM+3
ND DONE+1!
ND2 DONE+1!
NF DONE+1!
PAGE DONE+1!
PDOB DONE+1!
PN DONE+1!
PND DONE+1!
>> POP ORS1+5
PPAGE PSGCAP+2~, START+1*, ENLM+1~, ENLM+2*
PSEX DONE+1!
PSGADR DONE+3!
PSGALG DONE+3!
PSGAP START+1*, DONE+1!
PSGAPFD DONE+2!, GDT+3*
PSGAPO ORS1+1*, ORS1+2, DONE+2!, Q2+1*, Q2+2*, Q2+3*, Q2+4*, Q2+5*, Q2+6*
PSGAPS ORS*, ORS+1*, ORS1, DONE+2!, Q1+1*, Q1+2*, Q1+3*, Q1+4*, Q1+5*, Q1+6*
, Q1+7*, ENLM+4*
PSGAPSD DONE+2!, GDT+1, GDT+3*
PSGAPWD START+1*, DONE+1!, G+2*, W+1*, ENLM+4*
PSGAPWDN START+1*, DONE+1!, G+2*, W+1*, ENLM+4*
PSGAPWG START+1*, ORS, DONE+1!, G+1*, G+2*, ENLM+4*
PSGAPWGN START+1*, DONE+1!, G+1*, G+2*, ENLM+4*
PSGDICA DONE+1!, P+2*, P+3!
>> PSGDT ORS1*, GDT+1, GDT+3, DTM+1
PSGEXPDT DONE+3!
PSGMTYPE ORS1+3*, DONE+3!
>> PSGP START+1*, P+2, ENLM+4
>> PSGPAS Q2+7*
PSGPAT ORS+1, DONE+1!, P+1!, P+2*, P+3, ENLM+4*
PSGPAT( P+2*, ENLM+4*
PSGPTMP PSGCAP+2~, START+1*, ENLM+1~, ENLM+2*
PSGSS START+2, ORS+1, DONE+1!, ENLM+4*
PSGSSH START+1*, DONE+2!
>> PSGTIR ORS1+5*
PSGWD ORS1+3, DONE+2!, W+1*, P+1!, P+2*
PSJACNWP DONE+2!
PSJDLW DONE+2!
PSJJORD DONE+1!
PSJNEW PSGCAP+2~*, ENLM+1~*
>> PSJNKF ENLM+5*
PSJOPC DONE+2!
>> PSJPWD P+2
PSJPWDO DONE+2!, P+1!, P+2*
PSJSI DONE+3!
PSJSTOP DONE+3!
PSJTEAM DONE+3!
PST DONE+3!
>> Q Q1+5*, Q2+5*
QST DONE+3!
RB DONE+2!
RTE DONE+2!
S1 DONE+2!
SD DONE+2!
SI DONE+2!
SM DONE+2!
ST DONE+2!
STP DONE+2!
STRT DONE+2!
STT DONE+2!
>> T DTM+1*, DTM+3
WS DONE+2!
WT DONE+2!
>> X ORS1+4*, GDT+3, G+1, CDIC+2, LDIC+2, Q1+6*, Q2+6*
>> XQUIT PSGCAP+4, ENLM+3
>> Y START+2, ORS1+3, GDT+3, G+1, G+2*, CDIC+1, LDIC+1, W+1, P+3*, DTM+1*
, DTM+3*
>> Y(0 G+1, W+1
>> ZTDESC ORS1+5*
ZTOUT DONE+2!
ZTSAVE ORS1+4!
ZTSAVE( ORS1+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All