Routine: DGREGTZL

Information

DGREGTZL ;ALB/BDB,JAM - Temporary & Confidential Address Edits API ; 11/30/11 10:00am

Package	Total	Call Graph
Registration	5	$$GETSITE^DGMTU4 UPCT^DGREGAED $$FOREIGN^DGREGAZL $$MLT^DGREGDD1 UPCT^DGREGTED
VA FileMan	4	$$FIND1^DIC FIELD^DID $$GET1^DIQ ^DIR
Kernel	3	(POSTAL,POSTALB)^XIPUTIL $$STA^XUAF4 $$KSP^XUPARAM

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: 2

Package	Total	Caller Graph
Registration	2	DGREGRED DGREGTED

Entry Points

Name	Comments	DBIA/ICR reference
EN(RESULT,DFN,DGDEFZIP,DGDEFCITY)	;Let user edit zip+4, city, state, county based on zip-linking ; DG5.31143 - Added 3rd and 4th input parameters - If RTA is active, these are the default values to display for zip code and city ; Output: RESULT(field#) = User Input External ^ Internal
ZIP(DFN)	;Let user input zip+4
ZAGN
CITY(RESULT,ZIP,DFN)	;Based on zip, let user input city(#FCITY) ; Input: ; ZIP - user input zip for the patient's primary address ; DFN - Internal entry number of Patient File (#2) ; Output:RESULT=-1 (input error or timed or ^ out) ; or =user input city ; Array index # of selected city.
CAGN1
CAGN2
LINK(RESULT,ZIP,DGN)	;From zip, get the linked state,county
STCNTY(RESULT,ZIP,DFN,DGNUM)	;Based on zip,input state (#FSTATE) and county (#FCOUNTY)
SCAGN
CNTY(DGST,DGCIEN)	;Return county name and code
FOREIGN()	;Manila (Philippines) doesn't need zip linking.
FRGNEDT(DGINPUT,DFN)	;Edit zip+4, city, state, county for no zip-linking area
FAGN
ALWEDTTC(DUZ,ZIP)	; determine if a security key is necessary for editing ; Input: zip code ; Output: 1: allow edit state and county ; 0: don't allow edit state and county

External References

Name	Field # of Occurrence
$$GETSITE^DGMTU4	CITY+32
UPCT^DGREGAED	SCAGN+6, FAGN+8
$$FOREIGN^DGREGAZL	ALWEDTTC+8
$$MLT^DGREGDD1	LINK+5, LINK+6, ALWEDTTC+7
UPCT^DGREGTED	ZAGN+7, CAGN1+2, CAGN2+9
$$FIND1^DIC	LINK+9
FIELD^DID	CITY+14
$$GET1^DIQ	CITY+19, CITY+41, CAGN2+3, FAGN+4, FAGN+12, FAGN+13, FAGN+14
^DIR	ZAGN+5, CAGN1, CAGN2+7, SCAGN+4, FAGN+6
POSTAL^XIPUTIL	ALWEDTTC+9
POSTALB^XIPUTIL	ZAGN+12, CITY+13, LINK+8
$$STA^XUAF4	FOREIGN+3
$$KSP^XUPARAM	FOREIGN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: ZAGN+16
Function Call: WRITE	Prompt: !,$S(TYPE="TEMP":"TEMPORARY ",TYPE="CONF":"CONFIDENTIAL ",1:"")_"STATE: ",$G(EASDATA("STATE")) Line Location: ALWEDTTC+14
Function Call: WRITE	Prompt: !,$S(TYPE="TEMP":"TEMPORARY ",TYPE="CONF":"CONFIDENTIAL ",1:"")_"COUNTY: ",$G(EASDATA("COUNTY")) Line Location: ALWEDTTC+15
Routine Call	DIC Line Location: LINK+9
Routine Call	DIR Line Location: ZAGN+5 CAGN1 CAGN2+7 SCAGN+4 FAGN+6

FileNo	Call Tags
^DPT - [#2]	FIELD^DID, GET1^DIQ
5.01	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	LINK+11, LINK+13, CNTY+5
^DPT - [#2]	CITY+29
^XUSEC("EAS GMT COUNTY EDIT"	ZAGN+10, CITY+36, CAGN2, ALWEDTTC+13

Label References

Name	Line Occurrences
$$ALWEDTTC	EN+20
$$CITY	EN+15
$$CNTY	SCAGN+9
$$FOREIGN	EN+8
$$ZIP	EN+12
CAGN1	CAGN1+2
CAGN2	CAGN2+9
FAGN	FAGN+8
FRGNEDT	EN+9
LINK	EN+27, STCNTY+5
SCAGN	SCAGN+6
STCNTY	EN+22
ZAGN	ZAGN+7, ZAGN+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNTYIEN	LINK+2~, LINK+3, LINK+9, LINK+10, LINK+13*, LINK+15
DA	ZAGN+4, CITY+8~, CAGN2+6, FAGN+5*
DFN	EN~, EN+5, EN+9, EN+12, EN+15, EN+22, ZIP~, ZAGN+4, CITY~, CITY+19 , CITY+29, CITY+41, CAGN2+3, CAGN2+6, STCNTY~, FRGNEDT~, FAGN+4, FAGN+5, FAGN+12, FAGN+13 , FAGN+14
DGABRV	CITY+9~, CITY+23*, CITY+24
DGALW	EN+6~, EN+20*, EN+21, EN+26
DGCIEN	CNTY~, CNTY+3, CNTY+5, CNTY+6
DGCITI	CITY+11~, CITY+22, CITY+24, CITY+25, CITY+26
DGCITY	CITY+9~
DGCITY("LABEL"	CITY+42, CAGN2+4
DGCNTY	CITY+9~
DGDATA	ZAGN~, ZAGN+12, CITY+8~, CITY+13, LINK+2~, LINK+8
DGDATA(	CITY+21, CITY+22, CITY+23, CITY+25, CITY+30, CAGN2+15, LINK+9, LINK+11, LINK+12, LINK+13 , LINK+14, LINK+15
DGDATA("ERROR"	ZAGN+15, CITY+16, CAGN1+5
DGDEFCITY	EN~, CITY+19, CITY+41, CAGN2+3
DGDEFZIP	EN~, ZAGN+3
DGDFLT	EN+6~, EN+27, STCNTY+3~, STCNTY+5
DGDFLT(	EN+28, EN+29, SCAGN+3
DGECH	CITY+9~, CITY+26, CITY+27, CITY+34
DGELEVEN	CITY+10~, CITY+29*, CITY+30, CITY+31, CITY+32, CITY+33
DGIND	EN+4~, EN+15, EN+16, EN+22, CITY+8~, CITY+12, CAGN1+4, CAGN2+17
DGINPUT	FRGNEDT~, FRGNEDT+1!
DGINPUT(	FAGN+9, FAGN+13, FAGN+15, FAGN+16
DGN	EN+6~, EN+7, EN+11, CITY+9~, CITY+15, CITY+21, CITY+22, CITY+23, CITY+25, CITY+26 , CITY+28, CITY+34, CAGN2+13, CAGN2+14, CAGN2+15, LINK~, LINK+4, LINK+5, LINK+6, LINK+7 , LINK+9, LINK+11, LINK+12, LINK+13, LINK+14, LINK+15, STCNTY+3~, STCNTY+6, SCAGN, SCAGN+1 , SCAGN+2, SCAGN+3, SCAGN+7, SCAGN+8, SCAGN+9, FRGNEDT+2~, FRGNEDT+4*, FAGN, FAGN+1, FAGN+2 , FAGN+5, FAGN+9, FAGN+10, FAGN+16
DGNUM	STCNTY~, STCNTY+2*, STCNTY+5
DGR	EN+6~, EN+9, EN+10, EN+15, EN+17, EN+18, EN+22!, EN+23, CNTY+4~, CNTY+5* , CNTY+6
DGR(	EN+11, EN+24, EN+25
DGSAME	CITY+10~, CITY+20, CITY+24, CITY+29
DGSOC	CITY+9~, CITY+27, CITY+34, CITY+37*, CITY+38
DGST	CITY+9~, STCNTY+3~, SCAGN+1, SCAGN+8, SCAGN+9, CNTY~, CNTY+3, CNTY+5, FRGNEDT+2~, FAGN , FAGN+11, FAGN+12, FAGN+13, FAGN+14, FAGN+15
DGTOT	EN+4~, EN+16, CITY+28*, CITY+30, CITY+34
DGZIP	EN+6~, EN+12, EN+13, EN+14, EN+15, EN+20, EN+22, EN+27, ZAGN+8, ZAGN+10 , ZAGN+11, ZAGN+12, ZAGN+17
DIR	ZAGN~, CITY+8~, CAGN2+1~, STCNTY+3~, FRGNEDT+2~
DIR("A"	CITY+42, CAGN2+4
DIR("B"	ZAGN+3, CITY+41, CAGN2+3, SCAGN+3, FAGN+4*
DIR(0	ZAGN+1, CITY+38, CAGN2+5, SCAGN, SCAGN+2, FAGN+1, FAGN+3*
DIROUT	ZAGN~, ZAGN+7, CITY+8~, CAGN1+2, CAGN2+9, STCNTY+3~, SCAGN+6, FRGNEDT+2~, FAGN+8
DOLDCITY	CITY+10~, CITY+19*, CITY+24, CITY+34
DTOUT	ZAGN~, ZAGN+6, CITY+8~, CAGN1+1, CAGN2+8, STCNTY+3~, SCAGN+5, FRGNEDT+2~, FAGN+7
DUOUT	ZAGN~, ZAGN+7, CITY+8~, CAGN1+2, CAGN2+9, STCNTY+3~, SCAGN+6, FRGNEDT+2~, FAGN+8
DUZ	EN+20, ZAGN+10, CITY+32, CITY+36, CAGN2, ALWEDTTC~, ALWEDTTC+6, ALWEDTTC+13
EASDATA	ALWEDTTC+4~, ALWEDTTC+9
EASDATA("COUNTY"	ALWEDTTC+15
EASDATA("ERROR"	ALWEDTTC+10
EASDATA("FIPS	CODE" , ALWEDTTC+11
EASDATA("STATE"	ALWEDTTC+12, ALWEDTTC+14
>> FCITY	EN+11, EN+18, CITY+14, CITY+19, CITY+41, CAGN2+3, CAGN2+5, FRGNEDT+4, FAGN+9
>> FCOUNTY	EN+11, EN+25, EN+29, LINK+15, STCNTY+6, SCAGN+1, SCAGN+2, SCAGN+9, FRGNEDT+4, FAGN , FAGN+2, FAGN+4, FAGN+5, FAGN+16
>> FSTATE	EN+11, EN+24, EN+28, LINK+14, STCNTY+6, SCAGN, SCAGN+8, FRGNEDT+4, FAGN+10, FAGN+12 , FAGN+13, FAGN+14, FAGN+15
>> FZIP	EN+11, EN+14, ZAGN+1, FRGNEDT+4, FAGN+9
POP	STCNTY+3~, STCNTY+4, STCNTY+6, SCAGN+5, SCAGN+10, FRGNEDT+2~, FRGNEDT+3, FRGNEDT+4, FAGN+7, FAGN+17
RESULT	EN~, EN+3!, EN+5, EN+10, EN+13, EN+17, EN+23, CITY~, CITY+7!, CAGN1+1 , CAGN1+3, CAGN2+8, CAGN2+10, CAGN2+11, CAGN2+14, CAGN2+15, LINK~, LINK+1!, STCNTY~, STCNTY+1! , SCAGN+10, CNTY+3, CNTY+4~, CNTY+6, CNTY+7, FAGN+17*
RESULT(	EN+11, EN+14, EN+18, EN+24, EN+25, EN+28, EN+29, LINK+14, LINK+15, SCAGN+7 , SCAGN+9*
>> TYPE	ALWEDTTC+14, ALWEDTTC+15
U	CITY+30, CITY+31, CITY+32, CITY+33, LINK+14, LINK+15, SCAGN+3, SCAGN+7, SCAGN+8, SCAGN+9 , CNTY+6, FAGN+11, FAGN+13, FAGN+15, FAGN+16
X	CAGN2+1~, STCNTY+3~, FRGNEDT+2~
Y	ZAGN+8, CITY+8~, CAGN1+4, CAGN1+5, CAGN2+1~, CAGN2+10, CAGN2+13, STCNTY+3~, SCAGN+7, SCAGN+8 , FRGNEDT+2~, FAGN+9, FAGN+11, FAGN+16
Y(0	CAGN1+3, FAGN+15
ZIP	CITY~, CITY+13, LINK~, LINK+5, LINK+6, LINK+8, STCNTY~, STCNTY+5, ALWEDTTC~, ALWEDTTC+5 , ALWEDTTC+7, ALWEDTTC+9

Customize PDF page

Package: Registration