Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ZAGN+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIELD^DID,  GET1^DIQ
5.01 FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call