DGRRPSAT.m

DGRRPSAT ; ALB/SGG rtnDGRR PatientServices Address Temporary ; 09/30/03  ; Compiled October 2, 2003 12:40:44

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

 ;

DOC ;<DataSet Name='TempAddress'

 ;.1211     TEMPORARY STREET [LINE 1] (FX), [.121;1]

 ;.1212     TEMPORARY STREET [LINE 2] (FX), [.121;2]

 ;.1213     TEMPORARY STREET [LINE 3] (FX), [.121;3]

 ;.1214     TEMPORARY CITY (FX), [.121;4]

 ;.1215     TEMPORARY STATE (P5'X), [.121;5]

 ;.1216     TEMPORARY ZIP CODE (FX), [.121;6]

 ;          .12112    TEMPORARY ZIP+4 (FOX), [.121;12]

 ;.12111    TEMPORARY ADDRESS COUNTY (NJ3,0XO), [.121;11]

 ;.1217     TEMPORARY ADDRESS START DATE (DX), [.121;7]

 ;.1218     TEMPORARY ADDRESS END DATE (DX), [.121;8]

 ;.1219     TEMPORARY PHONE NUMBER (FX), [.121;10]

 ;

 ;

 ;

GETPSARY(PSARRAY) ;

 NEW CNT

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 Q

 ;

ATSTRE1() ;

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

 ;

ATSTRE2() ;

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

 ;

ATSTRE3() ;

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

 ;

ATCITY() ;

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

 ;

ATSTATE() ;

 NEW DATA

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

 SET DATA=$S(DATA="":"",1:$P($G(^DIC(5,DATA,0)),"^",2))

 QUIT DATA

 ;

ATZIP() ;

 NEW DATA

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

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

 QUIT DATA

 ;

ATCOUNTY() ;

 NEW STATE,DATA

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

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

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

 QUIT DATA

 ;

ATSTDATE() ;

 QUIT $P(GLOB(.121),"^",7)

 ;

ATENDATE() ;

 QUIT $P(GLOB(.121),"^",8)

 ;

ATPHN() ;

 QUIT $P(GLOB(.121),"^",10)

DGRRPSAT  ; ALB/SGG rtnDGRR PatientServices Address Temporary ; 09/30/03  ; Compiled October 2, 2003 12:40:44

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

 +2       ;

DOC       ;<DataSet Name='TempAddress'

 +1       ;.1211     TEMPORARY STREET [LINE 1] (FX), [.121;1]

 +2       ;.1212     TEMPORARY STREET [LINE 2] (FX), [.121;2]

 +3       ;.1213     TEMPORARY STREET [LINE 3] (FX), [.121;3]

 +4       ;.1214     TEMPORARY CITY (FX), [.121;4]

 +5       ;.1215     TEMPORARY STATE (P5'X), [.121;5]

 +6       ;.1216     TEMPORARY ZIP CODE (FX), [.121;6]

 +7       ;          .12112    TEMPORARY ZIP+4 (FOX), [.121;12]

 +8       ;.12111    TEMPORARY ADDRESS COUNTY (NJ3,0XO), [.121;11]

 +9       ;.1217     TEMPORARY ADDRESS START DATE (DX), [.121;7]

 +10      ;.1218     TEMPORARY ADDRESS END DATE (DX), [.121;8]

 +11      ;.1219     TEMPORARY PHONE NUMBER (FX), [.121;10]

 +12      ;

 +13      ;

 +14      ;

GETPSARY(PSARRAY) ;

 +1        NEW CNT

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

           SET PSARRAY(CNT)="^StartDate^"_$$ATSTDATE()

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

           SET PSARRAY(CNT)="^EndDate^"_$$ATENDATE()

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

           SET PSARRAY(CNT)="^BadAddressIndicator^"

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

           SET PSARRAY(CNT)="^ConfidentialAddressActive^"

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

           SET PSARRAY(CNT)="^PhoneNumber^"_$$ATPHN()

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

           SET PSARRAY(CNT)="^HomePhoneNumber^"

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

           SET PSARRAY(CNT)="^WorkPhoneNumber^"

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

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

 +18       QUIT 

 +19      ;

ATSTRE1() ;

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

 +2       ;

ATSTRE2() ;

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

 +2       ;

ATSTRE3() ;

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

 +2       ;

ATCITY()  ;

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

 +2       ;

ATSTATE() ;

 +1        NEW DATA

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

 +3        SET DATA=$SELECT(DATA="":"",1:$PIECE($GET(^DIC(5,DATA,0)),"^",2))

 +4        QUIT DATA

 +5       ;

ATZIP()   ;

 +1        NEW DATA

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

 +3        IF DATA=""

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

 +4        QUIT DATA

 +5       ;

ATCOUNTY() ;

 +1        NEW STATE,DATA

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

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

 +4        IF DATA'=""

               IF STATE'=""

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

 +5        QUIT DATA

 +6       ;

ATSTDATE() ;

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

 +2       ;

ATENDATE() ;

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

 +2       ;

ATPHN()   ;

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