DGRRPSAT ; ALB/SGG rtnDGRR PatientServices Address Temporary ; 09/30/03 ; Compiled October 2, 2003 12:40:44
;;5.3;Registration;**557**;Aug 13, 1993
;
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)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRRPSAT 2467 printed Dec 13, 2024@02:57:47 Page 2
DGRRPSAT ; ALB/SGG rtnDGRR PatientServices Address Temporary ; 09/30/03 ; Compiled October 2, 2003 12:40:44
+1 ;;5.3;Registration;**557**;Aug 13, 1993
+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)
