DGRRPSAM.m

DGRRPSAM ; ALB/SGG - rtnDGRR PatientServices Address Main ; 09/30/03  ; Compiled October 2, 2003 16:00:54

 ;;5.3;Registration;**557,1015**;Aug 13, 1993;Build 21

 ;

DOC ;<DataSet Name='MainAddress'

 ;.111      STREET ADDRESS [LINE 1] (Fa), [.11;1]

 ;.112      STREET ADDRESS [LINE 2] (Fa), [.11;2]

 ;.113      STREET ADDRESS [LINE 3] (Fa), [.11;3]

 ;.114      CITY (Fa), [.11;4]

 ;.115      STATE (P5'a), [.11;5]

 ;.116      ZIP CODE (F), [.11;6]

 ;     .1112     ZIP+4 (FXOa), [.11;12]

 ;.117      COUNTY (NJ3,0XOa), [.11;7]

 ;.121      BAD ADDRESS INDICATOR (S), [.11;16]

 ;           '1' FOR UNDELIVERABLE;

 ;           '2' FOR HOMELESS; 

 ;           '3' FOR OTHER;

 ;.14105    CONFIDENTIAL ADDRESS ACTIVE? (RSX), [.141;9]

 ;.131      PHONE NUMBER [RESIDENCE] (Fa), [.13;1]

 ;.132      PHONE NUMBER [WORK] (Fa), [.13;2]

 ;

GETPSARY(PSARRAY) ;

 NEW CNT

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="<DataSet Name='MainAddress'"

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Street1^"_$$AMSTRE1()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Street2^"_$$AMSTRE2()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Street3^"_$$AMSTRE3()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^City^"_$$AMCITY()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^State^"_$$AMSTATE()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Zip^"_$$AMZIP()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^County^"_$$AMCOUNTY()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^StartDate^"

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^EndDate^"

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^BadAddressIndicator^"_$$AMBADIND()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^ConfidentialAddressActive^"_$$AMCNFAC()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^PhoneNumber^"

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^HomePhoneNumber^"_$$AMPHNHM()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^WorkPhoneNumber^"_$$AMPHNWK()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="></DataSet>"_"^^^1"

 QUIT

 ;

AMSTRE1() ;

 QUIT $P(GLOB(.11),"^",1)

 ;

AMSTRE2() ;

 QUIT $P(GLOB(.11),"^",2)

 ;

AMSTRE3() ;

 QUIT $P(GLOB(.11),"^",3)

 ;

AMCITY() ;

 QUIT $P(GLOB(.11),"^",4)

 ;

AMSTATE() ;

 NEW DATA

 SET DATA=$P(GLOB(.11),"^",5)

 IF DATA'="" SET DATA=$P($G(^DIC(5,DATA,0)),"^",2)

 QUIT DATA

 ;

AMZIP() ;

 NEW DATA

 SET DATA=$P(GLOB(.11),"^",12)

 IF DATA="" SET DATA=$P(GLOB(.11),"^",6)

 QUIT DATA

 ;

AMCOUNTY() ;

 NEW DATA,STATE

 SET STATE=$P(GLOB(.11),"^",5)

 SET DATA=$P(GLOB(.11),"^",7)

 IF DATA'="",STATE'="" SET DATA=$P($G(^DIC(5,STATE,1,DATA,0)),"^",1)

 QUIT DATA

 ;

AMBADIND() ;

 NEW DATA

 SET DATA=$P(GLOB(.11),"^",16)

 SET DATA=$S(DATA=1:"UNDELIVERABLE",DATA=2:"HOMELESS",DATA=3:"OTHER",1:"")

 QUIT DATA

 ;

AMCNFAC() ;

 NEW DATA

 SET DATA=$P(GLOB(.141),"^",9)

 SET DATA=$S(DATA="Y":"YES",1:"NO")

 QUIT DATA

 ;

AMPHNHM() ;

 QUIT $P(GLOB(.13),"^",1)

 ;

AMPHNWK() ;

 QUIT $P(GLOB(.13),"^",2)

DGRRPSAM  ; ALB/SGG - rtnDGRR PatientServices Address Main ; 09/30/03  ; Compiled October 2, 2003 16:00:54

 +1       ;;5.3;Registration;**557,1015**;Aug 13, 1993;Build 21

 +2       ;

DOC       ;<DataSet Name='MainAddress'

 +1       ;.111      STREET ADDRESS [LINE 1] (Fa), [.11;1]

 +2       ;.112      STREET ADDRESS [LINE 2] (Fa), [.11;2]

 +3       ;.113      STREET ADDRESS [LINE 3] (Fa), [.11;3]

 +4       ;.114      CITY (Fa), [.11;4]

 +5       ;.115      STATE (P5'a), [.11;5]

 +6       ;.116      ZIP CODE (F), [.11;6]

 +7       ;     .1112     ZIP+4 (FXOa), [.11;12]

 +8       ;.117      COUNTY (NJ3,0XOa), [.11;7]

 +9       ;.121      BAD ADDRESS INDICATOR (S), [.11;16]

 +10      ;           '1' FOR UNDELIVERABLE;

 +11      ;           '2' FOR HOMELESS; 

 +12      ;           '3' FOR OTHER;

 +13      ;.14105    CONFIDENTIAL ADDRESS ACTIVE? (RSX), [.141;9]

 +14      ;.131      PHONE NUMBER [RESIDENCE] (Fa), [.13;1]

 +15      ;.132      PHONE NUMBER [WORK] (Fa), [.13;2]

 +16      ;

GETPSARY(PSARRAY) ;

 +1        NEW CNT

 +2        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="<DataSet Name='MainAddress'"

 +3        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^Street1^"_$$AMSTRE1()

 +4        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^Street2^"_$$AMSTRE2()

 +5        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^Street3^"_$$AMSTRE3()

 +6        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^City^"_$$AMCITY()

 +7        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^State^"_$$AMSTATE()

 +8        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^Zip^"_$$AMZIP()

 +9        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^County^"_$$AMCOUNTY()

 +10       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^StartDate^"

 +11       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^EndDate^"

 +12       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^BadAddressIndicator^"_$$AMBADIND()

 +13       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^ConfidentialAddressActive^"_$$AMCNFAC()

 +14       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^PhoneNumber^"

 +15       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^HomePhoneNumber^"_$$AMPHNHM()

 +16       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^WorkPhoneNumber^"_$$AMPHNWK()

 +17       SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="></DataSet>"_"^^^1"

 +18       QUIT 

 +19      ;

AMSTRE1() ;

 +1        QUIT $PIECE(GLOB(.11),"^",1)

 +2       ;

AMSTRE2() ;

 +1        QUIT $PIECE(GLOB(.11),"^",2)

 +2       ;

AMSTRE3() ;

 +1        QUIT $PIECE(GLOB(.11),"^",3)

 +2       ;

AMCITY()  ;

 +1        QUIT $PIECE(GLOB(.11),"^",4)

 +2       ;

AMSTATE() ;

 +1        NEW DATA

 +2        SET DATA=$PIECE(GLOB(.11),"^",5)

 +3        IF DATA'=""

               SET DATA=$PIECE($GET(^DIC(5,DATA,0)),"^",2)

 +4        QUIT DATA

 +5       ;

AMZIP()   ;

 +1        NEW DATA

 +2        SET DATA=$PIECE(GLOB(.11),"^",12)

 +3        IF DATA=""

               SET DATA=$PIECE(GLOB(.11),"^",6)

 +4        QUIT DATA

 +5       ;

AMCOUNTY() ;

 +1        NEW DATA,STATE

 +2        SET STATE=$PIECE(GLOB(.11),"^",5)

 +3        SET DATA=$PIECE(GLOB(.11),"^",7)

 +4        IF DATA'=""

               IF STATE'=""

                   SET DATA=$PIECE($GET(^DIC(5,STATE,1,DATA,0)),"^",1)

 +5        QUIT DATA

 +6       ;

AMBADIND() ;

 +1        NEW DATA

 +2        SET DATA=$PIECE(GLOB(.11),"^",16)

 +3        SET DATA=$SELECT(DATA=1:"UNDELIVERABLE",DATA=2:"HOMELESS",DATA=3:"OTHER",1:"")

 +4        QUIT DATA

 +5       ;

AMCNFAC() ;

 +1        NEW DATA

 +2        SET DATA=$PIECE(GLOB(.141),"^",9)

 +3        SET DATA=$SELECT(DATA="Y":"YES",1:"NO")

 +4        QUIT DATA

 +5       ;

AMPHNHM() ;

 +1        QUIT $PIECE(GLOB(.13),"^",1)

 +2       ;

AMPHNWK() ;

 +1        QUIT $PIECE(GLOB(.13),"^",2)