Routine: DGREGTZL

Information

DGREGTZL ;ALB/BDB - 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)	;Let user edit zip+4, city, state, county based on zip-linking ; Output: RESULT(field#) = User Input External ^ Internal
ZIP(DFN)	;Let user input zip+4
ZAGN
CITY(RESULT,ZIP,DFN)	;Base on zip, let user input city(#FCITY) ; Input: ; ZIP - user input zip for the patient primary address ; DFN - Interal 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+30
UPCT^DGREGAED	SCAGN+6, FAGN+8
$$FOREIGN^DGREGAZL	ALWEDTTC+8
$$MLT^DGREGDD1	LINK+5, LINK+6, ALWEDTTC+7
UPCT^DGREGTED	ZAGN+5, CAGN1+2, CAGN2+6
$$FIND1^DIC	LINK+9
FIELD^DID	CITY+14
$$GET1^DIQ	CITY+17, CITY+37, FAGN+4, FAGN+12, FAGN+13, FAGN+14
^DIR	ZAGN+3, CAGN1, CAGN2+4, SCAGN+4, FAGN+6
POSTAL^XIPUTIL	ALWEDTTC+9
POSTALB^XIPUTIL	ZAGN+10, 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+14
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+3 CAGN1 CAGN2+4 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+27
^XUSEC("EAS GMT COUNTY EDIT"	ZAGN+8, CITY+34, CAGN2, ALWEDTTC+13

Label References

Name	Line Occurrences
$$ALWEDTTC	EN+19
$$CITY	EN+14
$$CNTY	SCAGN+9
$$FOREIGN	EN+7
$$ZIP	EN+11
CAGN1	CAGN1+2
CAGN2	CAGN2+6
FAGN	FAGN+8
FRGNEDT	EN+8
LINK	EN+26, STCNTY+5
SCAGN	SCAGN+6
STCNTY	EN+21
ZAGN	ZAGN+5, ZAGN+13

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+2, CITY+8~, CAGN2+3, FAGN+5*
DFN	EN~, EN+4, EN+8, EN+11, EN+14, EN+21, ZIP~, ZAGN+2, CITY~, CITY+17 , CITY+27, CITY+37, CAGN2+3, STCNTY~, FRGNEDT~, FAGN+4, FAGN+5, FAGN+12, FAGN+13, FAGN+14
DGABRV	CITY+9~, CITY+21*, CITY+22
DGALW	EN+5~, EN+19*, EN+20, EN+25
DGCIEN	CNTY~, CNTY+3, CNTY+5, CNTY+6
DGCITI	CITY+11~, CITY+20, CITY+22, CITY+23, CITY+24
DGCITY	CITY+9~
DGCITY("LABEL"	CITY+38
DGCNTY	CITY+9~
DGDATA	ZAGN~, ZAGN+10, CITY+8~, CITY+13, LINK+2~, LINK+8
DGDATA(	CITY+19, CITY+20, CITY+21, CITY+23, CITY+28, CAGN2+12, LINK+9, LINK+11, LINK+12, LINK+13 , LINK+14, LINK+15
DGDATA("ERROR"	ZAGN+13, CITY+16, CAGN1+5
DGDFLT	EN+5~, EN+26, STCNTY+3~, STCNTY+5
DGDFLT(	EN+27, EN+28, SCAGN+3
DGECH	CITY+9~, CITY+24, CITY+25, CITY+32
DGELEVEN	CITY+10~, CITY+27*, CITY+28, CITY+29, CITY+30, CITY+31
DGIND	EN+3~, EN+14, EN+15, EN+21, CITY+8~, CITY+12, CAGN1+4, CAGN2+14
DGINPUT	FRGNEDT~, FRGNEDT+1!
DGINPUT(	FAGN+9, FAGN+13, FAGN+15, FAGN+16
DGN	EN+5~, EN+6, EN+10, CITY+9~, CITY+15, CITY+19, CITY+20, CITY+21, CITY+23, CITY+24 , CITY+26, CITY+32, CAGN2+10, CAGN2+11, CAGN2+12, 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+5~, EN+8, EN+9, EN+14, EN+16, EN+17, EN+21!, EN+22, CNTY+4~, CNTY+5* , CNTY+6
DGR(	EN+10, EN+23, EN+24
DGSAME	CITY+10~, CITY+18, CITY+22, CITY+27
DGSOC	CITY+9~, CITY+25, CITY+32, CITY+35*, CITY+36
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+3~, EN+15, CITY+26*, CITY+28, CITY+32
DGZIP	EN+5~, EN+11, EN+12, EN+13, EN+14, EN+19, EN+21, EN+26, ZAGN+6, ZAGN+8 , ZAGN+9, ZAGN+10, ZAGN+15
DIR	ZAGN~, CITY+8~, CAGN2+1~, STCNTY+3~, FRGNEDT+2~
DIR("A"	CITY+38*
DIR("B"	CITY+37, SCAGN+3, FAGN+4*
DIR(0	ZAGN+1, CITY+36, CAGN2+2, SCAGN, SCAGN+2, FAGN+1, FAGN+3*
DIROUT	ZAGN~, ZAGN+5, CITY+8~, CAGN1+2, CAGN2+6, STCNTY+3~, SCAGN+6, FRGNEDT+2~, FAGN+8
DOLDCITY	CITY+10~, CITY+17*, CITY+22, CITY+32
DTOUT	ZAGN~, ZAGN+4, CITY+8~, CAGN1+1, CAGN2+5, STCNTY+3~, SCAGN+5, FRGNEDT+2~, FAGN+7
DUOUT	ZAGN~, ZAGN+5, CITY+8~, CAGN1+2, CAGN2+6, STCNTY+3~, SCAGN+6, FRGNEDT+2~, FAGN+8
DUZ	EN+19, ZAGN+8, CITY+30, CITY+34, 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+10, EN+17, CITY+14, CITY+17, CITY+37, CAGN2+2, FRGNEDT+4, FAGN+9
>> FCOUNTY	EN+10, EN+24, EN+28, LINK+15, STCNTY+6, SCAGN+1, SCAGN+2, SCAGN+9, FRGNEDT+4, FAGN , FAGN+2, FAGN+4, FAGN+5, FAGN+16
>> FSTATE	EN+10, EN+23, EN+27, LINK+14, STCNTY+6, SCAGN, SCAGN+8, FRGNEDT+4, FAGN+10, FAGN+12 , FAGN+13, FAGN+14, FAGN+15
>> FZIP	EN+10, EN+13, 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+2!, EN+4, EN+9, EN+12, EN+16, EN+22, CITY~, CITY+7!, CAGN1+1 , CAGN1+3, CAGN2+5, CAGN2+7, CAGN2+8, CAGN2+11, CAGN2+12, LINK~, LINK+1!, STCNTY~, STCNTY+1! , SCAGN+10, CNTY+3, CNTY+4~, CNTY+6, CNTY+7, FAGN+17*
RESULT(	EN+10, EN+13, EN+17, EN+23, EN+24, EN+27, EN+28, LINK+14, LINK+15, SCAGN+7 , SCAGN+9*
>> TYPE	ALWEDTTC+14, ALWEDTTC+15
U	CITY+28, CITY+29, CITY+30, CITY+31, 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+6, CITY+8~, CAGN1+4, CAGN1+5, CAGN2+1~, CAGN2+7, CAGN2+10, 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