©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGREGAZL ;ALB/DW - ZIP LINKING UTILITY ; 5/27/04 10:54am
Source file <DGREGAZL.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 3 | DGREGAED DGREGDD1 DGREGTE2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FAGN | ||
| 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) ; Output:RESULT=-1 (input error or timed or ^ out) ; or =user input city ; Array index # of selected city. |
|
| EN(RESULT,DFN) | ;Let user edit zip+4, city, state, county based on zip-linking
; Output: RESULT(field#) = User Input External ^ Internal |
|
| FRGNEDT(DGINPUT,DFN) | ;Edit zip+4, city, state, county for no zip-linking area
|
|
| CAGN1 | ||
| CAGN2 | ||
| FOREIGN() | ;Manila (Philippines) doesn't need zip linking.
|
|
| ZIP(DFN) | ;Let user input zip+4
|
|
| STCNTY(RESULT,ZIP,DFN,DGNUM) | ;Based on zip,input state (#.115) and county (#.117)
|
|
| ZAGN | ||
| SCAGN | ||
| LINK(RESULT,ZIP,DGN) | ;From zip, get the linked state,county
|
|
| CNTY(DGST,DGCIEN) | ;Return county name and code
|
| Name | Field # of Occurrence |
|---|---|
| $$GETSITE^DGMTU4 | CITY+39 |
| UPCT^DGREGAED | ZAGN+5, CAGN1+2, CAGN2+6, SCAGN+6, FAGN+8 |
| $$ALWEDT^DGREGDD1 | EN+18 |
| $$MLT^DGREGDD1 | LINK+5, LINK+6 |
| $$FIND1^DIC | LINK+10 |
| 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 |
| POSTAL^XIPUTIL | ZAGN+10, CITY+14, LINK+8 |
| POSTALB^XIPUTIL | ZAGN+11, CITY+15, LINK+9 |
| $$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+12, LINK+14, CNTY+5 |
| ^DPT - [#2] | CITY+36 |
| ^XUSEC("EAS GMT COUNTY EDIT" | ZAGN+8, CITY+43, CAGN2 |
| Name | Line Occurrences |
|---|---|
| $$CITY | EN+14 |
| $$CNTY | SCAGN+9 |
| $$FOREIGN | EN+7 |
| $$ZIP | EN+11 |
| CAGN1 | CAGN1+2 |
| CAGN2 | CAGN2+6 |
| FAGN | FAGN+8 |
| FRGNEDT | EN+8 |
| LINK | EN+25, STCNTY+5 |
| SCAGN | SCAGN+6 |
| STCNTY | EN+20 |
| ZAGN | ZAGN+5, ZAGN+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNTYIEN | LINK+2~, LINK+3*, LINK+10*, LINK+11, LINK+14*, LINK+16 |
| DA | ZAGN+2*, CITY+8~, CAGN2+3*, FAGN+5* |
| DFN | EN~, EN+4, EN+8, EN+11, EN+14, EN+20, 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+9~, CITY+25*, CITY+26 |
| DGALW | EN+5~, EN+18*, EN+19, EN+24 |
| DGCIEN | CNTY~, CNTY+3, CNTY+5, CNTY+6 |
| DGCITI | CITY+12~, CITY+24*, CITY+26, CITY+31*, CITY+33 |
| DGCITY | CITY+9~ |
| DGCITY("LABEL" | CITY+49 |
| DGCNTY | CITY+9~ |
| DGDATA | ZAGN~, ZAGN+11, CITY+8~, CITY+15, LINK+2~, LINK+9 |
| DGDATA( | CITY+23, CITY+24, CITY+25, CITY+31, CITY+37, CAGN2+10, LINK+10, LINK+12, LINK+13, LINK+14 , LINK+15, LINK+16 |
| DGDATA("ERROR" | ZAGN+14, CITY+20, CAGN1+5 |
| DGDFLT | EN+5~, EN+25, STCNTY+3~, STCNTY+5 |
| DGDFLT( | EN+26, EN+27, SCAGN+3 |
| DGECH | CITY+9~, CITY+33*, CITY+34, CITY+41* |
| DGELEVEN | CITY+10~, CITY+36*, CITY+37, CITY+38, CITY+39, CITY+40 |
| DGIND | EN+3~, EN+14*, EN+15*, EN+20, CITY+8~, CITY+13*, CAGN1+4*, CAGN2+11 |
| DGINPUT | FRGNEDT~, FRGNEDT+1! |
| DGINPUT( | FAGN+9*, FAGN+13*, FAGN+15*, FAGN+16* |
| DGN | EN+5~, EN+6*, EN+10*, CITY+9~, 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+10 , LINK+12, LINK+13, LINK+14, LINK+15, LINK+16, STCNTY+3~, STCNTY+6*, SCAGN, SCAGN+1, SCAGN+2 , SCAGN+3, SCAGN+7, SCAGN+8, SCAGN+9, FRGNEDT+2~, FRGNEDT+4*, FAGN, FAGN+1, FAGN+2, FAGN+5 , FAGN+9, FAGN+10, FAGN+16 |
| DGNUM | STCNTY~, STCNTY+2*, STCNTY+5 |
| DGR | EN+5~, EN+8, EN+9, EN+14, EN+16, EN+17, EN+20!, EN+21, CNTY+4~, CNTY+5* , CNTY+6 |
| DGR( | EN+10, EN+22, EN+23 |
| DGSAME | CITY+10~, CITY+22*, CITY+26*, CITY+36 |
| DGSOC | CITY+9~, CITY+34*, CITY+41*, CITY+44*, CITY+45 |
| DGST | CITY+9~, STCNTY+3~, SCAGN+1, SCAGN+8*, SCAGN+9, CNTY~, CNTY+3, CNTY+5, FRGNEDT+2~, FAGN , FAGN+11*, FAGN+12, FAGN+13, FAGN+14, FAGN+15 |
| DGTOT | EN+3~, EN+15, CITY+35*, CITY+37, CITY+41 |
| DGZIP | EN+5~, EN+11*, EN+12, EN+13, EN+14, EN+18, EN+20, EN+25, ZAGN+6*, ZAGN+8 , ZAGN+9, ZAGN+11, ZAGN+16 |
| DIR | ZAGN~, CITY+8~, CAGN2+1~, STCNTY+3~, FRGNEDT+2~ |
| 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+8~, CAGN1+2, CAGN2+6, STCNTY+3~, SCAGN+6, FRGNEDT+2~, FAGN+8 |
| DOLDCITY | CITY+10~, CITY+21*, CITY+26, CITY+41 |
| DTOUT | ZAGN~, ZAGN+4, CITY+8~, CAGN1+1, CAGN2+5, STCNTY+3~, SCAGN+5, FRGNEDT+2~, FAGN+7 |
| DUOUT | ZAGN~, ZAGN+5, CITY+8~, CAGN1+2, CAGN2+6, STCNTY+3~, SCAGN+6, FRGNEDT+2~, FAGN+8 |
| DUZ | EN+18, ZAGN+8, CITY+39, CITY+43, CAGN2 |
| POP | STCNTY+3~, STCNTY+4*, STCNTY+6, SCAGN+5*, SCAGN+10, FRGNEDT+2~, FRGNEDT+3*, FRGNEDT+4, FAGN+7*, FAGN+17 |
| RESULT | EN~, EN+2!, EN+4*, EN+9*, EN+12*, EN+16*, EN+21*, CITY~, CITY+7!, CAGN1+1* , CAGN1+3*, CAGN2+5*, CAGN2+7*, CAGN2+8, CAGN2+10*, LINK~, LINK+1!, STCNTY~, STCNTY+1!, SCAGN+10* , CNTY+3*, CNTY+4~, CNTY+6*, CNTY+7, FAGN+17* |
| RESULT( | EN+10*, EN+13*, EN+17*, EN+22*, EN+23*, EN+26*, EN+27*, LINK+15*, LINK+16*, SCAGN+7* , SCAGN+9* |
| U | CITY+37, CITY+38, CITY+39, CITY+40, LINK+15, LINK+16, SCAGN+3, SCAGN+7, SCAGN+8, SCAGN+9 , CNTY+6, FAGN+11, FAGN+13, FAGN+15, FAGN+16 |
| X | CAGN2+1~, STCNTY+3~, FRGNEDT+2~ |
| Y | ZAGN+6, CITY+8~, CAGN1+4, CAGN1+5, CAGN2+1~, CAGN2+7, CAGN2+9, STCNTY+3~, SCAGN+7, SCAGN+8 , FRGNEDT+2~, FAGN+9, FAGN+11, FAGN+16 |
| Y(0 | CAGN1+3, FAGN+15 |
| ZIP | CITY~, CITY+15, LINK~, LINK+5, LINK+6, LINK+9, STCNTY~, STCNTY+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(POSTAL^XIPUTIL | ZAGN+10, CITY+14, LINK+8 |