Routine: DGPAR

Package	Total	Call Graph
VA Fileman	3	^DIC DT^DICRW IX1^DIK
Health Summary	1	ENXQ^GMTSDVR
Kernel	1	^%ZIS
Registration	1	(,DEV)^DGPAR1

Package	Total	Caller Graph
Registration	2	DG PARAMETER ENTRY DGPAR1

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	WR
^DGPAR1	DIV+3
DEV^DGPAR1	DIV+2
^DIC	WR+27
DT^DICRW	WR
IX1^DIK	DGPAR+2
ENXQ^GMTSDVR	WR+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,DGHEAD,! Line Location: WR+1
Function Call: WRITE	Prompt: X Line Location: WR+1
Function Call: WRITE	Prompt: !,"[1] Medical Center Name : ",$S($D(^DG(40.8,+$P(DGNOD("GL"),"^",3),0)):$P(^(0),"^",1),1:"NONE SPECIFIED"),?59,"Affiliated: ",$S(+$P(DGNOD("GL"),"^",4):"YES",1:"NO") Line Location: WR+2
Function Call: WRITE	Prompt: !?4,"Multidivisional : ",$S(+$P(DGNOD("GL"),"^",2):"YES",1:"NO") Line Location: WR+3
Function Call: WRITE	Prompt: !?4,"Nursing Home Wards : ",$S(+$P(DGNOD(0),"^",20):"YES",1:"NO") Line Location: WR+4
Function Call: WRITE	Prompt: ?52,"Domiciliary Wards: ",$S(+$P(DGNOD(0),"^",21):"YES",1:"NO") Line Location: WR+5
Function Call: WRITE	Prompt: !?4,"System Timeout Sec. : ",+$P(DGNOD(0),"^",5),?51,"Print PTF Messages: ",$S($P(DGNOD(0),"^",31):"YES",1:"NO") Line Location: WR+6
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"NONE SPECIFIED") Line Location: WR+7
Function Call: WRITE	Prompt: !?4,"Default PTF Printer : ",$S($P(DGNOD(0),"^",19)]"":$P(DGNOD(0),"^",19),1:"NONE SPECIFIED"),?55,"High Intensity: ",$S($P(DGNOD(0),"^",36):"ON",1:"OFF") Line Location: WR+8
Function Call: WRITE	Prompt: !?4,"Consistency Checker : ",$S($P(DGNOD(0),"^",37):"ON",1:"OFF"),?50,"Abbreviated Inquiry: ",$S($P(DGNOD(0),"^",38):"YES",1:"NO") Line Location: WR+9
Function Call: WRITE	Prompt: ?45,"Maintain G&L Corrections: " Line Location: WR+12
Function Call: WRITE	Prompt: !?4,"Disposition late",?31,": " Line Location: WR+12
Function Call: WRITE	Prompt: ?51,"Supplemental 10/10: " Line Location: WR+13
Function Call: WRITE	Prompt: !?4,"Ask HINQ at Registration",?31,": " Line Location: WR+14
Function Call: WRITE	Prompt: ?46,"DRUG PROFILE with 10/10: " Line Location: WR+15
Function Call: WRITE	Prompt: !?4,"CHOICE OF DRUG PROFILE?",?31,": " Line Location: WR+17
Function Call: WRITE	Prompt: $S(X="A":"ACTION",1:"INFO.") Line Location: WR+19
Function Call: WRITE	Prompt: !?4,"Ask EMBOSS at Registration : " Line Location: EMB+0
Function Call: WRITE	Prompt: ?50,"Use Nearest Printer: " Line Location: EMB+1
Function Call: WRITE	Prompt: !?4,"Reg. Template (LOCAL)",?31,": ",$S('$P(DGNOD(0),"^",35):"NONE SPECIFIED",'$D(^DIE(+$P(DGNOD(0),"^",35),0)):"NONE SPECIFIED",1:$P(^DIE(+$P(DGNOD(0),"^",35),0),"^",1)) Line Location: EMB+2
Function Call: WRITE	Prompt: ?53,"Use Temp Address: ",$S($P(DGNOD("BT"),"^",3):"YES",1:"NO") Line Location: EMB+3
Function Call: WRITE	Prompt: !?4,"Default Code Sheet Printer : ",$S($P(DGNOD(0),"^",25)]"":$P(DGNOD(0),"^",25),1:"NONE SPECIFIED"),?51,"Ask Device in Reg.: ",$S($P(DGNOD(0),"^",39):"YES",1:"NO") Line Location: EMB+4
Function Call: WRITE	Prompt: ?49,"Print Encounter Form",?31,": " Line Location: EMB+6
Function Call: WRITE	Prompt: !?4,"Default EF Printer",?31,": ",$S($P(DGNOD(0),"^",48)]"":$P(DGNOD(0),"^",48),1:"NONE SPECIFIED") Line Location: EMB+7
Function Call: WRITE	Prompt: !?4,"Restrict PATIENT access : ",$S($P($G(DGNOD("REC")),U)=1:"YES",1:"NO") Line Location: REC+1
Function Call: WRITE	Prompt: !?4,"Purple Heart Sort",?31,": ",$S($P($G(DGNOD("PH")),U)="A":"Ascending",1:"Descending") Line Location: REC+2
Function Call: WRITE	Prompt: !!?4,"[Pre-Registration]" Line Location: PREREG+1
Function Call: WRITE	Prompt: !?4,"Sort Method",?31,": ",$P($G(DGNOD("DGPRE")),U),?46,"Background Job Function: ",$P($G(DGNOD("DGPRE")),U,3) Line Location: PREREG+2
Function Call: WRITE	Prompt: !?4,"Days Between Calls",?31,": ",$P($G(DGNOD("DGPRE")),U,2),?41,"Days to Maintain Log Entries: ",$P($G(DGNOD("DGPRE")),U,4) Line Location: PREREG+3
Function Call: WRITE	Prompt: !?4,"Days to Pull Appointments",?31,": ",$P($G(DGNOD("DGPRE")),U,5),?54,"Run for Weekend: ",$S($P($G(DGNOD("DGPRE")),U,6):"YES",1:"NO") Line Location: PREREG+4
Function Call: WRITE	Prompt: !!?4,"Excluded Clinics:" Line Location: PREREG+7
Function Call: WRITE	Prompt: !?4,$E($P(^SC(NDX,0),U),1,20) Line Location: PREREG+11
Function Call: WRITE	Prompt: ?30,$E($P(^SC(NDX,0),U),1,20) Line Location: PREREG+12
Function Call: WRITE	Prompt: ?55,$E($P(^SC(NDX,0),U),1,20) Line Location: PREREG+13
Function Call: WRITE	Prompt: !!?4,"Excluded Eligibilities:" Line Location: PREREG+16
Function Call: WRITE	Prompt: !?4,$E($P(^DIC(8,NDX,0),U),1,20) Line Location: PREREG+20
Function Call: WRITE	Prompt: ?30,$E($P(^DIC(8,NDX,0),U),1,20) Line Location: PREREG+21
Function Call: WRITE	Prompt: ?55,$E($P(^DIC(8,NDX,0),U),1,20) Line Location: PREREG+22
Function Call: WRITE	Prompt: !?15 Condition for execution: $L(X)>(65-$X) Line Location: DIV+1
Function Call: WRITE	Prompt: X Line Location: DIV+1
Function Call: WRITE	Prompt: "FOREVER" Line Location: DAY+0
Function Call: WRITE	Prompt: DGD,"-",DGX1,$S(DGD=1:"",1:"S") Line Location: DAY+1
Routine Call	DIC Line Location: WR+27
Routine Call	%ZIS Line Location: WR

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	WR+20
^DG(40.8 - [#40.8]	WR+2, DIV+1, DIV+2
^DG(43 - [#43]	DGPAR+2*, WR, WR+1, WR+11, WR+16, WR+19, WR+26, EMB+5, PREREG+6, PREREG+10 , PREREG+15, PREREG+19
^DIC(8 - [#8]	PREREG+20, PREREG+21, PREREG+22
^DIE - [#.402]	EMB+2
^SC - [#44]	PREREG+11, PREREG+12, PREREG+13

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	DGPAR+2*
>> DGD	DIV+2, DAY, DAY+1
>> DGDV	DIV+2*
>> DGHEAD	WR*, WR+1
DGHSFLG	WR+20*, WR+21, WR+22, WR+29!
>> DGMULT	WR+2*, DIV+1, DIV+2
>> DGNOD(	WR+1*
>> DGNOD("BT"	EMB+3
>> DGNOD("DGPRE"	PREREG+2, PREREG+3, PREREG+4
>> DGNOD("GL"	WR+2, WR+3, DIV+2
>> DGNOD("PH"	REC+2
>> DGNOD("REC"	REC+1
>> DGNOD(0	WR+2, WR+4, WR+5, WR+6, WR+8, WR+9, WR+10, EMB+2, EMB+4, EMB+7 , DAY, DO, DO+1
>> DGPTFP	WR+2*
>> DGX	WR+11, WR+12, WR+13, WR+14, WR+15, WR+17, WR+24, EMB, EMB+1, EMB+5 , EMB+6*, DAY, DO, DO+1
>> DGX1	WR+12*, DAY+1
>> DGZE	DIV+2*
DIC	WR+23~, WR+26*
DIC(0	WR+26*
>> DIK	DGPAR+2*
>> I	WR+1, DIV+1
IOF	WR+1
IOP	WR*!
LNDX	PREREG+8~, PREREG+9, PREREG+11, PREREG+12, PREREG+13, PREREG+17~, PREREG+18, PREREG+20, PREREG+21, PREREG+22
NDX	PREREG+8~, PREREG+10, PREREG+11, PREREG+12, PREREG+13, PREREG+17~, PREREG+19, PREREG+20, PREREG+21, PREREG+22
U	WR*, WR+11, WR+16, WR+19, WR+26, WR+28, REC+1, REC+2, PREREG+2, PREREG+3 , PREREG+4, PREREG+6, PREREG+11, PREREG+12, PREREG+13, PREREG+15, PREREG+20, PREREG+21, PREREG+22
X	WR+1, WR+19, WR+20, WR+23~, WR+26, DIV+1*
Y	WR+23~, WR+28

Customize PDF page

Package: Registration

Routine: DGPAR

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
DO
EMB
PREREG	; write pre-registration parameters
WR
REC	;Write PATIENT (#2) file record access parameter
DIV	; write division parameters
DAY

Name	Line Occurrences
DAY	WR+12
DO	WR+13, WR+14, WR+15, WR+17, WR+24, EMB, EMB+1, EMB+6

Name	Field # of Occurrence
^(	WR+1, DIV+1
^("DEV"	DIV+2
^("VERSION"	WR
^(0	WR+2, WR+11, EMB+5, DIV+1, DIV+2