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

Package: Registration

Routine: DG1010P


Information

DG1010P ;ALB/JDS;REW - 1010 PRINT--INQUIRY PATIENT ; 1/3/05 6:18pm

Source Information

Source file <DG1010P.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 4 (NOW,YX)^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Registration 3 ($$PROMPRN,NOREG)^DG1010PA  RET^DGBLRV  (CLOSE,ZIS)^DGUTQ  
Automated Information Collection System 1 MAIN^IBDFREG  
Enrollment Application System 1 ($$ENEZ,$$ENEZR,EN)^EASEZPDG  
Health Summary 1 ENXQ^GMTSDVR  
Kernel 1 ^%ZISC  
Outpatient Pharmacy 1 DFN^PSOSD1  

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

Package Total Caller Graph
Registration 6 DG REGISTRATION 10/10 REPRINT  DG1010PA  DGEN1  DGMTE  DGMTSCC  DGREG00  

Entry Points

Name Comments DBIA/ICR reference
FIND
W1
QU ;
EN ;
DQ ;
Q
RESTORE
EMB ;emboss card?
EF ;encounter form?
SEL1010(PROMPT) ;* Prompt user to select the 1010EZ to print
EZPRMPT() ;* Prompt for 1010EZ print
; OUTPUT -
; RPTSEL : -1 REPORT NOT SELECTED
; RPTSEL : -2 USER EXITED WITHOUT RESPONSE
; RPTSEL : 0 USER ANSWERED "NO"
; RPTSEL : 1 USER ANSWERED "YES"
EZRPRMPT() ;* Prompt for 1010EZR print
; OUTPUT -
; RPTSEL : -1 REPORT NOT SELECTED
; RPTSEL : -2 USER EXITED WITHOUT RESPONSE
; RPTSEL : 0 USER ANSWERED "NO"
; RPTSEL : 1 USER ANSWERED "YES"
MTPRMPT(DFN,DGMTI) ;* Prompt for Means test included on 1010EZ
PRT1010(PRT1010,DFN,MTIEN) ;* Print 1010EZ reports

External References

Name Field # of Occurrence
NOW^%DTC DQ+1
YX^%DTC DQ+1
^%ZISC DQ+14
$$PROMPRN^DG1010PA EF+2
NOREG^DG1010PA W1
RET^DGBLRV DQ+11
CLOSE^DGUTQ DQ+15
ZIS^DGUTQ QU+15
^DIC FIND
$$GET1^DIQ QU+5
^DIR QU+13, EZPRMPT+15, EZRPRMPT+15
$$ENEZ^EASEZPDG MTPRMPT+9, PRT1010+15
$$ENEZR^EASEZPDG PRT1010+16
EN^EASEZPDG DQ+5, DQ+9
ENXQ^GMTSDVR DQ+12
MAIN^IBDFREG EF+4
DFN^PSOSD1 DQ+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No data have been found for the selected patient, or"
  • Line Location: QU+10
Function Call: WRITE
  • Prompt: !,"the patient may have an on-line 10-10EZ application"
  • Line Location: QU+11
Function Call: WRITE
  • Prompt: !,"in progress. The 10-10EZ form shall not be printed."
  • Line Location: QU+12
Routine Call
  • DIC
  • Line Location:
    • FIND
