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

Package: Registration

Routine: DGOPATM


Information

DGOPATM ;GLRISC/REL - Patient Movements ;11/4/89 11:05 ;

Source Information

Source file <DGOPATM.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 F0^DGOPATM  (CLOSE,ZIS)^DGUTQ  IN5^VADPT  PID^VADPT6  
VA FileMan 2 ^%DT  (C,NOW)^%DTC  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Registration 2 DGOPATM  DGPM PATIENT MOVEMENT LIST  

Entry Points

Name Comments DBIA/ICR reference
P1
P2
KIL
F0
DTP
HDR
FND
FN1
FN2
FN3
PRT
P0
GET
G0
G1
RT
HDR1

External References

Name Field # of Occurrence
^%DT P1
C^%DTC P1+2
NOW^%DTC HDR+2
F0^DGOPATM P2
CLOSE^DGUTQ KIL
ZIS^DGUTQ P2
IN5^VADPT GET+3, G0
PID^VADPT6 P0+4
$$FMTE^XLFDT DTP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: " [ Date cannot be in Future ]"
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: " [ DATE MORE THAN 5 DAYS IN PAST ]"
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+1
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+2
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+3
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+3
Function Call: WRITE
  • Prompt: @IOF,!!?23,"P A T I E N T M O V E M E N T S"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?(80-$L(H1)\2),H1
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$E($P(Y(0),"^",1),1,22),?24,VA("BID")
  • Line Location: P0+4
Function Call: WRITE
  • Prompt: ?32,$J(+$E(NX,6,7),2),"-",$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",+$E(NX,4,5))
  • Line Location: P0+5
Function Call: WRITE
  • Prompt: $J($S(I2>12:I2-12,1:I2),3),":",$E(NX_"000",11,12),$S(I2>11:"pm",1:"am")
  • Line Location: P0+6
Function Call: WRITE
  • Prompt: ?48,FW,?65,TW
  • Line Location: P0+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RT+0
Function Call: READ
  • Formatting: ?22
  • Prompt: "Enter <RET> to continue or '^' to QUIT "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RT+1
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: RT+2
Function Call: WRITE
  • Prompt: !!?5,"Name",?24,"PT ID",?35,"Date/Time",?49,"FROM Ward-Bed",?67,"TO Ward-Bed"
  • Line Location: HDR1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] G1+1
^DGPM - [#405] FN1FN1+1, FN3FN3+1, PRTP0P0+1, P0+2, GET+1, GET+3
G0+1, G0+2
^DIC(42 - [#42] G1
^DPT - [#2] P0

Label References

Name Line Occurrences
DTP HDRHDR+2
FN2 FN1
FN3 FN3+1
FND F0+1, F0+2, F0+3
G0 GET+2
G1 GET+1, GET+4
GET P0+7
HDR DGOPATM+2, HDR1
HDR1 F0RT+2
KIL P1F0+1, F0+2, F0+3, F0+4
P0 PRT
P1 P1+1, P1+2
PRT FN1+1, FN3+1
RT P0+3

Naked Globals

Name Field # of Occurrence
^(0 P0

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KIL!, HDR+2
%DT P1*, KIL!
%DT("A" P1*
%ZIS KIL!
ADM KIL!, PRT*, P0P0+1, P0+2, GET+1, GET+3, G0G0+2
DAT DGOPATM+2*, P1*, P1+1, P1+2, KIL!, HDRFNDFN1FN2
DFN KIL!, FN1+1*, FN3+1*, PRTP0
DGPGM P2*, KIL!
DGU DGOPATM+2*, KIL!, F0+1, F0+2, F0+3, FN1+1, FN3FN3+1, FN3+2, P0+3
RT+1*
DGVAR P2*, KIL!
DGX KIL!, F0+1*, F0+2*, F0+3*, RT+2
DT P1+2, HDR+2*, FN2
DTIME RT+1
DTP KIL!, DTP*, HDR*, HDR+2*
FHA1 KIL!
FR KIL!, GET*, GET+2*, GET+3*, GET+4*, G0+1*, G0+5*, G1+1*, G1+2
FW KIL!, P0+7, GET*, GET+2*, GET+3*, GET+4*, G0+1*, G0+5*, G1*, G1+2*
H1 KIL!, HDR*, HDR+2*
I2 KIL!, P0+6*
IO P2
IOF HDR+1
IOSL P0+3, RT
IOST RT+1
KK KIL!
LL KIL!
LST KIL!, FN2*, FN3
NOD KIL!, F0+1*, F0+2*, F0+3*, FN1FN1+1, FN3FN3+1, PRTP0+1
P0+2, GET+1, GET+2
NOW P1+1, KIL!, HDR+2*
NX KIL!, FND*, FN1*, FN1+1, FN2*, FN3*, FN3+1, PRTP0+5, P0+6
GET+3, G0+1
POP P2, KIL!
RM KIL!
T1 KIL!, GET+3*
TR KIL!, GET*, GET+1*, GET+3*, GET+4*, G0+2*, G0+4*, G1+1*, G1+2
TRN KIL!
TW KIL!, P0+7, GET*, GET+1*, GET+3*, GET+4*, G0+2*, G0+4*, G1*, G1+2*
>> VA("BID" KIL!, P0+4
>> VA("PID" KIL!
VADAT KIL!
VADATE KIL!
VAERR KIL!
VAIP KIL!
VAIP("E" GET+3*, G0*
VAIP(15 GET+3, G0+1
X P1+2, KIL!, RT*, RT+1*
X1 P1+2*, KIL!, P0+1*, P0+2*, GET+1*, GET+2, G0+1*, G0+2*, G0+3*, G0+4
G0+5
X2 P1+2*, KIL!, G0*, G0+1*, G0+5
Y P1, KIL!
Y(0 P0*, P0+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All