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

Package: Inpatient Medications

Routine: PSGMMAR


Information

PSGMMAR ;BIR/CML3-MULTIPLE DAY MARS - MAIN DRIVER ;14 Oct 98 / 4:28 PM

Source Information

Source file <PSGMMAR.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 12 ENP^PSGGAO  ENKV^PSGLOI  ^PSGMMAR0  ^PSGMMAR1  (DH,SD)^PSGMMARH  MARFORM^PSGMUTL  ENDPT^PSGP  ^PSGSEL  
(ENCV,ENKV)^PSGSETU  ENDEV^PSGTI  ^PSJAC  ($$MEDTYPE,ADMTM,RBPPN)^PSJMDIR  
VA FileMan 4 ^%DT  (C,NOW)^%DTC  ^DIC  ^DIR  
Kernel 1 ^%ZISC  

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

Package Total Caller Graph
Inpatient Medications 9 PSGOE5  PSJ LM 14D MAR  PSJ LM 7D MAR  PSJU 14D MAR  PSJU 7D MAR  PSJU OR 14D MAR  PSJU OR 7D MAR  PSJU OR PAT 14D MAR  
PSJU OR PAT 7D MAR  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN7 ;
EN14 ;
EN ;
EN1 ;
ENOE ;
DATE ;
ENQ ; when queued
OUT
DONE ;
G ;
W ;
P ;
C ;
CDIC ;
L ;
LDIC ;
DEV ;
ENOR
ENLM ;

External References

Name Field # of Occurrence
^%DT DATE+1
C^%DTC DATE+3
NOW^%DTC DATE+4
^%ZISC ENQ+6
^DIC G+1, W+1, CDIC+1, LDIC+1
^DIR ENOE+1, C+4, L+2
ENP^PSGGAO P+1
ENKV^PSGLOI DONE+3
^PSGMMAR0 ENQ+2
^PSGMMAR1 ENQ+2
DH^PSGMMARH DATE+1
SD^PSGMMARH ENOE+1
MARFORM^PSGMUTL EN1+1
ENDPT^PSGP P+1
^PSGSEL DATE+5
ENCV^PSGSETU EN+2, ENLM+2
ENKV^PSGSETU DONE+1
ENDEV^PSGTI DEV+4
^PSJAC ENLM+3
$$MEDTYPE^PSJMDIR DATE+6
ADMTM^PSJMDIR W+2
RBPPN^PSJMDIR G+5, W+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "HOW MANY DAYS? (7/14) "
  • Variable: PSGMARDF
  • Timeout: DTIME
  • Line Location: PSGMMAR+2
Function Call: WRITE
  • Prompt: $C(7)," 7 OR 14 DAY MAR!!"
  • Line Location: PSGMMAR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENOE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"Enter START DATE/TIME for "_PSGMARDF_" day MAR: "
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: $C(7),!!?5,"(No date selected, or MAR run.)"
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: $C(7),!!?5,"(No patient(s) selected for MAR run.)"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Routine Call
  • DIC
  • Line Location:
    • G+1
    • W+1
    • CDIC+1
    • LDIC+1
Routine Call
  • DIR
  • Line Location:
    • ENOE+1
    • C+4
    • 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 ENQ+2!
