source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPOC1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 5.3 KB
Line 
1RGPOC1 ;BIR/PTD-ADD/EDIT POINT OF CONTACT OPTION - CONTINUED ;8/22/01
2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**21**;30 Apr 99
3 ;
4POC1 ;ADMIN POINT OF CONTACT from CIRN SITE PARAMETER (#991.8) file.
5 W ! K RGDATA S RGDATA=$$NAME^RGPOC(1,50)
6 S RGADMONM=$P($G(RGDATA),"^") I RGADMONM=-1 D ERROR1^RGPOC("ADM") S RGQUIT=1 Q
7 S RGADMNNM=$P($G(RGDATA),"^",2)
8 I RGADMONM'="",RGADMNNM="" S RGARRAY(10)="Admin Point of Contact Name: <DELETE EXISTING DATA>",RGARRAY(11)="" Q
9 I RGADMNNM="" D ERROR1^RGPOC("ADM") Q
10 S RGARRAY(10)="Admin Point of Contact Name: "_$$CNVRTNM^RGPOC(RGADMNNM)
11 K RGDATA S RGDATA=$$PHONE^RGPOC(+RGADMNNM)
12 S RGADMOFN=$P($G(RGDATA),"^") I RGADMOFN=-1 D ERROR2^RGPOC("ADM",50,RGADMONM,RGADMNNM) K RGARRAY(10) S RGQUIT=1 Q
13 S RGADMNFN=$P($G(RGDATA),"^",2)
14 I RGADMNFN="" D ERROR2^RGPOC("ADM",50,RGADMONM,RGADMNNM) K RGARRAY(10) Q
15 I ($TR(RGADMNFN," ","")=$TR(RGADMOFN," ",""))&(RGADMNNM=RGADMONM) K RGARRAY(10) Q
16 S RGARRAY(11)="Admin Point of Contact Phone #: "_RGADMNFN
17 S RGARRAY(12)=""
18 Q
19 ;
20POC2 ;ALTERNATE ADMIN POINT OF CONTACT from CIRN SITE PARAMETER (#991.8) file.
21 W ! K RGDATA S RGDATA=$$NAME^RGPOC(4,53)
22 S RGAD2ONM=$P($G(RGDATA),"^") I RGAD2ONM=-1 D ERROR1^RGPOC("ALT ADM") S RGQUIT=1 Q
23 S RGAD2NNM=$P($G(RGDATA),"^",2)
24 I RGAD2ONM'="",RGAD2NNM="" S RGARRAY(20)="Alt Admin Point of Contact Name: <DELETE EXISTING DATA>",RGARRAY(21)="" Q
25 I RGAD2NNM="" D ERROR1^RGPOC("ALT ADM") Q
26 S RGARRAY(20)="Alt Admin Point of Contact Name: "_$$CNVRTNM^RGPOC(RGAD2NNM)
27 K RGDATA S RGDATA=$$PHONE^RGPOC(+RGAD2NNM)
28 S RGAD2OFN=$P($G(RGDATA),"^") I RGAD2OFN=-1 D ERROR2^RGPOC("ADM",53,RGAD2ONM,RGAD2NNM) K RGARRAY(20) S RGQUIT=1 Q
29 S RGAD2NFN=$P($G(RGDATA),"^",2)
30 I RGAD2NFN="" D ERROR2^RGPOC("ADM",53,RGAD2ONM,RGAD2NNM) K RGARRAY(20) Q
31 I ($TR(RGAD2NFN," ","")=$TR(RGAD2OFN," ",""))&(RGAD2NNM=RGAD2ONM) K RGARRAY(20) Q
32 S RGARRAY(21)="Alt Admin Point of Contact Phone #: "_RGAD2NFN
33 S RGARRAY(22)=""
34 Q
35 ;
36POC3 ;IRM POINT OF CONTACT from CIRN SITE PARAMETER (#991.8) file.
37 W ! K RGDATA S RGDATA=$$NAME^RGPOC(2,51)
38 S RGIRMONM=$P($G(RGDATA),"^") I RGIRMONM=-1 D ERROR1^RGPOC("IRM") S RGQUIT=1 Q
39 S RGIRMNNM=$P($G(RGDATA),"^",2)
40 I RGIRMONM'="",RGIRMNNM="" S RGARRAY(30)="IRM Point of Contact Name: <DELETE EXISTING DATA>",RGARRAY(31)="" Q
41 I RGIRMNNM="" D ERROR1^RGPOC("IRM") Q
42 S RGARRAY(30)="IRM Point of Contact Name: "_$$CNVRTNM^RGPOC(RGIRMNNM)
43 K RGDATA S RGDATA=$$PHONE^RGPOC(+RGIRMNNM)
44 S RGIRMOFN=$P($G(RGDATA),"^") I RGIRMOFN=-1 D ERROR2^RGPOC("IRM",51,RGIRMONM,RGIRMNNM) K RGARRAY(30) S RGQUIT=1 Q
45 S RGIRMNFN=$P($G(RGDATA),"^",2)
46 I RGIRMNFN="" D ERROR2^RGPOC("IRM",51,RGIRMONM,RGIRMNNM) K RGARRAY(30) Q
47 I ($TR(RGIRMNFN," ","")=$TR(RGIRMOFN," ",""))&(RGIRMNNM=RGIRMONM) K RGARRAY(30) Q
48 S RGARRAY(31)="IRM Point of Contact Phone #: "_RGIRMNFN
49 S RGARRAY(32)=""
50 Q
51 ;
52POC4 ;ALTERNATE IRM POINT OF CONTACT from CIRN SITE PARAMETER (#991.8) file.
53 W ! K RGDATA S RGDATA=$$NAME^RGPOC(5,54)
54 S RGIR2ONM=$P($G(RGDATA),"^") I RGIR2ONM=-1 D ERROR1^RGPOC("ALT IRM") S RGQUIT=1 Q
55 S RGIR2NNM=$P($G(RGDATA),"^",2)
56 I RGIR2ONM'="",RGIR2NNM="" S RGARRAY(40)="Alt IRM Point of Contact Name: <DELETE EXISTING DATA>",RGARRAY(41)="" Q
57 I RGIR2NNM="" D ERROR1^RGPOC("ALT IRM") Q
58 S RGARRAY(40)="Alt IRM Point of Contact Name: "_$$CNVRTNM^RGPOC(RGIR2NNM)
59 K RGDATA S RGDATA=$$PHONE^RGPOC(+RGIR2NNM)
60 S RGIR2OFN=$P($G(RGDATA),"^") I RGIR2OFN=-1 D ERROR2^RGPOC("ALT IRM",54,RGIR2ONM,RGIR2NNM) K RGARRAY(40) S RGQUIT=1 Q
61 S RGIR2NFN=$P($G(RGDATA),"^",2)
62 I RGIR2NFN="" D ERROR2^RGPOC("ALT IRM",54,RGIR2ONM,RGIR2NNM) K RGARRAY(40) Q
63 I ($TR(RGIR2NFN," ","")=$TR(RGIR2OFN," ",""))&(RGIR2NNM=RGIR2ONM) K RGARRAY(40) Q
64 S RGARRAY(41)="Alt IRM Point of Contact Phone #: "_RGIR2NFN
65 S RGARRAY(42)=""
66 Q
67 ;
68POC5 ;HL7 POINT OF CONTACT from CIRN SITE PARAMETER (#991.8) file.
69 W ! K RGDATA S RGDATA=$$NAME^RGPOC(3,52)
70 S RGHL7ONM=$P($G(RGDATA),"^") I RGHL7ONM=-1 D ERROR1^RGPOC("HL7") S RGQUIT=1 Q
71 S RGHL7NNM=$P($G(RGDATA),"^",2)
72 I RGHL7ONM'="",RGHL7NNM="" S RGARRAY(50)="HL7 Point of Contact Name: <DELETE EXISTING DATA>",RGARRAY(51)="" Q
73 I RGHL7NNM="" D ERROR1^RGPOC("HL7") Q
74 S RGARRAY(50)="HL7 Point of Contact Name: "_$$CNVRTNM^RGPOC(RGHL7NNM)
75 K RGDATA S RGDATA=$$PHONE^RGPOC(+RGHL7NNM)
76 S RGHL7OFN=$P($G(RGDATA),"^") I RGHL7OFN=-1 D ERROR2^RGPOC("HL7",52,RGHL7ONM,RGHL7NNM) K RGARRAY(50) S RGQUIT=1 Q
77 S RGHL7NFN=$P($G(RGDATA),"^",2)
78 I RGHL7NFN="" D ERROR2^RGPOC("HL7",52,RGHL7ONM,RGHL7NNM) K RGARRAY(50) Q
79 I ($TR(RGHL7NFN," ","")=$TR(RGHL7OFN," ",""))&(RGHL7NNM=RGHL7ONM) K RGARRAY(50) Q
80 S RGARRAY(51)="HL7 Point of Contact Phone #: "_RGHL7NFN
81 S RGARRAY(52)=""
82 Q
83 ;
84POC6 ;ALTERNATE HL7 POINT OF CONTACT from CIRN SITE PARAMETER (#991.8) file.
85 W ! K RGDATA S RGDATA=$$NAME^RGPOC(6,55)
86 S RGHL2ONM=$P($G(RGDATA),"^") I RGHL2ONM=-1 D ERROR1^RGPOC("ALT HL7") S RGQUIT=1 Q
87 S RGHL2NNM=$P($G(RGDATA),"^",2)
88 I RGHL2ONM'="",RGHL2NNM="" S RGARRAY(60)="Alt HL7 Point of Contact Name: <DELETE EXISTING DATA>",RGARRAY(61)="" Q
89 I RGHL2NNM="" D ERROR1^RGPOC("ALT HL7") Q
90 S RGARRAY(60)="Alt HL7 Point of Contact Name: "_$$CNVRTNM^RGPOC(RGHL2NNM)
91 K RGDATA S RGDATA=$$PHONE^RGPOC(+RGHL2NNM)
92 S RGHL2OFN=$P($G(RGDATA),"^") I RGHL2OFN=-1 D ERROR2^RGPOC("ALT HL7",55,RGHL2ONM,RGHL2NNM) K RGARRAY(60) S RGQUIT=1 Q
93 S RGHL2NFN=$P($G(RGDATA),"^",2)
94 I RGHL2NFN="" D ERROR2^RGPOC("ALT HL7",55,RGHL2ONM,RGHL2NNM) K RGARRAY(60) Q
95 I ($TR(RGHL2NFN," ","")=$TR(RGHL2OFN," ",""))&(RGHL2NNM=RGHL2ONM) K RGARRAY(60) Q
96 S RGARRAY(61)="Alt HL7 Point of Contact Phone #: "_RGHL2NFN
97 Q
98 ;
Note: See TracBrowser for help on using the repository browser.