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

Package: Registration

Routine: DGREGAZL


Information

DGREGAZL ;ALB/DW,JAM - ZIP LINKING UTILITY ; 5/27/04 10:54am

Source Information

Source file <DGREGAZL.m>

Call Graph

Call Graph

Call Graph Total: 10

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

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

Package Total Caller Graph
Registration 7 DGREGAED  DGREGCP1  DGREGDD1  DGREGRED  DGREGTE2  DGREGTZL  DGRTAUPD  

Entry Points

Name Comments DBIA/ICR reference
EN(RESULT,DFN,DGDEFZIP,DGDEFCITY) ;Let user edit zip+4, city, state, county based on zip-linking
; DFN optional for defaults
; DG*5.3*1143 - 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(#.114)
; Input:
; ZIP - user input zip for the patient primary address
; DFN - Internal entry number of Patient File (#2)
; (optional, used for default)
; 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 (#.115) and county (#.117)
; DFN optional for default
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
; DFN optional for default
FAGN

External References

Name Field # of Occurrence
$$GETSITE^DGMTU4 CITY+40
UPCT^DGREGAED ZAGN+7, CAGN1+2, CAGN2+8, SCAGN+6, FAGN+8
$$ALWEDT^DGREGDD1 EN+20
$$MLT^DGREGDD1 LINK+5, LINK+6
$$FIND1^DIC LINK+9
FIELD^DID CITY+18
$$GET1^DIQ CITY+22, CITY+51, CAGN2+3, FAGN+4, FAGN+12, FAGN+13, FAGN+14
^DIR ZAGN+5, CAGN1, CAGN2+6, SCAGN+4, FAGN+6
POSTALB^XIPUTIL ZAGN+12, CITY+15, 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
Routine Call
  • DIC
  • Line Location:
    • LINK+9
Routine Call
  • DIR
  • Line Location:
    • ZAGN+5
    • CAGN1
    • CAGN2+6
    • 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+37
^XUSEC("EAS GMT COUNTY EDIT" ZAGN+10, CITY+44, CAGN2

Label References

Name Line Occurrences
$$CITY EN+16
$$CNTY SCAGN+9
$$FOREIGN EN+9
$$ZIP EN+13
CAGN1 CAGN1+2
CAGN2 CAGN2+8
FAGN FAGN+8
FRGNEDT EN+10
LINK EN+27, STCNTY+6
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+9~, CAGN2+5*, FAGN+5*
DFN EN~, EN+6*, EN+10, EN+13, EN+16, EN+22, ZIP~, ZAGN+4, CITY~, CITY+22
, CITY+37, CITY+51, CAGN2+3, CAGN2+5, STCNTY~, FRGNEDT~, FAGN+4, FAGN+5, FAGN+12, FAGN+13
, FAGN+14
DGABRV CITY+10~, CITY+26*, CITY+27
DGALW EN+7~, EN+20*, EN+21, EN+26
DGCIEN CNTY~, CNTY+3, CNTY+5, CNTY+6
DGCITI CITY+13~, CITY+25*, CITY+27, CITY+32*, CITY+34
DGCITY CITY+10~
DGCITY("LABEL" CITY+52
DGCNTY CITY+10~
DGDATA ZAGN~, ZAGN+12, CITY+9~, CITY+15, LINK+2~, LINK+8
DGDATA( CITY+24, CITY+25, CITY+26, CITY+32, CITY+38, CAGN2+12, LINK+9, LINK+11, LINK+12, LINK+13
, LINK+14, LINK+15
DGDATA("ERROR" ZAGN+15, CITY+20, CAGN1+5
DGDEFCITY EN~, CITY+22, CITY+51, CAGN2+3
DGDEFZIP EN~, ZAGN+3
DGDFLT EN+7~, EN+27, STCNTY+4~, STCNTY+6
DGDFLT( EN+28, EN+29, SCAGN+3
DGECH CITY+10~, CITY+34*, CITY+35, CITY+42*
DGELEVEN CITY+11~, CITY+37*, CITY+38, CITY+39, CITY+40, CITY+41
DGIND EN+5~, EN+16*, EN+17*, EN+22, CITY+9~, CITY+14*, CAGN1+4*, CAGN2+13
DGINPUT FRGNEDT~, FRGNEDT+2!
DGINPUT( FAGN+9*, FAGN+13*, FAGN+15*, FAGN+16*
DGN EN+7~, EN+8*, EN+12*, CITY+10~, CITY+19*, CITY+24*, CITY+25, CITY+26, CITY+32, CITY+34
, CITY+36, CITY+42*, 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+4~, STCNTY+7*, SCAGN, SCAGN+1, SCAGN+2
, SCAGN+3, SCAGN+7, SCAGN+8, SCAGN+9, FRGNEDT+3~, FRGNEDT+5*, FAGN, FAGN+1, FAGN+2, FAGN+5
, FAGN+9, FAGN+10, FAGN+16
DGNUM STCNTY~, STCNTY+3*, STCNTY+6
DGR EN+7~, EN+10, EN+11, EN+16, EN+18, EN+19, EN+22!, EN+23, CNTY+4~, CNTY+5*
, CNTY+6
DGR( EN+12, EN+24, EN+25
DGSAME CITY+11~, CITY+23*, CITY+27*, CITY+37
DGSOC CITY+10~, CITY+35*, CITY+42*, CITY+45*, CITY+46
DGST CITY+10~, STCNTY+4~, SCAGN+1, SCAGN+8*, SCAGN+9, CNTY~, CNTY+3, CNTY+5, FRGNEDT+3~, FAGN
, FAGN+11*, FAGN+12, FAGN+13, FAGN+14, FAGN+15
DGTOT EN+5~, EN+17, CITY+36*, CITY+38, CITY+42
DGZIP EN+7~, EN+13*, EN+14, EN+15, EN+16, EN+20, EN+22, EN+27, ZAGN+8*, ZAGN+10
, ZAGN+11, ZAGN+12, ZAGN+17
DIR ZAGN~, CITY+9~, CAGN2+1~, STCNTY+4~, FRGNEDT+3~
DIR("A" CITY+52*
DIR("B" ZAGN+3*, CITY+51*, CAGN2+3*, SCAGN+3*, FAGN+4*
DIR(0 ZAGN+1*, CITY+46*, CAGN2+4*, SCAGN*, SCAGN+2*, FAGN+1*, FAGN+3*
DIROUT ZAGN~, ZAGN+7, CITY+9~, CAGN1+2, CAGN2+8, STCNTY+4~, SCAGN+6, FRGNEDT+3~, FAGN+8
DOLDCITY CITY+11~, CITY+22*, CITY+27, CITY+42
DTOUT ZAGN~, ZAGN+6, CITY+9~, CAGN1+1, CAGN2+7, STCNTY+4~, SCAGN+5, FRGNEDT+3~, FAGN+7
DUOUT ZAGN~, ZAGN+7, CITY+9~, CAGN1+2, CAGN2+8, STCNTY+4~, SCAGN+6, FRGNEDT+3~, FAGN+8
DUZ EN+20, ZAGN+10, CITY+40, CITY+44, CAGN2
POP STCNTY+4~, STCNTY+5*, STCNTY+7, SCAGN+5*, SCAGN+10, FRGNEDT+3~, FRGNEDT+4*, FRGNEDT+5, FAGN+7*, FAGN+17
RESULT EN~, EN+4!, EN+11*, EN+14*, EN+18*, EN+23*, CITY~, CITY+8!, CAGN1+1*, CAGN1+3*
, CAGN2+7*, CAGN2+9*, CAGN2+10, CAGN2+12*, LINK~, LINK+1!, STCNTY~, STCNTY+2!, SCAGN+10*, CNTY+3*
, CNTY+4~, CNTY+6*, CNTY+7, FAGN+17*
RESULT( EN+12*, EN+15*, EN+19*, EN+24*, EN+25*, EN+28*, EN+29*, LINK+14*, LINK+15*, SCAGN+7*
, SCAGN+9*
U CITY+38, CITY+39, CITY+40, CITY+41, 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+4~, FRGNEDT+3~
Y ZAGN+8, CITY+9~, CAGN1+4, CAGN1+5, CAGN2+1~, CAGN2+9, CAGN2+11, STCNTY+4~, SCAGN+7, SCAGN+8
, FRGNEDT+3~, FAGN+9, FAGN+11, FAGN+16
Y(0 CAGN1+3, FAGN+15
ZIP CITY~, CITY+15, LINK~, LINK+5, LINK+6, LINK+8, STCNTY~, STCNTY+6
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