Routine Call
  • DIR
  • Line Location:
    • QU+13
    • EZPRMPT+15
    • EZRPRMPT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^EAS(712 - [#712] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DQ+2, DQ+13
^DGMT(408.31 - [#408.31] MTPRMPT+8
^DPT - [#2] FIND+2
^EAS(712 - [#712] QU+4, QU+7

Label References

Name Line Occurrences
$$EZPRMPT SEL1010+22, SEL1010+32, SEL1010+38
$$EZRPRMPT SEL1010+24, SEL1010+30, SEL1010+44
DQ QU+15
EF EMB+3
EMB QU+15, QU+17
FIND EMB+4
Q FIND, DQ+15
RESTORE DQ+11, DQ+12, DQ+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
%DT Q!
DA FIND*, DQ+4*, DQ+8*, Q!
DB Q!
DFN FIND*, FIND+2, W1, QU+1, QU+4, DQ+4, DQ+8, Q!, EMB+1*, MTPRMPT~
, MTPRMPT+9, PRT1010~, PRT1010+15, PRT1010+16
DFN1 FIND+1*, FIND+2*, Q!
>> DG1 EF+2
DGHDFN QU+1*, EMB+1, EMB+4!
DGHOLD DQ+15!
DGHOLD( DQ+2*, RESTORE
DGHSFLG Q!
DGL2 Q!
DGLDASH Q!
DGLDOUBL Q!
DGLSUP Q!
DGLSUP1 Q!
DGLUND Q!
DGMTDT Q!
DGMTI Q!, MTPRMPT~, MTPRMPT+7
DGMTYPT Q!
DGNOW DQ+1*, Q!
DGOPT QU+2, QU+14*, QU+15, QU+16, DQ+3, DQ+7, DQ+11, DQ+12, DQ+13, DQ+15!
, Q!
DGPGM QU+15*, Q!
DGPMDA DQ+15!, Q!
DGSTOP DQ+3, DQ+7, DQ+11, DQ+12, DQ+13, Q!
DGTASK PRT1010+12~, PRT1010+13*, PRT1010+15*, PRT1010+16*, PRT1010+17
DGVAR QU+15*, Q!
DGX Q!
DIC FIND*, Q!
DIC(0 FIND*
DIR QU+9~, EZPRMPT+9!, EZPRMPT+20!, EZRPRMPT+9!, EZRPRMPT+20!
DIR("?" EZPRMPT+12*, EZPRMPT+13*, EZRPRMPT+12*, EZRPRMPT+13*
DIR("A" EZPRMPT+11*, EZRPRMPT+11*
DIR("B" EZPRMPT+14*, EZRPRMPT+14*
DIR(0 QU+13*, EZPRMPT+10*, EZRPRMPT+10*
DIROUT EZPRMPT+9!, EZPRMPT+16, EZPRMPT+20!, EZRPRMPT+9!, EZRPRMPT+16, EZRPRMPT+20!
DIRUT Q!, EZPRMPT+9!, EZPRMPT+16, EZPRMPT+20!, EZRPRMPT+9!, EZRPRMPT+16, EZRPRMPT+20!
DTOUT Q!, EZPRMPT+9!, EZPRMPT+16, EZPRMPT+20!, EZRPRMPT+9!, EZRPRMPT+16, EZRPRMPT+20!
DUOUT Q!, EZPRMPT+9!, EZPRMPT+16, EZPRMPT+20!, EZRPRMPT+9!, EZRPRMPT+16, EZRPRMPT+20!
DUZ DQ+4, DQ+8
EADT QU+6~, QU+7*
EAIP QU+3~, QU+4*, QU+6, QU+7*, QU+8
EAIX QU+6~*, QU+7
EAPP QU+3~, QU+4*, QU+5, QU+7
EASDFN DQ+4*, DQ+6!, DQ+8*, DQ+10!
EASFLAG DQ+8*, DQ+10!
EASMTIEN DQ+6!, DQ+10!, Q+2!
EFX EF+1~, EF+2*
GMTSTYP Q+2!
I DQ+2*, Q!, RESTORE*
IBDFRION EF+1~
IO QU+15
J Q!
L Q!
LMI Q+1!
MTIEN PRT1010~, PRT1010+15, PRT1010+16
MTSEL MTPRMPT+6~, MTPRMPT+7*, MTPRMPT+8
POP QU+15, DQ+13*!, Q!
PRF Q!
PROMPT SEL1010~, SEL1010+15*, SEL1010+21, SEL1010+29, SEL1010+37, SEL1010+43
PRT1010 SEL1010+14~, SEL1010+16*, SEL1010+22*, SEL1010+23, SEL1010+24, SEL1010+26, SEL1010+32*, SEL1010+33, SEL1010+34, SEL1010+38*
, SEL1010+39, SEL1010+40, EZPRMPT+7~, PRT1010~, PRT1010+15, PRT1010+16
PRT1010R SEL1010+14~, SEL1010+17*, SEL1010+24*, SEL1010+25, SEL1010+26, SEL1010+30*, SEL1010+31, SEL1010+32, SEL1010+34, SEL1010+44*
, SEL1010+45, SEL1010+46, EZRPRMPT+7~
PSCNT Q+1!
PSDIS Q+1!
PSDT Q+1!
PSII Q+1!
PSOPRINT Q+1!
RPTSEL SEL1010+14~, SEL1010+18*, SEL1010+23*, SEL1010+25*, SEL1010+26*, SEL1010+31*, SEL1010+33*, SEL1010+34*, SEL1010+39*, SEL1010+40*
, SEL1010+45*, SEL1010+46*, SEL1010+48, EZPRMPT+7~, EZPRMPT+8*, EZPRMPT+16*, EZPRMPT+17*, EZPRMPT+21, EZRPRMPT+7~, EZRPRMPT+8*
, EZRPRMPT+16*, EZRPRMPT+17*, EZRPRMPT+21
WITHDATA EF+1~, EF+3*, EF+4
X DQ+2*, DQ+13*, Q!, EZPRMPT+9!, EZPRMPT+20!, EZRPRMPT+9!, EZRPRMPT+20!
Y FIND, DQ+1, Q!, EZPRMPT+9!, EZPRMPT+17, EZPRMPT+20!, EZRPRMPT+9!, EZRPRMPT+17, EZRPRMPT+20!
ZUSR DQ+4*, DQ+6!, DQ+8*, DQ+10!
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