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 |  Marked Items  | All
Print Page as PDF
Routine: DG1010PA

Package: Registration

Routine: DG1010PA


Information

DG1010PA ;ALB/REW - 1010 PRINT--INQUIRY PATIENT -ADDITIONL ; 28-MAY-93

Source Information

Source file <DG1010PA.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  YN^DICN  ^DIR  
Registration 2 ($$MTPRMPT,$$SEL1010)^DG1010P  ASK^DGBLRV  
Health Summary 1 ENXQ^GMTSDVR  

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

Entry Points

Name Comments DBIA/ICR reference
NOREG(DFN) ; DOES PROMPTS FOR 10/10 PRINT W/O REGISTRATION
QTNOREG
PROMPRN(DGX) ; PROMPTS FOR PRINT
; RETURNS DGX [1=YES;0=NO;-1=DIRUT CONDITIONS]
; OUTPUT:DG1 VALUE
QTPROMP
ASK(DGX) ; PROMPTS FOR PRINT
FAILCOND(DGX) ;CHECKS IF PROMPT SHOULD BE ASKED
QTFAIL
AFTERASK(DGX) ;ACTIONS AFTER REPONSE OF YES TO PRINT
ADM

External References

Name Field # of Occurrence
$$MTPRMPT^DG1010P NOREG+20
$$SEL1010^DG1010P NOREG+19
ASK^DGBLRV FAILCOND+13
^DIC AFTERASK+16
YN^DICN ASK+5
^DIR AFTERASK+19, AFTERASK+30
ENXQ^GMTSDVR FAILCOND+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PRINT "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: $S(DGX="THIRD":"ERROR",(DGX="HS"):"HEALTH SUMMARY",(DGX="PRO"):"DRUG PROFILE",(DGX="EF"):"ENCOUNTER FORMS",1:"ERROR")
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"ENTER 'Y'ES TO PRINT A ",DGX,". OTHERWISE ENTER 'N'O."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,*7,"No Type Selected. HS will not print"
  • Line Location: AFTERASK+20
Routine Call
  • DIC
  • Line Location:
    • AFTERASK+16
Routine Call
  • DIR
  • Line Location:
    • AFTERASK+19
    • AFTERASK+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" FAILCOND+16, FAILCOND+19
^DG(43 - [#43] NOREG+16, NOREG+17, FAILCOND+17, FAILCOND+20, FAILCOND+23, AFTERASK+15, AFTERASK+25, AFTERASK+26
^DGPM("ATID1" ADM
^DGS(41.1 - [#41.1] FAILCOND+12
^DIC(4 - [#4] AFTERASK+34
^XMB(1 - [#4.3] AFTERASK+34

Label References

Name Line Occurrences
$$AFTERASK PROMPRN+7
$$ASK PROMPRN+6
$$FAILCOND PROMPRN+4
$$PROMPRN NOREG+18, NOREG+24, NOREG+25
ADM FAILCOND+10
QTFAIL FAILCOND+7, FAILCOND+8, FAILCOND+15, FAILCOND+18, FAILCOND+22
QTNOREG NOREG+17, NOREG+18, NOREG+21, NOREG+24, NOREG+25
QTPROMP PROMPRN+4

Naked Globals

Name Field # of Occurrence
^( ADM

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+5*, ASK+6, FAILCOND+8, FAILCOND+14
DFN NOREG~, NOREG+20, FAILCOND+12, ADM
>> DFN1 ADM
DG1 NOREG+15~, NOREG+18, NOREG+21*, NOREG+24, NOREG+25, QTNOREG, PROMPRN+3*, PROMPRN+4*, PROMPRN+5, PROMPRN+6*
, PROMPRN+7*, QTPROMP, FAILCOND+14*
DGDEF FAILCOND+9~, FAILCOND+13*, AFTERASK+24~, AFTERASK+25*, AFTERASK+27, AFTERASK+31*, AFTERASK+33
DGFAIL FAILCOND+5~, FAILCOND+6*, FAILCOND+11*, FAILCOND+15*, FAILCOND+17*, FAILCOND+18*, FAILCOND+21*, FAILCOND+23*, QTFAIL
DGGO AFTERASK+12~, AFTERASK+13*, AFTERASK+20*, AFTERASK+23*, AFTERASK+33*, AFTERASK+35
>> DGMTI NOREG+20
DGNOQ FAILCOND+9~, FAILCOND+13*
>> DGOPT NOREG+16*, NOREG+18*, NOREG+22*, NOREG+23*, NOREG+24*, NOREG+25*, QTNOREG*
DGPMDA FAILCOND+12, ADM!*, ADM+1*
DGX PROMPRN~, PROMPRN+4, PROMPRN+6, PROMPRN+7, ASK~, ASK+4, ASK+5, FAILCOND~, FAILCOND+7, FAILCOND+8
, FAILCOND+15, FAILCOND+18, FAILCOND+22, AFTERASK~, AFTERASK+14, AFTERASK+22
DIC AFTERASK+15*, AFTERASK+16!
DIC(0 AFTERASK+15*
DIR AFTERASK+12~, AFTERASK+20!
DIR("A" AFTERASK+29*
DIR("B" AFTERASK+17*, AFTERASK+27*
DIR(0 AFTERASK+18*, AFTERASK+28*
DIRUT AFTERASK+20!, AFTERASK+32
DUOUT AFTERASK+20!
>> EASMTIEN NOREG+20*
FORM NOREG+15~, NOREG+19*, NOREG+21, NOREG+22, NOREG+23
>> FREE NOREG+16*
>> GMTSTYP AFTERASK+21*
I NOREG+15~, ADM*
>> PRF NOREG+17*, NOREG+25*
>> PSOINST AFTERASK+34*
>> PSONOPG AFTERASK+33*
>> PSOPAR AFTERASK+33*
>> PSTYPE AFTERASK+33*
U NOREG+16, FAILCOND+17, FAILCOND+20, FAILCOND+23, AFTERASK+15, AFTERASK+17, AFTERASK+25, AFTERASK+26, AFTERASK+34
X NOREG+15~, FAILCOND+16*, FAILCOND+19*, AFTERASK+12~, AFTERASK+15*
Y NOREG+15~, AFTERASK+12~, AFTERASK+17, AFTERASK+20, AFTERASK+21, AFTERASK+31

Marked Items

Name Field # of Occurrence
$T(ENXQ^GMTSDVR FAILCOND+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All