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

Package: Inpatient Medications

Routine: PSGMAR


Information

PSGMAR ;BIR/CML3-24 HOUR MAR - MAIN DRIVER ;14 Oct 98 / 4:27 PM

Source Information

Source file <PSGMAR.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 12 $$EN^PSGCT  ENP^PSGGAO  ENKV^PSGLOI  ^PSGMAR0  ^PSGMAR1  $$ENDTC2^PSGMI  MARFORM^PSGMUTL  ENDPT^PSGP  
^PSGSEL  (ENCV,ENKV)^PSGSETU  ENDEV^PSGTI  ($$MEDTYPE,ADMTM,RBPPN)^PSJMDIR  
VA Fileman 4 ^%DT  (C,NOW)^%DTC  ^DIC  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGOE5  PSJU 24H MAR  PSJU MAR  

Entry Points

Name Comments DBIA/ICR reference
C ;
EN ;
ENLM ;
DH ;
G ; get ward group
P ; get patient
BH ;
CDIC ;
DEV ; ask print device and queue if asked to
L ;
ENQ ; when queued
DONE ;
W ; get ward
SHTH ;
ENDATE ; get start date
LDIC ;
OUT

External References

Name Field # of Occurrence
^%DT ENDATE+1
C^%DTC ENDATE+6
NOW^%DTC ENDATE+9
^%ZISC ENQ+6
^DIC G+1, W+1, CDIC+1, LDIC+1
^DIR C+4, L+2
$$EN^PSGCT ENDATE+4
ENP^PSGGAO P+1
ENKV^PSGLOI DONE+8
^PSGMAR0 ENQ+2
^PSGMAR1 ENQ+2
$$ENDTC2^PSGMI ENDATE+8
MARFORM^PSGMUTL EN+4
ENDPT^PSGP P+1
^PSGSEL ENDATE+10
ENCV^PSGSETU EN+3
ENKV^PSGSETU DONE+1
ENDEV^PSGTI DEV+5
$$MEDTYPE^PSJMDIR ENDATE+11
ADMTM^PSJMDIR W+2
RBPPN^PSJMDIR G+5, W+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: " (Both)"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: $S(X="C":"ontinuous",X="P":"RN",1:"oth")
  • Line Location: EN+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ENDATE+1
Function Call: WRITE
  • Prompt: !!,"Enter START DATE/TIME for 24 hour MAR: "
  • Line Location: ENDATE+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENDATE+1
Function Call: WRITE
  • Prompt: $C(7),!!?5,"(No date selected for MAR run.)"
  • Line Location: ENDATE+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: C+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !!," Enter a 'Y' to print BLANK (no data) MARs for the patient(s) you select.",!,"Enter an 'N' (or press the RETURN key) to print MARs complete with orders.",!,"Enter an '^' to exit this option now."
  • Line Location: BH+1
Function Call: WRITE
  • Prompt: !!?2,"Enter the START DATE of the 24 hour period for which this MAR is to print.",!,"Unless the BLANK MARs are selected, all orders for the patient(s) selected that",!,"are (or were) active during the date range selected will print."
  • Line Location: DH+1
Function Call: WRITE
  • Prompt: !?2,"Time is not required. If time is not entered, the default time is used (if",!,"found in the site parameters). If the default time is not found, the start of",!,"the day is used."
  • Line Location: DH+2
Function Call: WRITE
  • Prompt: !!?2,"Enter 'C' to print ONLY CONTINUOUS blank sheets for the patients selected.",!,"Enter 'P' to print ONLY PRN sheets. Enter 'B' (or press RETURN) to print BOTH",!,"sheets for each patient."
  • Line Location: SHTH+1
Routine Call
  • DIC
  • Line Location:
    • G+1
    • W+1
    • CDIC+1
    • LDIC+1
Routine Call
  • DIR
  • Line Location:
    • 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, DONE+5!
