DGRRPSAM ; ALB/SGG - rtnDGRR PatientServices Address Main ; 09/30/03 ; Compiled October 2, 2003 16:00:54
;;5.3;Registration;**557**;Aug 13, 1993
;
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)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRRPSAM 2726 printed Sep 23, 2025@20:33:39 Page 2
DGRRPSAM ; ALB/SGG - rtnDGRR PatientServices Address Main ; 09/30/03 ; Compiled October 2, 2003 16:00:54
+1 ;;5.3;Registration;**557**;Aug 13, 1993
+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)
