DGREGAZL ;ALB/DW - ZIP LINKING UTILITY ; 5/27/04 10:54am
Source file <DGREGAZL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 | 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | FIELD^DID, GET1^DIQ |
| 5.01 | FIND1^DIC |
| 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 |
| >> | 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 |
