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

Package Total Caller Graph
Registration 6 DGREGAED  DGREGCP1  DGREGDD1  DGREGRED  DGREGTE2  DGREGTZL  

Entry Points

Name Comments DBIA/ICR reference
EN(RESULT,DFN) ;Let user edit zip+4, city, state, county based on zip-linking
; DFN optional for defauls
; 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(#.114)
; Input:
; ZIP - user input zip for the patient primary address
; DFN - Interal 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+39
UPCT^DGREGAED ZAGN+5, CAGN1+2, CAGN2+6, SCAGN+6, FAGN+8
$$ALWEDT^DGREGDD1 EN+19
$$MLT^DGREGDD1 LINK+5, LINK+6
$$FIND1^DIC LINK+9
FIELD^DID CITY+18
$$GET1^DIQ CITY+21, CITY+48, FAGN+4, FAGN+12, FAGN+13, FAGN+14
^DIR ZAGN+3, CAGN1, CAGN2+4, SCAGN+4, FAGN+6
POSTALB^XIPUTIL ZAGN+10, 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+14
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+36
^XUSEC("EAS GMT COUNTY EDIT" ZAGN+8, CITY+43, CAGN2

Label References

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