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 |  Local Variables |  All
Print Page as PDF
Routine: DGREG00

Package: Registration

Routine: DGREG00


Information

DGREG00 ;ALB/JDS-REGISTER A PATIENT, CONT. ; 1/3/05 6:18pm

Source Information

Source file <DGREG00.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 6 ($$MTPRMPT,$$SEL1010,EF)^DG1010P  $$PROMPRN^DG1010PA  A^DGREG  $$EN^VAFCA04  EN^VAFHLA04  $$SEND^VAFHUTL  
VA Fileman 4 NOW^%DTC  YN^DICN  ($$GET1,DT)^DIQ  ^DIR  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGREG0  

Entry Points

Name Comments DBIA/ICR reference
RT
Q
Q1 ;
QU
PRO
EVNT ;list of external calls
HLP
QURT
W3
W1
SSD
QUHS
DT
EMBOS ;W ! D EMBOS^DGQEMA
CIRN ;
QUPRF

External References

Name Field # of Occurrence
NOW^%DTC W1
^%ZTLOAD QU+5, QUPRF+3, QUHS+2, QURT
$$MTPRMPT^DG1010P W1+18
$$SEL1010^DG1010P W1+3
EF^DG1010P EMBOS+1
$$PROMPRN^DG1010PA PRO, PRO+1
A^DGREG Q1+4
YN^DICN RT
$$GET1^DIQ W1+8
DT^DIQ DT
^DIR W1+16
$$EN^VAFCA04 CIRN+5
EN^VAFHLA04 EVNT+3
$$SEND^VAFHUTL EVNT+3, CIRN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No data have been found for the selected patient, or"
  • Line Location: W1+13
Function Call: WRITE
  • Prompt: !,"the patient may have an on-line 10-10EZ application"
  • Line Location: W1+14
Function Call: WRITE
  • Prompt: !,"in progress. The 10-10EZ form shall not be printed."
  • Line Location: W1+15
Function Call: WRITE
  • Prompt: !!,"CHOOSE FROM",!?4,"YES - To include a copy of the ",DGPRINT," for this patient.",!?4,"NO - If you don't want to print a copy of the ",DGPRINT,"."
  • Line Location: HLP+0
Routine Call
  • DIR
  • Line Location:
    • W1+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SSD
^DG(43 - [#43] W3
^DPT - [#2] EVNT+2, CIRN+4
^EAS(712 W1+7, W1+10

Label References

Name Line Occurrences
CIRN Q1+2
EVNT Q1+1
HLP RT
Q RT
QU W3
RT RT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% W1, RT*, RT+1, Q1+3!
%DT Q1+3!
A W1!, Q1+3!
A(0 SSD
ANS Q1+3!
APD Q1+3!
B Q1+3!
CURR Q1+3!
D0 Q1+4!
D1 Q1+4!
DA Q1+3!
DB W1+19*, QU, Q1+3!
DE Q1+3!
DEF Q1+3!
DFMD Q1+3!
>> DFN W1+7, W1+18, QU+2, QU+3, QUPRF+2, QUHS+1, QURT, EVNT+2, EVNT+3, CIRN+4
, CIRN+5
>> DFN1 QU+2, QUPRF+2, EVNT+2, CIRN+4
DG1 Q1+3!
>> DGASKDEV Q
DGCLPR Q1+3!
DGDAY Q1+3!
DGDFN Q1+3!
DGE Q1+3!
DGHS PRO+1*, QUHS, QUHS+3!
DGIO Q!
DGIO("PRF" QUPRF+2
DGIO("RT" QURT
DGIO(10 QU+5, QUHS+1
DGL Q1+3!
DGLL Q1+3!
>> DGMTI W1+18
DGNEW Q1+3!
DGNOW W1*, QU+1, QUPRF+1, QUHS+1, QURT, Q1+3!
DGO Q1+3!
DGOPT W1!
DGPRINT RT*, HLP*!
>> DGRPFEE Q1+4
DGZDATE CIRN+3~, CIRN+4*, CIRN+5
DIC Q1+3!
DIE Q1+3!
DINUM Q1+3!
DIR W1+12~
DIR(0 W1+16*
DIV QURT, Q1+4!, SSD*
DLAYGO Q1+4!
DOW Q1+3!
DP Q1+3!
DR Q1+3!
DT QURT
DUZ QU+3
EADT W1+9~, W1+10*
EAIP W1+6~, W1+7*, W1+9, W1+10*, W1+11
EAIX W1+9~*, W1+10
EAPP W1+6~, W1+7*, W1+8, W1+10
EASMTIEN W1+2~, W1+4*, W1+18*, QU+4, Q1+4!
ERR CIRN+3~, CIRN+5*
FORM W1+2~, W1+3*, W1+5, W1+17*, W1+19
GMTSTYP QUHS, QUHS+1, QUHS+3!
I Q1+3!
I1 Q1+3!
IOZBK Q1+3!
IOZFO Q1+3!
J Q1+4!
L Q1+3!
L1 Q1+3!
L2 Q1+3!
LL Q1+3!
LL1 Q1+3!
LL2 Q1+3!
MDCARD Q1+3!
PARA Q1+3!
PGM Q1+4!
PRF W3*, PRO*, QUPRF, Q1+3!
>> PSOINST QUPRF+1
>> PSONOPG QUPRF+1
>> PSOPAR QUPRF+2
>> PSTYPE QUPRF+2
>> RGMPI Q1+4
RT W3*, RT+1*, QURT, Q1+3!
S Q1+3!
SC Q1+3!
SEEN Q1+3!
VAFHDATE EVNT+1~, EVNT+2*, EVNT+3
VAFHFLG EVNT+3!
VAFHMRG EVNT+4!
VET Q1+4!
X Q1+4!
X1 Q1+4!
X2 Q1+4!
Y Q1+4!, DT
Y1 Q1+4!
Z Q1+4!
>> ZTDESC QU+1*, QUPRF+1*, QUHS+1*, QURT*
>> ZTDTH QU+1*, QUPRF+1*, QUHS+1*, QURT*
>> ZTIO QU+5*, QUPRF+2*, QUHS+1*, QURT*
>> ZTRTN QU+1*, QUPRF+1*, QUHS+1*, QURT*
>> ZTSAVE("DA" QU+2*
>> ZTSAVE("DFN" QU+2*, QUPRF+2*, QUHS+1*, QURT*
>> ZTSAVE("DFN1" QU+2*, QUPRF+2*
>> ZTSAVE("DIV" QURT*
>> ZTSAVE("DT" QURT*
>> ZTSAVE("EASDFN" QU+3*
>> ZTSAVE("EASFLAG" QU+3*
>> ZTSAVE("EASMTIEN" QU+4*
>> ZTSAVE("GMTSTYP" QUHS+1*
>> ZTSAVE("PSOINST" QUPRF+1*
>> ZTSAVE("PSONOPG" QUPRF+1*
>> ZTSAVE("PSOPAR" QUPRF+2*
>> ZTSAVE("PSTYPE" QUPRF+2*
>> ZTSAVE("ZUSR" QU+3*
ZTSK Q1+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All