^XTMP( ENQ+4!

Label References

Name Line Occurrences
@( ENDATE+10
DEV ENDATE+12
DH ENDATE+1
DONE EN+3, EN+4, EN+6, ENDATE+2, ENDATE+12, ENQ+6
EN ENLM+1
ENDATE EN+5
OUT ENDATE+10, ENDATE+11
SHTH EN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENDATE+9
>> %DT ENDATE+1*
AD DONE+2!
ASTERS DONE+2!
BD DONE+2!
BLN DONE+2!
C DONE+2!
>> CG LDIC+1*
>> CL CDIC+1*
CNTR DONE+2!, P+1*
DA1 DONE+2!
DA2 DONE+2!
DAO DONE+2!
DFN DONE+2!
DIC 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 C+3!, L+1!
DIR("?" C+4*, L+2*
DIR("A" C+3*, L+1*
DIR(0 C+3*, L+1*
DRG DONE+2!
DRGI ENQ+1~
DRGN ENQ+1~
DRGT ENQ+1~
DTIME EN+5, ENDATE+1
DX DONE+2!
EXPIRE DONE+2!
F ENQ+1~
FD DONE+2!
FT ENDATE+4*, ENDATE+5, ENDATE+7, DONE+2!
HT DONE+7!
HX DONE+2!
IO ENQ+2, DEV+6
IO("Q" ENDATE+12, DEV+6
L DONE+2!
LN1 DONE+2!
LN14 DONE+2!
LN2 DONE+2!
LN3 DONE+2!
LN4 DONE+2!
LN5 DONE+2!
LN6 DONE+2!
LN7 DONE+2!
MOS DONE+2!
MSG1 DONE+2!
MSG2 DONE+2!
ND2 DONE+2!
NG DONE+2!
ON DONE+7!
ONHOLD DONE+7!
OPST DONE+2!
P ENQ+1~
PAGE DONE+2!
PN DONE+2!
PND DONE+2!
PNN DONE+2!
>> POP ENDATE+12, DEV+5
PPN DONE+2!
PRB DONE+2!
PSEX DONE+2!
PSGADR DONE+3!
PSGALG DONE+3!
>> PSGCLNC C+2*, CDIC+1*
PSGD DONE+3!
PSGDICA P+1*, P+5!
>> PSGDT ENDATE+9*
PSGDW DONE+3!
PSGFORM DONE+3!
PSGL DONE+3!
PSGLRPH DONE+6!
PSGMAR DONE+3!
PSGMARB EN+4, EN+5, DONE+3!, P+1, DEV+1
PSGMARDF DONE+3!
PSGMARDT ENDATE+3*, ENDATE+4, DONE+3!, DEV+3
PSGMARED DONE+3!
PSGMARFD ENDATE+5*, DONE+3!
PSGMARFP ENDATE+8*, DONE+3!
PSGMARGD DONE+3!
PSGMARO DONE+5!
PSGMAROC DONE+3!
PSGMARS EN+4*, EN+6*, EN+7*, DONE+3!
PSGMARSD ENDATE+5*, DONE+3!
PSGMARSM DONE+4!
PSGMARSP ENDATE+8*, DONE+4!
PSGMARTS DONE+4!
PSGMARWD ENDATE+9*, ENDATE+11, DONE+4!, W+1*, W+2, P+4*
PSGMARWG ENDATE+9*, DONE+4!, G+2*, G+3*
PSGMARWN DONE+4!
PSGMARWS DONE+4!
PSGMFOR DONE+6!
PSGMPG DONE+4!
PSGMPGN DONE+4!
PSGMSORT ENQ+1~
PSGMTYPE ENDATE+11*, DONE+6!
PSGOENOF ENDATE+10, DONE+1, DONE+7!, ENLM+1*
PSGOES DONE+7!
PSGOP EN+2~
PSGORD DONE+4!
>> PSGP ENDATE+10*, P+1, P+2, ENLM+1
PSGPAT ENDATE+10*, DONE+4!, P+1!*, P+2*, P+5
PSGPAT( P+2*, ENLM+1*
PSGPG DONE+6!
PSGPLC DONE+2!
PSGPLF ENDATE+4*, ENDATE+6*, ENDATE+7*, ENDATE+8, OUT!, DONE+2!
PSGPLO DONE+2!
PSGPLS ENDATE+4*, ENDATE+7*, ENDATE+8, OUT!, DONE+2!
PSGRBPPN ENDATE+9*, DONE+6!, DONE+7!
>> PSGREP ENQ+4
PSGS0XT DONE+6!, DONE+7!
PSGS0Y DONE+6!
PSGSS ENDATE+10, DONE+5!, DEV+4, ENLM+1*
PSGSSH ENDATE+10*, DONE+5!
PSGST DONE+6!, DONE+7!
PSGTIR DONE+7!, DEV+1*
PSGTM DONE+6!
PSGTMALL DONE+6!
PSGWD DONE+7!, W+2*
PSIVUP ENQ+1~
PSJACNWP ENQ+2*, DONE+5!
PSJDIET DONE+4!
PSJJORD DONE+2!
PSJORIFN ENQ+1~
>> PSJPWD ENDATE+9, P+4
PSJPWDO ENDATE+9*, DONE+5!, P+4*
PSJSTOP ENDATE+10, DONE+5!, G+1, G+4*, W+1*, W+3, P+5*, CDIC+1*, LDIC+1*
PSSN DONE+2!
PST DONE+5!
PSTXDT DONE+5!
PTM DONE+5!
PWDN DONE+5!
QST DONE+5!
QX DONE+2!
R DONE+5!
RB DONE+5!
RCT DONE+5!
S DONE+5!
SD DONE+5!
SM DONE+5!
SPACES DONE+5!
ST ENDATE+4*, ENDATE+5, ENDATE+6, ENDATE+7, DONE+5!
T DONE+5!
TD DONE+5!
TM DONE+5!
TMSTR DONE+2!
TS DONE+5!
WD DONE+5!
WDN DONE+5!
WG DONE+5!
WGN DONE+5!
WS DONE+5!
WT DONE+5!
>> X EN+5*, EN+6, EN+7, ENDATE+1*, ENDATE+6, G+2, CDIC+2, LDIC+2, DEV+2*, DEV+3*
, DEV+4*
X1 ENDATE+6*, DONE+5!
X2 ENDATE+6*, DONE+5!
XQUIT EN+3, DONE+7!
XTYPE DONE+6!
XX DONE+2!
>> Y ENDATE+1*, ENDATE+2, ENDATE+3, ENDATE+11, G+3, G+4, W+1, P+5*, CDIC+1, LDIC+1
Y1 DONE+5!
ZTDES DONE+7!
>> ZTDESC DEV+1*
ZTSAVE DEV+1!
ZTSAVE( DEV+2*, DEV+3*, DEV+4*
ZTSAVE("PSGMARS" DEV+1*
ZTSK DEV+5!
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