Routine: DG1010PA

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

Package

Total

Call Graph

VA Fileman

^DIC YN^DICN ^DIR

Registration

($$MTPRMPT,$$SEL1010)^DG1010P ASK^DGBLRV

Health Summary

ENXQ^GMTSDVR

Package	Total	Caller Graph
Registration	2	DG1010P DGREG00

Package

Total

Caller Graph

Registration

DG1010P DGREG00

Entry Points

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

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

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

Customize PDF page

Package: Registration

Routine: DG1010PA

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items