| 1 | SR122PST ;BIR/RJS - SRAAIS PROTOCOL 101 UPDATE ;11/21/03
|
|---|
| 2 | ;;3.0;SURGERY;**122**;21 Nov 03
|
|---|
| 3 | START ; 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
|
|---|
| 28 | SRAAIS ;;
|
|---|
| 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
|
|---|
