Routine: DGCOL

Information

DGCOL ;ALB/MRL,ARF,RN,JAM - COLLATERAL PATIENT ENTRY-EDIT ; 04 MAY 87

Package	Total	Call Graph
Registration	6	REGONLY^DGEN $$FINDCUR^DGENA EN^DGREGAED $$EN^DGREGEEWS EN^DGRPD $$ISRTAUON^DGRTAUPD
VA FileMan	5	^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR
Kernel	1	$$NOW^XLFDT
Master Patient Index VistA	1	$$GETICN^MPIF001

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG COLLATERAL PATIENT

Entry Points

Name	Comments	DBIA/ICR reference
1
EN
ASK
H
ED
EDRTA	; DG5.31143 - Edit of Mailing address data with Real-time address update active ; FLG(1)=1 will allow the user to enter/edit Home and Office phone
AD
ENRRO	;DG5.3993 - Ask for SELF-SUPPORTED REGISTRATION ONLY REASON
VET
ECPS
Q
WARNING()	;Add WARNING message to notify user of possible patient identity edits

External References

Name	Field # of Occurrence
REGONLY^DGEN	ENRRO+25
$$FINDCUR^DGENA	ENRRO+6
EN^DGREGAED	EDRTA+2
$$EN^DGREGEEWS	ENRRO+16
EN^DGRPD	EN+1
$$ISRTAUON^DGRTAUPD	ASK+2
^DIC	1+1
YN^DICN	ASK, H
^DIE	EN+5, ED, ED+3, ED+4, ED+5
$$GET1^DIQ	ED+2
^DIR	ENRRO+21, WARNING+7
$$GETICN^MPIF001	ENRRO+13
$$NOW^XLFDT	ENRRO+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: 1+0
Function Call: WRITE	Prompt: !!,"COLLATERAL VETERAN SPONSOR NAME IS UNSPECIFIED!!",*7 Line Location: EN+5
Function Call: WRITE	Prompt: !!,"APPLICANT ADDRESS DATA",?45,"SPONSOR ADDRESS DATA",!,"----------------------",?45,"--------------------" Line Location: EN+6
Function Call: WRITE	Prompt: !,$P(AD(I),"^",1),?45,$P(AD(I),"^",2) Line Location: EN+7
Function Call: WRITE	Prompt: !!,"Phone: ",$S($P(DGPHON,"^",1)]"":$P(DGPHON,"^",1),1:"UNKNOWN"),?45,"Phone: ",$S($P(DGPHON,"^",2)]"":$P(DGPHON,"^",2),1:"UNKNOWN") Line Location: EN+9
Function Call: WRITE	Prompt: !!,"SPONSOR: ",$P(^DPT(DGCOLV,0),"^",1),", ",$E($P(^(0),"^",9),1,3),"-",$E($P(^(0),"^",9),4,5),"-",$E($P(^(0),"^",9),6,10) Line Location: EN+10
Function Call: WRITE	Prompt: !!,"DO YOU WISH TO EDIT COLLATERAL INFORMATION" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"ENTER 'Y'ES OR 'N'O" Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"SHOULD COLLATERAL PATIENT ADDRESS DATA BE SAME AS SPONSOR'S" Line Location: H+0
Function Call: WRITE	Prompt: !!,"Y - To stuff in sponsor's address data.",!,"N - To edit collateral address data",!,"^ - To QUIT." Line Location: H+1
Function Call: WRITE	Prompt: !!,"Sponsor address data entered..." Line Location: ED+1
Function Call: WRITE	Prompt: !!,"Sponsor address data entered..." Line Location: ED+2
Function Call: WRITE	Prompt: ! Line Location: ENRRO+4
Function Call: WRITE	Prompt: !,"This is a required field.",! Line Location: ENRRO+24
Function Call: WRITE	Prompt: !!,*7,"Patient is a veteran and therefore should not be classified utilizing this",!,"option. If this veteran has Other Entitled Eligibilities please insure that " Line Location: VET+0
Function Call: WRITE	Prompt: !,"the appropriate APPOINTMENT TYPE is selected at the time you make the",!,"appointment." Line Location: VET+1
Function Call: WRITE	Prompt: !!,*7,"Patient already has an eligibility code or period of service on file and",!,"therefore should not be classified using this option. If this veteran",!,"has Other Entitled Eligibilities, please insure that the" Line Location: ECPS+0
Function Call: WRITE	Prompt: " appropriate",!,"APPOINTMENT TYPE is selected at the time you make the appointment." Line Location: ECPS+1
Function Call: WRITE	Prompt: !!,?25,"WARNING!!" Line Location: WARNING+1
Function Call: WRITE	Prompt: !!,"The edits you are about to make may potentially change the identity of" Line Location: WARNING+2
Function Call: WRITE	Prompt: !,"this patient. Please verify that you have selected the correct patient" Line Location: WARNING+3
Function Call: WRITE	Prompt: !,"and ensure that supporting documentation exists for these changes." Line Location: WARNING+4
Routine Call	DIC Line Location: 1+1
Routine Call	DIE Line Location: EN+5 ED ED+3 ED+4 ED+5
Routine Call	DIR Line Location: ENRRO+21 WARNING+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(21 - [#21]	EN+1
^DIC(5 - [#5]	AD+3
^DIC(8 - [#8]	EN+1
^DPT - [#2]	1+2, EN+1, EN+5, EN+6, EN+8, EN+10, ED+2

Label References

Name	Line Occurrences
$$WARNING	EN+2
1	EN+3, EN+4, Q
AD	EN+7
ASK	ASK
ECPS	EN+1
ED	H
EDRTA	ASK+2
EN	EN+5
ENRRO	EN+11
H	H+1
Q	1+1, 1+2, EN, EN+5, ASK, H+1, ED, ED+2, EDRTA+2, VET+1
VET	EN

Naked Globals

Name	Field # of Occurrence
^(	EN+1, EN+6, EN+8, ED+2
^("VET"	1+2
^(0	EN+1, EN+10, AD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK, H, H+1, Q!
AD	Q!
AD(	EN+7, AD+3*
C	EN+6, EN+7, AD+1*, AD+3, Q!
D	AD+1, AD+2, AD+3, Q!
DA	EN+5, ED, ED+3, ED+4, ED+5*, Q!
DFN	1!, 1+2*, EN, EN+1, EN+5, EN+6, EN+8, ED, ED+2, ED+3 , ED+4, ED+5, EDRTA+2, ENRRO+6, ENRRO+13, ENRRO+25, Q
DGAD	EN+6*, EN+7, Q!
DGAD1	EN+6*, EN+7, ED+2, Q!
DGADD	ED+2*, Q!
DGADED	H*, ED, Q!
DGCOLV	EN+5, EN+6, EN+8, EN+10, ED+2, Q!
DGCURR	ENRRO+1~, ENRRO+6*, ENRRO+17
DGDIR	1, 1+1, 1+2, EN*, Q!
DGEANS	EN+2~*, EN+3
DGELG	EN+1*!, ECPS!
DGENRODT	ENRRO+1~, ENRRO+25*
DGENRRSN	ENRRO+1~, ENRRO+5, ENRRO+17, ENRRO+23, ENRRO+24, ENRRO+25
DGENSRCE	ENRRO+1~, ENRRO+25*
DGENSTAT	ENRRO+1~, ENRRO+16
DGKEY	ENRRO+1~, ENRRO+13*, ENRRO+16
DGNOCOL	EN+5*, Q!
DGNOW	ENRRO+1~, ENRRO+25*
DGPHON	EN+8*, EN+9, Q!
DGPS	EN+1*!, ECPS!
DGREQNAME	ENRRO+1~, ENRRO+14*, ENRRO+16
DGRESP	ENRRO+1~, ENRRO+15, ENRRO+16, ENRRO+17
DGRPOUT	EN+4!
DGVET	1+2*, EN, Q!
DGWSHTOEN	ENRRO+1~, ENRRO+16
DIC	1*, Q!
DIC("DR"	1*
DIC(0	1*
DIE	EN+5, ED, ED+3, ED+4, ED+5*, Q!
DIR	ENRRO+1~, ENRRO+18!, WARNING+5~
DIR("A"	ENRRO+19, WARNING+6
DIR("B"	WARNING+7*
DIR(0	ENRRO+20, WARNING+6
DLAYGO	1+1*!
DR	EN+5, ED, ED+3, ED+4, ED+5*, Q!
DTOUT	ENRRO+1~, ENRRO+22
DUOUT	ENRRO+1~, ENRRO+22
FLG	EDRTA+2~
FLG(1	EDRTA+2*
FLG(2	EDRTA+2*
I	EN+7, AD, AD+1, AD+2, AD+3, Q!
I1	Q!
P	EN+7*, AD+3, Q!
X	EN+7*, AD, AD+1, AD+3, ENRRO+1~, Q!
Y	1+1, 1+2, EN+5, ED, ENRRO+1~, ENRRO+22, ENRRO+23, Q!, WARNING+5~, WARNING+8

Customize PDF page

Package: Registration