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 ;24-May-2012 13:20;PLS

Source Information

Source file <PSGMMAR.m>

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

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSGOE5  PSJU 14D MAR  PSJU 7D MAR  PSJU OR 14D MAR  PSJU OR 7D MAR  PSJU OR PAT 14D MAR  PSJU OR PAT 7D MAR  

Entry Points

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

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
  • Prompt: "HOW MANY DAYS? (7/14) "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSGMARDF
  • Line Location: PSGMMAR+3
Function Call: WRITE
  • Prompt: $C(7)," 7 OR 14 DAY MAR!!"
  • Line Location: PSGMMAR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENOE+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+4, EN+2, EN1+1, ENOE+1, DATE+2, DATE+7, ENQ+6
EN PSGMMAR+4, 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!
APSPATS DONE+11!
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+3, 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+3*, PSGMMAR+4, 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