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 ; [ 09/13/2001 3:55 PM ]

Source Information

Source file <DGOPATM.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 F0^DGOPATM  (CLOSE,ZIS)^DGUTQ  IN5^VADPT  PID^VADPT6  
VA Fileman 2 ^%DT  (C,NOW)^%DTC  
IHS Changes To ADT 1 ($$READ,PAUSE)^BDGF  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGOPATM  DGPM PATIENT MOVEMENT LIST  

Entry Points

Name Comments DBIA/ICR reference
P2 ;S DGVAR="DAT^DGU",DGPGM="F0^DGOPATM" W ! D ZIS^DGUTQ I 'POP U IO G F0^DGOPATM
F0
P0
P1
FN3
HDR
FN1
GET
G1
G0
PRT
FND
KIL
DTP
HDR1
RT
FN2

External References

Name Field # of Occurrence
^%DT P1
C^%DTC P1+6
NOW^%DTC HDR+2
$$READ^BDGF P1+8
PAUSE^BDGF F0+10
F0^DGOPATM P2+1
CLOSE^DGUTQ KIL
ZIS^DGUTQ P2+1
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+5
Function Call: WRITE
  • Prompt: " [ DATE MORE THAN 14 DAYS IN PAST ]"
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+4
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+5
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+6
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+6
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+7
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+8
Function Call: WRITE
  • Prompt: !!?26,DGX,!
  • Line Location: F0+9
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+9
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
  • Prompt: "Enter <RET> to continue or '^' to QUIT "
  • Formatting: ?22
  • Timeout: DTIME
  • Variable: X
  • 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] FN1, FN1+1, FN3, FN3+1, PRT, P0, P0+1, P0+2, GET+1, GET+3
, G0+1, G0+2
^DIC(42 - [#42] G1
^DPT - [#2] P0

Label References

Name Line Occurrences
DTP HDR, HDR+2
FN2 FN1
FN3 FN3+1
FND F0+7, F0+8, F0+9
G0 GET+2
G1 GET+1, GET+4
GET P0+7
HDR DGOPATM+5, HDR1
HDR1 F0, RT+2
KIL P1, F0+7, F0+8, F0+9, F0+14
P0 PRT
P1 P1+1, P1+6
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*, P0, P0+1, P0+2, GET+1, GET+3, G0, G0+2
BDGADT P1+8~*, P1+9*, F0+7, F0+8, F0+9
DAT DGOPATM+5*, P1*, P1+1, P1+6, KIL!, HDR, FND, FN1, FN2
DFN KIL!, FN1+1*, FN3+1*, PRT, P0
DGPGM P2+1*, KIL!
DGU DGOPATM+5*, KIL!, F0+7, F0+8, F0+9, FN1+1, FN3, FN3+1, FN3+2, P0+3
, RT+1*
DGVAR P2+1*, KIL!
DGX KIL!, F0+7*, F0+8*, F0+9*, RT+2
DT P1+6, 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+1
IOF HDR+1
IOSL P0+3, RT
IOST RT+1
KK KIL!
LL KIL!
LST KIL!, FN2*, FN3
NOD KIL!, F0+7*, F0+8*, F0+9*, FN1, FN1+1, FN3, FN3+1, PRT, P0+1
, P0+2, GET+1, GET+2
NOW P1+1, KIL!, HDR+2*
NX KIL!, FND*, FN1*, FN1+1, FN2*, FN3*, FN3+1, PRT, P0+5, P0+6
, GET+3, G0+1
POP P2+1, 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*
U P1+8
>> 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+6, KIL!, RT*, RT+1*
X1 P1+6*, KIL!, P0+1*, P0+2*, GET+1*, GET+2, G0+1*, G0+2*, G0+3*, G0+4
, G0+5
X2 P1+6*, 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