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 |
