source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRRPSAT.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1DGRRPSAT ; 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 ;
4DOC ;<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 ;
19GETPSARY(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 ;
39ATSTRE1() ;
40 QUIT $P(GLOB(.121),"^",1)
41 ;
42ATSTRE2() ;
43 QUIT $P(GLOB(.121),"^",2)
44 ;
45ATSTRE3() ;
46 QUIT $P(GLOB(.121),"^",3)
47 ;
48ATCITY() ;
49 QUIT $P(GLOB(.121),"^",4)
50 ;
51ATSTATE() ;
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 ;
57ATZIP() ;
58 NEW DATA
59 SET DATA=$P(GLOB(.121),"^",12)
60 IF DATA="" SET DATA=$P(GLOB(.121),"^",6)
61 QUIT DATA
62 ;
63ATCOUNTY() ;
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 ;
70ATSTDATE() ;
71 QUIT $P(GLOB(.121),"^",7)
72 ;
73ATENDATE() ;
74 QUIT $P(GLOB(.121),"^",8)
75 ;
76ATPHN() ;
77 QUIT $P(GLOB(.121),"^",10)
Note: See TracBrowser for help on using the repository browser.