DGREGAZL ;ALB/DW - ZIP LINKING UTILITY ; 5/27/04 10:54am
Source file <DGREGAZL.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | FIELD^DID, GET1^DIQ |
5.01 | FIND1^DIC |