DGREGTZL ;ALB/BDB - Temporary & Confidential Address Edits API ; 11/30/11 10:00am
Source file <DGREGTZL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(RESULT,DFN) | ;Let user edit zip+4, city, state, county based on zip-linking
; 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(#FCITY)
; Input: ; ZIP - user input zip for the patient primary address ; DFN - Interal entry number of Patient File (#2) ; 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 (#FSTATE) and county (#FCOUNTY)
|
|
| 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
|
|
| FAGN | ||
| ALWEDTTC(DUZ,ZIP) | ; determine if a security key is necessary for editing
; Input: zip code ; Output: 1: allow edit state and county ; 0: don't allow edit state and county |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | FIELD^DID, GET1^DIQ |
| 5.01 | FIND1^DIC |
