| [613] | 1 | DGRRPSAT ; ALB/SGG rtnDGRR PatientServices Address Temporary ; 09/30/03 ; Compiled October 2, 2003 12:40:44
|
|---|
| 2 | ;;5.3;Registration;**557**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | DOC ;<DataSet Name='TempAddress'
|
|---|
| 5 | ;.1211 TEMPORARY STREET [LINE 1] (FX), [.121;1]
|
|---|
| 6 | ;.1212 TEMPORARY STREET [LINE 2] (FX), [.121;2]
|
|---|
| 7 | ;.1213 TEMPORARY STREET [LINE 3] (FX), [.121;3]
|
|---|
| 8 | ;.1214 TEMPORARY CITY (FX), [.121;4]
|
|---|
| 9 | ;.1215 TEMPORARY STATE (P5'X), [.121;5]
|
|---|
| 10 | ;.1216 TEMPORARY ZIP CODE (FX), [.121;6]
|
|---|
| 11 | ; .12112 TEMPORARY ZIP+4 (FOX), [.121;12]
|
|---|
| 12 | ;.12111 TEMPORARY ADDRESS COUNTY (NJ3,0XO), [.121;11]
|
|---|
| 13 | ;.1217 TEMPORARY ADDRESS START DATE (DX), [.121;7]
|
|---|
| 14 | ;.1218 TEMPORARY ADDRESS END DATE (DX), [.121;8]
|
|---|
| 15 | ;.1219 TEMPORARY PHONE NUMBER (FX), [.121;10]
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | ;
|
|---|
| 19 | GETPSARY(PSARRAY) ;
|
|---|
| 20 | NEW CNT
|
|---|
| 21 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="<DataSet Name='TemporaryAddress'"
|
|---|
| 22 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Street1^"_$$ATSTRE1()
|
|---|
| 23 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Street2^"_$$ATSTRE2()
|
|---|
| 24 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Street3^"_$$ATSTRE3()
|
|---|
| 25 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^City^"_$$ATCITY()
|
|---|
| 26 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^State^"_$$ATSTATE()
|
|---|
| 27 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Zip^"_$$ATZIP()
|
|---|
| 28 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^County^"_$$ATCOUNTY()
|
|---|
| 29 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^StartDate^"_$$ATSTDATE()
|
|---|
| 30 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^EndDate^"_$$ATENDATE()
|
|---|
| 31 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^BadAddressIndicator^"
|
|---|
| 32 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^ConfidentialAddressActive^"
|
|---|
| 33 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^PhoneNumber^"_$$ATPHN()
|
|---|
| 34 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^HomePhoneNumber^"
|
|---|
| 35 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^WorkPhoneNumber^"
|
|---|
| 36 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="></DataSet>"_"^^^1"
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | ATSTRE1() ;
|
|---|
| 40 | QUIT $P(GLOB(.121),"^",1)
|
|---|
| 41 | ;
|
|---|
| 42 | ATSTRE2() ;
|
|---|
| 43 | QUIT $P(GLOB(.121),"^",2)
|
|---|
| 44 | ;
|
|---|
| 45 | ATSTRE3() ;
|
|---|
| 46 | QUIT $P(GLOB(.121),"^",3)
|
|---|
| 47 | ;
|
|---|
| 48 | ATCITY() ;
|
|---|
| 49 | QUIT $P(GLOB(.121),"^",4)
|
|---|
| 50 | ;
|
|---|
| 51 | ATSTATE() ;
|
|---|
| 52 | NEW DATA
|
|---|
| 53 | SET DATA=$P(GLOB(.121),"^",5)
|
|---|
| 54 | SET DATA=$S(DATA="":"",1:$P($G(^DIC(5,DATA,0)),"^",2))
|
|---|
| 55 | QUIT DATA
|
|---|
| 56 | ;
|
|---|
| 57 | ATZIP() ;
|
|---|
| 58 | NEW DATA
|
|---|
| 59 | SET DATA=$P(GLOB(.121),"^",12)
|
|---|
| 60 | IF DATA="" SET DATA=$P(GLOB(.121),"^",6)
|
|---|
| 61 | QUIT DATA
|
|---|
| 62 | ;
|
|---|
| 63 | ATCOUNTY() ;
|
|---|
| 64 | NEW STATE,DATA
|
|---|
| 65 | SET STATE=$P(GLOB(.121),"^",5)
|
|---|
| 66 | SET DATA=$P(GLOB(.121),"^",11)
|
|---|
| 67 | IF DATA'="",STATE'="" SET DATA=$P($G(^DIC(5,STATE,1,DATA,0)),"^",1)
|
|---|
| 68 | QUIT DATA
|
|---|
| 69 | ;
|
|---|
| 70 | ATSTDATE() ;
|
|---|
| 71 | QUIT $P(GLOB(.121),"^",7)
|
|---|
| 72 | ;
|
|---|
| 73 | ATENDATE() ;
|
|---|
| 74 | QUIT $P(GLOB(.121),"^",8)
|
|---|
| 75 | ;
|
|---|
| 76 | ATPHN() ;
|
|---|
| 77 | QUIT $P(GLOB(.121),"^",10)
|
|---|
