Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGREGTZL

Package: Registration

Routine: DGREGTZL


Information

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

Source Information

Source file <DGREGTZL.m>

Call Graph

Call Graph

Call Graph Total: 12

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All