^XTMP( ENQ+4!

Label References

Name Line Occurrences
@( DATE+5
DEV DATE+7
DONE PSGMMAR+3, EN+2, EN1+1, ENOE+1, DATE+2, DATE+7, ENQ+6
EN PSGMMAR+3, EN7+1
EN1 ENLM+3
OUT DATE+5, DATE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DATE+4
>> %DT DATE+1*
AD DONE+4!
ASTERS DONE+4!
BD DONE+4!
BLN DONE+4!
>> CG LDIC+1*
>> CL CDIC+1*
CNTR DONE+4!, P+1*
DA1 DONE+4!
DA2 DONE+4!
DAO DONE+4!
DFN DONE+8!
DIC DONE+4!, G+1*!, W+1*!, CDIC+1!*, LDIC+1!*
DIC("A" G+1*, W+1*
DIC(0 G+1*, W+1*, CDIC+1*, LDIC+1*
DIR ENOE+1!, C+3!, L+1!
DIR("?" C+4*, L+2*
DIR("A" C+3*, L+1*
DIR(0 C+3*, L+1*
DIROUT ENOE+1!
DIRUT ENOE+1!
DRG DONE+4!
DRGI ENQ+1~
DRGN ENQ+1~
DRGT ENQ+1~
DRUGNAME EN+1~
DTIME PSGMMAR+2, DATE+1
DTOUT ENOE+1!
DUOUT ENOE+1!
DX DONE+4!
EXPIRE DONE+4!
F EN+1~
FD DONE+4!
HT DONE+10!
HX DONE+4!
IO DEV+5
IO("Q" DATE+7, DEV+5
L DONE+4!
LN ENQ+1~
LN1 DONE+4!
LN14 DONE+4!
LN2 DONE+4!
LN3 DONE+4!
LN31 DONE+4!
LN32 DONE+4!
LN4 DONE+4!
LN5 DONE+4!
LN6 DONE+4!
LN7 DONE+4!
MARLB EN+1~
MOS DONE+5!
MSG1 DONE+5!
MSG2 DONE+5!
N DONE+5!
NAME EN+1~
NAMENEED DONE+5!
ND2 DONE+5!
NEED DONE+5!
NG DONE+8!
NO DONE+8!
ON DONE+8!
ONHOLD DONE+10!
OPST DONE+5!
>> ORVP ENOR
P ENQ+1~
PAGE DONE+5!
PN DONE+5!
PND DONE+5!
PNN DONE+5!
>> POP DATE+7, DEV+4
PPN DONE+5!
PRB DONE+5!
PSEX DONE+5!
PSGADR DONE+5!
PSGALG DONE+5!
>> PSGCLNC C+2*, CDIC+1*
PSGD DONE+6!
PSGDICA P+1*, P+5!
>> PSGDT DATE+4*
PSGDW DONE+6!
PSGLRPH DONE+9!
PSGMAPA DONE+5!
PSGMAPB DONE+5!
PSGMAPC DONE+5!
PSGMAPD DONE+5!
PSGMAR DONE+6!
PSGMARB EN1+1, DATE+6, DONE+6!, P+1
PSGMARDF PSGMMAR+2*, PSGMMAR+3, EN7+1*, EN14+1*, DATE+1, DATE+3, DONE+6!, DEV+1, DEV+4, ENLM+2!
PSGMARED DONE+6!
PSGMARFD DATE+3*, DONE+6!
PSGMARFP DONE+6!
PSGMARGD DONE+6!
PSGMARO DONE+9!
PSGMAROC DONE+6!
PSGMAROF EN+2!, DATE+5, DONE+6!, ENLM+3*
PSGMARPT DONE+6!
PSGMARS ENOE+1*, DONE+6!
PSGMARSD DATE+3*, DONE+6!
PSGMARSM DONE+6!
PSGMARSP DONE+6!
PSGMARTS DONE+7!
PSGMARWD DATE+4*, DATE+5*, DATE+6, DONE+7!, W+1*, W+2, P+4*
PSGMARWG DATE+4*, DONE+7!, G+2*, G+3*
PSGMARWN DONE+7!
PSGMARWS DONE+7!
PSGMPG DONE+7!
PSGMPGN DONE+7!
PSGMSORT ENQ+1~
PSGMTYPE DATE+6*, DONE+9!
PSGOENOF DATE+5, DONE+1, DONE+10!
PSGOES DONE+10!
PSGOP EN+1~
PSGORD DONE+7!
>> PSGP DATE+5*, P+1, P+2, ENOR*, ENLM+3
PSGPAT DATE+5*, DONE+7!, P+1!*, P+2*, P+5, ENLM+3*
PSGPAT( P+2*, ENLM+3*
PSGPG DONE+9!
PSGPLF OUT!
PSGPLS OUT!
PSGRBPPN DATE+4*, DONE+10!
>> PSGREP ENQ+4
PSGS0XT DONE+10!
PSGS0Y DONE+5!
PSGSS DATE+5, DONE+2!, DEV+3, ENLM+3*
PSGSSH DATE+5*, DONE+2!
PSGST DONE+10!
PSGTIR DONE+10!, DEV+1*
PSGTM DONE+9!
PSGTMALL DONE+9!
>> PSGVBY DONE+1, DONE+2
PSGWD DONE+10!, W+2*
PSGXDT DONE+5!
PSIVUP ENQ+1~
PSJACNWP DONE+8!
PSJDIET DONE+7!
PSJJORD DONE+5!
PSJORIFN ENQ+1~
>> PSJPWD DATE+4, P+4
PSJPWDO DATE+4*, DONE+9!, P+4*
PSJSTOP DATE+5, DONE+9!, G+1, G+4*, W+1*, W+3, P+5*, CDIC+1*, LDIC+1*
PSSN DONE+5!
PST DONE+8!
PTM DONE+8!
PWDN DONE+8!
QST DONE+8!
>> QUIT ENLM+2
R DONE+8!
RB DONE+8!
RCT DONE+8!
S DONE+8!
SD DONE+8!
SM DONE+8!
SPACES DONE+8!
T DONE+8!
TD DONE+8!
TM DONE+8!
TS DONE+8!
UP EN+1~
VADM ENLM+1~
WD DONE+8!
WDN DONE+8!
WG DONE+8!
WGN DONE+8!
WS DONE+8!
WT DONE+8!
>> X DATE+1*, DATE+3, G+2, CDIC+2, LDIC+2, DEV+1*, DEV+2*, DEV+3*
X1 DATE+3*, DONE+8!
X2 DATE+3*, DONE+8!
XQUIT EN+2, DONE+10!
XTYPE DONE+9!
>> Y ENOE+1, DATE+1*, DATE+2, DATE+3, DATE+6, G+3, G+4, W+1, W+2*, P+5*
, CDIC+1, LDIC+1
Y1 DONE+8!
ZTDESC DONE+10!, DEV+1*
ZTSAVE DEV+1!
ZTSAVE( DEV+1*, DEV+2*, DEV+3*
ZTSK DEV+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