source: FOIAVistA/tag/r/SURGERY-SR/SR122PST.m@ 1767

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

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1SR122PST ;BIR/RJS - SRAAIS PROTOCOL 101 UPDATE ;11/21/03
2 ;;3.0;SURGERY;**122**;21 Nov 03
3START ; THIS ROUTINE IS USED TO UPDATE THE PROTOCOL FILE 101 FOR THE AAIS
4 ; SURGERY INTERFACE. IT IS A POST INSTALL ROUTINE FOR SR*3.0*122
5 S (SRSNDB,SRLOGB)="SR AAIS",SRRECB="SR SURGERY",SRFDA="101",(SRSND,SRREC,SRLOG,SRBAD)=""
6 S SRSND=$O(^HL(771,"B",SRSNDB,SRSND)),SRREC=$O(^HL(771,"B",SRRECB,SRREC)),SRLOG=$O(^HLCS(870,"B",SRLOGB,SRLOG))
7 F SRLINE=1:1 S SRTXT=$P($T(SRAAIS+SRLINE),";;",2,99) Q:SRTXT="" D
8 . K SRFIELD S SRIEN=""
9 . S SRIEN=$O(^ORD(101,"B",SRTXT,SRIEN))_","
10 . S:SRIEN="," SRBAD=1
11 . S SRFIELD(SRFDA,SRIEN,"99")=$H,SRFIELD(SRFDA,SRIEN,"770.1")=SRSND
12 . S SRFIELD(SRFDA,SRIEN,"770.2")=SRREC,SRFIELD(SRFDA,SRIEN,"770.7")=SRLOG
13 . D FILE^DIE("","SRFIELD","SRERR")
14 . I $D(SRERR("DIERR",1)) D
15 .. S MSGTXT=SRTXT_" NOT UPDATED - ERROR CODE "_SRERR("DIERR",1)
16 .. D BMES^XPDUTL(MSGTXT)
17 .. K MSGTXT
18 . I '$D(SRERR("DIERR",1)) D
19 .. S MSGTXT=SRTXT_" SUCCESSFULLY UPDATED"
20 .. D BMES^XPDUTL(MSGTXT)
21 .. K MSGTXT
22 . K SRERR
23 . Q
24 I SRBAD=1 D BMES^XPDUTL("THERE WAS AN ERROR IN THE POST INSTALL"),BMES^XPDUTL("PLEASE CONTACT EVS")
25 K SRSND,SRLOG,SRREC,SRTXT,SRLINE,SRIEN,SRFDA,SRFIELD,SRERR,SRBAD
26 D BMES^XPDUTL("PROTOCOL UPDATE COMPLETE")
27 Q
28SRAAIS ;;
29 ;;SR Notification of Appointment Booking
30 ;;SR Notification of Appointment Cancellation
31 ;;SR Notification of Appointment Deletion
32 ;;SR Notification of Appointment Modification
33 ;;SR Notification of Appointment Rescheduling
34 ;;SR Other Master File Notification
35 ;;SR Query for Scheduling Information
36 ;;SR Receiver of Appointment Cancellation
37 ;;SR Receiver of Appointment Deletion
38 ;;SR Receiver of Appointment Modification
39 ;;SR Receiver of Appointment Rescheduling
40 ;;SR Receiver of Master File Notification
41 ;;SR Receiver of New Appointment Booking
42 ;;SR Receiver of Observation Unsolicited
43 ;;SR Receiver of Scheduling Query
44 ;;SR Receiver of Staff Master File Notification
45 ;;SR Receiver of Unsolicited Requested Observation
46 ;;SR Staff Master File Notification
47 ;;SR Unsolicited transmission of AAIS Requested Observation
48 ;;SR Unsolicited transmission of VistA Requested Observation
49 Q
Note: See TracBrowser for help on using the repository browser.