Routine: DGRPD

Package	Total	Call Graph
Registration	14	$$CVEDT^DGCV $$INDSTATUS^DGENELA2 GETHBP^DGHBPUTL DOM^DGMTR DIS^DGMTU (CS,INP)^DGPMV10 $$EN^DGREGEEWS $$COUNTY^DGRPCADD ($$OKLINE,CATDIS,EC,HDR)^DGRPD1 AL^DGRPU WW1^DGRPV $$PCTEAM^DGSDUTL ($$INACTIVE,$$PTR2TEXT)^DGUTL4 (DEM,IN5,KVA)^VADPT
VA FileMan	7	$$EZBLD^DIALOG ^DIC $$GET1^DID $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ ^DIR ^DIWP
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
Enrollment Application System	1	DIS^EASECU
Integrated Billing	1	DISP^IBARXEU
Master Patient Index VistA	1	$$GETICN^MPIF001
Scheduling	1	$$SDAPI^SDAMA301

Package	Total	Caller Graph
Registration	8	DG PATIENT INQUIRY DG10 DGCOL DGOERR PATIENT INQUIRY DGPREP2 DGREG DGSWITCH VAFCEHLM
Accounts Receivable	1	RCTCSWL
Automated Medical Information Exchange	1	DVBA REG OFF PATIENT INQ
Barcode Medication Administration	1	PSBOPI
Clinical Information Resource Network	1	RGEX03
Imaging	1	MAGGTCPR
Kernel	1	^ORD(101
Order Entry Results Reporting	1	ORCXPND1
Outpatient Pharmacy	1	PSOCPF2
Womens Health	1	WVFACE

Name	Field # of Occurrence
$$CVEDT^DGCV	EN+112
$$INDSTATUS^DGENELA2	EN+159
GETHBP^DGHBPUTL	HBP+4
DOM^DGMTR	EN+166
DIS^DGMTU	EN+168
CS^DGPMV10	INP+2
INP^DGPMV10	INP
$$EN^DGREGEEWS	EN+119
$$COUNTY^DGRPCADD	EN+17, EN+19, EN+46, EN+49
$$OKLINE^DGRPD1	EN+81, EN+106, EN+110, EN+141, EN+144, EN+147, EN+150, EN+165, EN+174, EN+175 , SA, RMK, RMK+8
CATDIS^DGRPD1	EN+149
EC^DGRPD1	RMK+8
HDR^DGRPD1	EN+3
AL^DGRPU	EN+10, EN+28, EN+37
WW1^DGRPV	EN+13
$$PCTEAM^DGSDUTL	EN+155
$$INACTIVE^DGUTL4	EN+92, EN+99
$$PTR2TEXT^DGUTL4	EN+93, EN+100
$$EZBLD^DIALOG	EN+159
^DIC	SEL
$$GET1^DID	EN+71
$$EXTERNAL^DILFD	EN+22, EN+82
$$GET1^DIQ	SOGI+3, SOGI+11, SOGI+16, SOGI+17
GETS^DIQ	RMK+1, SOGI+7
^DIR	SEL
^DIWP	EN+94, EN+101, HBP+12
DIS^EASECU	EN+172
DISP^IBARXEU	EN+170
$$GETICN^MPIF001	EN+118
$$SDAPI^SDAMA301	FA+3
DEM^VADPT	EN+3
IN5^VADPT	EN+169
KVA^VADPT	Q
$$FMTE^XLFDT	EN+113, EN+154, SAA+4, FA+16
$$REPEAT^XLFSTR	EN+152, EN+157

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SEL+0
Function Call: WRITE	Prompt: " Residential Address: " Line Location: EN+8
Function Call: WRITE	Prompt: ?40,"Mailing Address: " Line Location: EN+9
Function Call: WRITE	Prompt: !?5 Line Location: EN+11
Function Call: WRITE	Prompt: $S($D(DGA(2)):DGA(2),1:"NO PERMANENT MAILING ADDRESS") Line Location: EN+13
Function Call: WRITE	Prompt: DGA(I) Line Location: EN+15
Function Call: WRITE	Prompt: !?5,"County: "_DGCC Line Location: EN+18
Function Call: WRITE	Prompt: ?44,"County: "_DGCC Line Location: EN+20
Function Call: WRITE	Prompt: !?6,"Phone: ",$S($P(DGRP(.13),U,1)]"":$P(DGRP(.13),U,1),1:DGRPU) Line Location: EN+21
Function Call: WRITE	Prompt: ?42,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$P(DGRP(.11),U,16)) Line Location: EN+22
Function Call: WRITE	Prompt: !?5,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU) Line Location: EN+23
Function Call: WRITE	Prompt: ?46,"Cell: ",$S($P(DGRP(.13),U,4)]"":$P(DGRP(.13),U,4),1:DGRPU) Line Location: EN+24
Function Call: WRITE	Prompt: !?44,"E-mail: ",$S($P(DGRP(.13),U,3)]"":$P(DGRP(.13),U,3),1:DGRPU) Line Location: EN+25
Function Call: WRITE	Prompt: !! Line Location: EN+26
Function Call: WRITE	Prompt: " Temporary Mailing Address: " Line Location: EN+38
Function Call: WRITE	Prompt: ?40,"Confidential Mailing Address: " Line Location: EN+39
Function Call: WRITE	Prompt: !?5 Line Location: EN+40
Function Call: WRITE	Prompt: $S($D(DGA(1)):DGA(1),1:"NO TEMPORARY MAILING ADDRESS") Line Location: EN+41
Function Call: WRITE	Prompt: ?44,$S($D(DGA(2)):DGA(2),1:"NONE ON FILE") Line Location: EN+41
Function Call: WRITE	Prompt: DGA(I) Line Location: EN+43
Function Call: WRITE	Prompt: ! Line Location: EN+44
Function Call: WRITE	Prompt: ?45,"Phone: ",$S($P(DGRP(.141),U,9)'="Y":"NOT APPLICABLE",CONACT'="Y":"NOT APPLICABLE",$P(DGRP(.13),U,15)]"":$P(DGRP(.13),U,15),1:DGRPU) Line Location: EN+54
Function Call: WRITE	Prompt: !?2,"From/To: ",X Line Location: EN+61
Function Call: WRITE	Prompt: ?43,"From/To: "_DGX Line Location: EN+67
Function Call: WRITE	Prompt: !?41,"Confidential Address Categories: " Line Location: EN+68
Function Call: WRITE	Prompt: !!?4,"POS: ",$S($D(^DIC(21,+$P(DGRP(.32),"^",3),0)):$P(^(0),"^",1),1:DGRPU),?42,"Claim #: ",$S($P(DGRP(.31),"^",3)]"":$P(DGRP(.31),"^",3),1:"UNSPECIFIED") Line Location: EN+84
Function Call: WRITE	Prompt: !?2,"Relig: ",$S($D(^DIC(13,+$P(DGRP(0),"^",8),0)):$P(^(0),"^",1),1:DGRPU),?46 Line Location: EN+85
Function Call: WRITE	Prompt: ! Line Location: EN+87
Function Call: WRITE	Prompt: !,?9,$G(RACE(X,0)),?51,$G(ETHNIC(X,0)) Line Location: EN+105
Function Call: WRITE	Prompt: !!,?2,"Combat Vet Status: "_$S($P(DGCV,U,3)=1:"ELIGIBLE",$P(DGCV,U,3)="":"NOT ELIGIBLE",1:"EXPIRED") Line Location: EN+113
Function Call: WRITE	Prompt: ?45,"End Date: "_$$FMTE^XLFDT($P(DGCV,U,2),"5DZ") Line Location: EN+113
Function Call: WRITE	Prompt: !,?1,"COMPACT Act Status: "_ELIG Line Location: EN+130
Function Call: WRITE	Prompt: !,"Primary Eligibility: ",$S($D(^DIC(8,+X1,0)):$P(^(0),"^",1)_" ("_$S(X="V":"VERIFIED",X="P":"PENDING VERIFICATION",X="R":"PENDING REVERIFICATION",1:"NOT VERIFIED")_")",1:DGRPU) Line Location: EN+133
Function Call: WRITE	Prompt: !,"Other Eligibilities: " Line Location: EN+134
Function Call: WRITE	Prompt: !?21 Condition for execution: $X+$L(X)>79 Line Location: EN+139
Function Call: WRITE	Prompt: X Line Location: EN+139
Function Call: WRITE	Prompt: !?6,"Unemployable: ",$S($P(DGRP(.3),U,5)="Y":"YES",1:"NO") Line Location: EN+143
Function Call: WRITE	Prompt: !?6,"Permanent & Total Disabled: ",$S($P(DGRP(.3),U,4)="Y":"YES",1:"NO") Line Location: EN+146
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: EN+152
Function Call: WRITE	Prompt: !,"[PRE-REGISTER DATE:] "_$S(DGPDT]"":$$FMTE^XLFDT(DGPDT,"1D"),1:"NONE ON FILE") Line Location: EN+154
Function Call: WRITE	Prompt: !,"[PRIMARY CARE TEAM:] "_$P(DGPTM,U,2) Line Location: EN+156
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: EN+157
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(261133) Line Location: EN+159
Function Call: WRITE	Prompt: ! Line Location: EN+171
Function Call: WRITE	Prompt: !!?14,"Scheduled Admit" Line Location: SAA+1
Function Call: WRITE	Prompt: " on "_$$FMTE^XLFDT(L,"5DZ") Line Location: SAA+4
Function Call: WRITE	Prompt: !!,"Currently enrolled in " Condition for execution: SDCT=1 Line Location: CL+0
Function Call: WRITE	Prompt: !?22 Condition for execution: $X>50 Line Location: CL+0
Function Call: WRITE	Prompt: $S($D(^SC(+^(0),0)):$P(^(0),"^",1)_", ",1:"") Line Location: CL+0
Function Call: WRITE	Prompt: !!,"Future Appointments: " Line Location: FA+3
Function Call: WRITE	Prompt: "Appointment Database is Unavailable" Line Location: FA+8
Function Call: WRITE	Prompt: "NONE" Line Location: FA+9
Function Call: WRITE	Prompt: ?22,"Date",?33,"Time",?39,"Clinic",!?22 Line Location: FA+11
Function Call: WRITE	Prompt: "=" Line Location: FA+11
Function Call: WRITE	Prompt: !,"See Scheduling options for additional appointments." Line Location: FA+20
Function Call: WRITE	Prompt: !!,"Remarks: ",$P(^DPT(DFN,0),"^",10) Line Location: RMK+0
Function Call: WRITE	Prompt: !! Line Location: RMK+2
Function Call: WRITE	Prompt: "Date of Death Information" Line Location: RMK+3
Function Call: WRITE	Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E")) Line Location: RMK+4
Function Call: WRITE	Prompt: !,?5,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E")) Line Location: RMK+5
Function Call: WRITE	Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E")) Line Location: RMK+6
Function Call: WRITE	Prompt: !,?5,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),! Line Location: RMK+7
Function Call: WRITE	Prompt: !!,"VHA Profiles Currently Assigned to Veteran:" Line Location: HBP+1
Function Call: WRITE	Prompt: !,?3,DGLINE Line Location: HBP+14
Function Call: WRITE	Prompt: !,?3,"None" Line Location: HBP+17
Function Call: WRITE	Prompt: !!,"Language Date/Time: ",$S(DGLANGDT="":"UNANSWERED",1:DGLANGDT),! Line Location: L1+0
Function Call: WRITE	Prompt: ?1,"Preferred Language: ",$S(DGPRFLAN="":"UNANSWERED",1:DGPRFLAN) Line Location: L1+1
Function Call: WRITE	Prompt: !,"Birth Sex : ",$$GET1^DIQ(2,DFN,".02","E") Line Location: SOGI+3
Function Call: WRITE	Prompt: !,"Sexual Orientation: " Line Location: SOGI+5
Function Call: WRITE	Prompt: !,"Sexual Orientation Description: ",$$GET1^DIQ(2,DFN,".0251","E") Line Location: SOGI+11
Function Call: WRITE	Prompt: !,"Pronoun: " Line Location: SOGI+12
Function Call: WRITE	Prompt: !,"Pronoun Description: ",$$GET1^DIQ(2,DFN,".24061","E") Line Location: SOGI+16
Function Call: WRITE	Prompt: !,"Self-Identified Gender Identity: ",$$GET1^DIQ(2,DFN,".024","E") Line Location: SOGI+17
Routine Call	DIALOG Line Location: EN+159
Routine Call	DIC Line Location: SEL
Routine Call	DIR Line Location: SEL

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, EXTERNAL^DILFD, GET1^DIQ, GETS^DIQ
2.025	GETS^DIQ
2.141	GET1^DID

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+57, EN+58, EN+65, EN+66, LANGUAGE+6
^DG(43 - [#43]	EN+3
^DG(47.78 - [#47.78]	SOGI+15
^DGHBP(25.11 - [#25.11]	HBP+8
^DGS(41.1 - [#41.1]	SA
^DGS(41.41 - [#41.41]	EN+153
^DIC(13 - [#13]	EN+85
^DIC(21 - [#21]	EN+84
^DIC(42 - [#42]	SAA+2
^DIC(45.7 - [#45.7]	SAA+3
^DIC(8 - [#8]	EN+124, EN+133, EN+137
^DPT - [#2]	EN+2, EN+5, EN+68, EN+72, EN+73, EN+74, EN+82, EN+90, EN+91, EN+93 , EN+97, EN+98, EN+100, EN+123, CL, RMK, LANGUAGE+2, LANGUAGE+4, LANGUAGE+5, SOGI+6 , SOGI+13, SOGI+14
^DPT("AEL"	EN+136, EN+138
^SC - [#44]	CL
^TMP($J	FA+8, FA+9, FA+12, FA+13, FA+14, FA+18, FA+20, RMK+11!, COV
^UTILITY($J	EN+89!, EN+95, EN+96!, EN+102, EN+103!, HBP+12!, HBP+13, HBP+14, HBP+15!

Name	Line Occurrences
CL	SA
COV	FA+15
EN	SEL, OREN
FA	CL
HBP	RMK+10
INP	EN+174
L1	LANGUAGE+3
LANGUAGE	EN+109
Q	SEL, EN+81, EN+106, EN+110, EN+141, EN+144, EN+147, EN+150, EN+165
RMK	FA+8, FA+9, FA+12
SA	EN+175
SAA	SA
SEL	SEL
SOGI	EN+108

Name	Field # of Occurrence
^(	EN+5, CL, SOGI+6
^(0	EN+3, EN+84, EN+85, EN+133, SAA+2, SAA+3, CL

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	Q!
ADM	RMK+11!
C	FA+14*, RMK+11!
CONACT	EN+29~, EN+31, EN+32, EN+36, EN+54, EN+63, EN+70
COV	FA+18, RMK+11!, COV, COV+1
CT	FA+3, FA+12, RMK+11!, COV+1
D0	Q!
D1	Q!
DFN	SEL!, EN+2, EN+5, EN+68, EN+72, EN+73, EN+74, EN+82, EN+90, EN+91 , EN+93, EN+97, EN+98, EN+100, EN+112, EN+118, EN+123, EN+136, EN+138, EN+153 , EN+155, EN+159, EN+168, EN+170, EN+172, SA, CL, FA+2, FA+9, FA+12 , FA+13, FA+14, FA+18, FA+20, RMK, RMK+1, RMK+4, RMK+5, RMK+6, RMK+7 , HBP+4, COV, OREN, LANGUAGE+2, LANGUAGE+4, LANGUAGE+5, SOGI+3, SOGI+6, SOGI+7, SOGI+8 , SOGI+9, SOGI+10, SOGI+11, SOGI+13, SOGI+14, SOGI+16, SOGI+17
DGA	EN+27!, Q!
DGA(	EN+15, EN+43
DGA(1	EN+13, EN+41, EN+45
DGA(2	EN+13, EN+41, EN+48
DGA1	EN+10, EN+27!, EN+28, EN+37*, Q!
DGA2	EN+10, EN+27!, EN+28, EN+37*, Q!
DGABBRV	EN+3*, EN+84, EN+85, EN+87, Q!
DGACT	EN+60~, EN+74, EN+75, EN+77
DGAD	EN+10, EN+28, EN+37*, Q!
DGAPPT	FA+16~*, FA+17
DGARRAY	FA+1~, FA+3, RMK+11!
DGARRAY("FLDS"	FA+2*
DGARRAY("SORT"	FA+2*
DGARRAY(1	FA+2*
DGARRAY(4	FA+2*
DGBEG	EN+60~, EN+65*
DGCABEG	EN+34~, EN+35*, EN+36
DGCAEND	EN+34~, EN+35*, EN+36
DGCAN	EN+60~, EN+72*, EN+73, EN+74
DGCAT	EN+60~, EN+71*, EN+76
DGCC	EN+16~, EN+17, EN+18, EN+19, EN+20, EN+46, EN+47, EN+49, EN+50, Q!
DGCMOR	EN+2*, Q!
DGCNT	HBP+2~, HBP+13*, HBP+14
DGCOMP	EN+115~, EN+116*, EN+119, EN+128, EN+129
DGCOUNT	HBP+2~, HBP+3, HBP+16, HBP+17
DGCV	EN+112~*, EN+113
DGD	RMK+11!
DGD1	RMK+11!
DGDOM	EN+164~, EN+167, Q!
DGDOM1	EN+164~
DGEMER	EN+82~*, EN+83
DGEND	EN+60~, EN+66*
DGHBIEN	HBP+2~, HBP+7*, HBP+8
DGHBP	HBP+2~, HBP+5*, HBP+7, HBP+8, HBP+9
DGHOW	EN+3!
DGI	EN+34~, EN+64, EN+65, EN+66, EN+76, EN+78*
DGKEY	EN+115~, EN+116, EN+118, EN+119
DGLANG0	LANGUAGE+1, LANGUAGE+5, L1+2!
DGLANGDA	LANGUAGE+4*, LANGUAGE+5, L1+2!
DGLANGDT	LANGUAGE+1, LANGUAGE+2, LANGUAGE+3, LANGUAGE+4, LANGUAGE+6*, L1, L1+2!
DGLINE	HBP+2~, HBP+14*
DGLN	HBP+2~, HBP+14*
DGLOCATN	Q!
DGMPI	EN+2*, Q!
DGPDT	EN+151~, EN+153*, EN+154
DGPMDCD	INP+2!
DGPMIFN	INP+2!
DGPMT	INP+1*, INP+2!
DGPMVI	INP+2!
DGPNAME	HBP+2~, HBP+8, HBP+9, HBP+11
DGPRFLAN	LANGUAGE+1, LANGUAGE+5, L1+1, L1+2!
>> DGPRFLG	EN+150
DGPTM	EN+151~, EN+155*, EN+156
DGREQNAME	EN+115~, EN+116, EN+118, EN+119
DGRESP	EN+115~, EN+116, EN+119, EN+121, EN+127
DGRP	EN+17, EN+19, EN+46, EN+49, Q!
DGRP(	EN+5*, EN+21, EN+22, EN+23, EN+24, EN+25, EN+28, EN+31, EN+35, EN+53 , EN+54, EN+56, EN+57, EN+58, EN+64, EN+84, EN+133, EN+143, EN+146
DGRP(0	EN+85
DGRPOUT	SEL!, EN+3!, EN+175, SA, RMK
DGRPU	EN+3*, EN+21, EN+23, EN+24, EN+25, EN+53, EN+54, EN+58, EN+59, EN+84 , EN+85, EN+133, Q!
DGS	Q!
DGSOI	SOGI+7~
DGSOI(	SOGI+8, SOGI+9, SOGI+10
DGST	Q!
>> DGSWITCH	INP+2
DGTYP	EN+60~, EN+74*, EN+77
DGTYPNAM	EN+60~, EN+76, EN+77
DGX	EN+60~, EN+62, EN+64, EN+65, EN+66, EN+67, EN+72, EN+77, EN+78
DGXFR0	Q!
DGXX	EN+60~, EN+78*, EN+79
DGZ	EN+60~, EN+64*
DIC	SEL*, Q!
DIC(0	SEL*
DIR	Q!
DIR(0	SEL*
DIROUT	Q!
DIRUT	Q!
DIS	RMK+11!
DIWF	EN+88~, EN+94, EN+101, HBP+12*
DIWL	EN+88~, EN+94, EN+101, HBP+12*
DIWR	EN+88~, EN+94, EN+101, HBP+12*
DT	EN+36, EN+170, SA, FA+2, FA+9, FA+12
DTIME	OREN
DTOUT	SEL, Q!
DUOUT	SEL, Q!
>> ELIG	EN+116, EN+123, EN+124, EN+128, EN+129, EN+130
ELIGSEQ	EN+115~, EN+116, EN+122, EN+123*, EN+124
EN	SOGI+2~, SOGI+6, SOGI+7, SOGI+8, SOGI+9, SOGI+10, SOGI+13, SOGI+14
ETHNIC	EN+88~, EN+102*
ETHNIC(	EN+105
ETHNIC(1	EN+102*, EN+104
FA	FA+12*, FA+13, FA+14, FA+16, FA+18, FA+20, RMK+11!, COV
HBP	HBP+2~
HBP("CUR"	HBP+5, HBP+7
I	EN+5, EN+15, EN+43, EN+135, EN+136, EN+137, EN+138, Q!, SA, CL* , FA+11*, RMK+11!
I1	EN+15, EN+43, Q!
L	Q!, SA*, SAA+4, RMK+11!
LDM	Q!
NOW	RMK+11!
>> ORVP	OREN
>> PDTHINFO(2	RMK+4, RMK+5, RMK+6, RMK+7
POP	Q!
PRN	SOGI+2~, SOGI+14*, SOGI+15
PTR	EN+88~, EN+90, EN+91, EN+93, EN+97, EN+98, EN+100
RACE	EN+88~, EN+95*
RACE(	EN+105
RACE(1	EN+95*, EN+104
SDCNT	FA+1~, FA+3*, RMK+11!
SDCT	Q!, CL*
SSN	RMK+11!
STAT	FA+13~*, FA+14, COV+1
SXO	SOGI+2~
TRN	RMK+11!
U	EN+21, EN+22, EN+23, EN+24, EN+25, EN+35, EN+53, EN+54, EN+56, EN+57 , EN+58, EN+113, EN+143, EN+146, EN+156, SAA+2, SAA+3, FA+13, FA+14, FA+18 , COV, LANGUAGE+5
VA	Q!
VAERR	EN+164~
VAHOW	EN+164~
VAINDT	EN+164~
VAIP	EN+164~
VAIP("D"	INP*
VAIP("L"	EN+173*
VAIP(1	EN+170
VAL	EN+88~, EN+91, EN+92, EN+93, EN+94, EN+98, EN+99, EN+100, EN+101
VAROOT	EN+164~
X	EN+55, EN+58, EN+59, EN+61, EN+88~, EN+94, EN+101, EN+105, EN+133, EN+135 , EN+137, EN+138, EN+139, Q!, SA, SAA+2, SAA+3, HBP+2~, HBP+11, OREN*
X1	EN+133*, EN+137, Q!
>> XQORQUIT	OREN*
Y	SEL~, EN+57, EN+58, EN+59, EN+64, EN+65, EN+66, Q!, LANGUAGE+5, LANGUAGE+6*
Z	EN+12~, EN+13*
Z1	EN+12~, EN+13*

Customize PDF page

Package: Registration

Routine: DGRPD

Information

Source Information

Call Graph

Call Graph Total: 27

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SEL
EN	;call to display patient inquiry - input DFN	ICR #2041 Status: Active Usage: Controlled Subscription ICR #6752 Status: Withdrawn Usage: Controlled Subscription ICR #10037 Status: Active Usage: Supported
Q
INP
SA
SAA	;Scheduled Admit Data
CL
FA	;
RMK
HBP	;W !!,"Veteran Medical Benefit Plan Currently Assigned to Veteran:" ;DG5.3987 HM
COV
OREN
LANGUAGE	; Get language data ///
L1
SOGI	;**1059 SOGI FIELDS TO BE DISPLAYED VAMPI-11114,VAMPI-11118,VAMPI-11120, VAMPI-11121