Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGREGAZL.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGREGAZL.m
r628 r636 1 1 DGREGAZL ;ALB/DW - ZIP LINKING UTILITY ; 5/27/04 10:54am 2 ;;5.3;Registration;**522,560,581,730 ,760**;Aug 13, 1993;Build 112 ;;5.3;Registration;**522,560,581,730**;Aug 13, 1993;Build 2 3 3 ; 4 4 EN(RESULT,DFN) ;Let user edit zip+4, city, state, county based on zip-linking … … 43 43 I DGZIP="" Q DGZIP 44 44 D POSTALB^XIPUTIL(DGZIP,.DGDATA) 45 ;DG*730 - later commented out by DG*76046 ;I $G(DGDATA(1,"CITY ABBREVIATION"))'="",$G(DGDATA(1,"CITY ABBREVIATION"))=$G(DGDATA(2,"CITY")) S DGDATA=1 K DGDATA(2)45 ;DG*730 46 I $G(DGDATA(1,"CITY ABBREVIATION"))'="",$G(DGDATA(1,"CITY ABBREVIATION"))=$G(DGDATA(2,"CITY")) S DGDATA=1 K DGDATA(2) 47 47 I $D(DGDATA("ERROR")) D G ZAGN 48 48 . W $C(7)," ??" … … 52 52 ; ZIP - user input zip for the patient primary address 53 53 ; DFN - Interal entry number of Patient File (#2) 54 ; Output:RESULT=-1 (input error or time dor ^ out)54 ; Output:RESULT=-1 (input error or times or ^ out) 55 55 ; or =user input city 56 56 ; Array index # of selected city. … … 59 59 N DGCITY,DGST,DGCNTY,DGABRV,DGN,DGECH,DGSOC 60 60 N DOLDCITY,DGSAME,DGELEVEN 61 ; DG*760 brought in DGCITI62 N DGCITI63 61 S DGIND="" 64 62 D POSTALB^XIPUTIL(ZIP,.DGDATA) 65 ;DG*730 - later commented out by DG*76066 ;I $G(DGDATA(1,"CITY ABBREVIATION"))'="",$G(DGDATA(1,"CITY ABBREVIATION"))=$G(DGDATA(2,"CITY")) S DGDATA=1 K DGDATA(2)63 ;DG*730 64 I $G(DGDATA(1,"CITY ABBREVIATION"))'="",$G(DGDATA(1,"CITY ABBREVIATION"))=$G(DGDATA(2,"CITY")) S DGDATA=1 K DGDATA(2) 67 65 D FIELD^DID(2,.114,"N","LABEL","DGCITY") 68 66 S DGN="" … … 71 69 . S DGSAME=0 72 70 . F S DGN=$O(DGDATA(DGN)) Q:DGN="" D 73 .. S DGCITI=$P($G(DGDATA(DGN,"CITY")),"*",1)74 71 .. S DGABRV=$G(DGDATA(DGN,"CITY ABBREVIATION")) 75 .. I DOLDCITY'="",DGCITI=DOLDCITY!(DGABRV=DOLDCITY) S DGSAME=1 76 .. ; next 4 commented out lines done by DG*760 77 .. ;I DGABRV="" S DGABRV=$P($G(DGDATA(DGN,"CITY")),"*",1) 78 .. ;I DOLDCITY'="",DGABRV=DOLDCITY S DGSAME=1 79 .. ;I $G(DGDATA(DGN,"CITY"))["*" S:DGABRV'="" DGABRV=DGABRV_"*" 80 .. I $G(DGDATA(DGN,"CITY"))["*" S DGCITI=DGCITI_"*" 81 .. ;S DGECH=DGN_":"_DGABRV 82 .. S DGECH=DGN_":"_DGCITI 72 .. I DOLDCITY'="",DGABRV=DOLDCITY S DGSAME=1 73 .. I DGABRV="" S DGABRV=$P($G(DGDATA(DGN,"CITY")),"*",1) 74 .. I DOLDCITY'="",DGABRV=DOLDCITY S DGSAME=1 75 .. I $G(DGDATA(DGN,"CITY"))["*" S:DGABRV'="" DGABRV=DGABRV_"*" 76 .. S DGECH=DGN_":"_DGABRV 83 77 .. S DGSOC=$S($G(DGSOC)="":DGECH,1:DGSOC_";"_DGECH) 84 78 .. S DGTOT=DGN … … 111 105 . I $D(DUOUT)!$D(DIROUT) D UPCT^DGREGAED G CAGN2 112 106 . S RESULT=$G(Y) 113 I $L($G(RESULT))>15 D 114 . S DGN=Y 115 . S RESULT=$G(DGDATA(DGN,"CITY ABBREVIATION")) 107 I $L($G(RESULT))>15 S RESULT=$E(RESULT,1,15) 116 108 Q DGIND 117 109 ;
Note:
See TracChangeset
for help on using the changeset viewer.