ORY374 ;ISL/TC - Post-install for patch OR*3*374 ;12/12/13 11:45
;;3.0;ORDER ENTRY/RESULTS REPORTING;**374**;Dec 17, 1997;Build 9
;
;
;
;
POST ; Initiate post-init processes
D UPDTNOT
Q
UPDTNOT ; Update Message Type & Description fields of Notification #76 to accommodate Inactive Provider scenario.
N ORFDA,ORERROR,ORMSG,I
D BMES^XPDUTL("Updating the MESSSAGE TYPE & DESCRIPTION fields of the DEA CERTIFICATE EXPIRED notification...")
S ORFDA(100.9,"76,",.04)="PKG"
S ORFDA(100.9,"76,",4)="Triggered by Outpatient Pharmacy when the prescriber's PKI certificate expires after "
S ORFDA(100.9,"76,",4)=ORFDA(100.9,"76,",4)_"the order is submitted in CPRS, but prior to Pharmacy processing the order. "
S ORFDA(100.9,"76,",4)=ORFDA(100.9,"76,",4)_"Also triggered when prescriber's Rx profile becomes inactive during processing."
D FILE^DIE("K","ORFDA","ORERROR")
I $D(ORERROR) D Q
.S ORMSG(1)=" "
.S ORMSG(2)="ERROR: Unable to update the MESSAGE TYPE & DESCRIPTION fields."
.S ORMSG(3)="VA FileMan Error #"_ORERROR("DIERR",1)_":"
.F I=1:1:+$O(ORERROR("DIERR",1,"TEXT","A"),-1) D
..S ORMSG(I+3)=ORERROR("DIERR",1,"TEXT",I)
.D BMES^XPDUTL(.ORMSG)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY374 1194 printed Oct 16, 2024@18:42:06 Page 2
ORY374 ;ISL/TC - Post-install for patch OR*3*374 ;12/12/13 11:45
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**374**;Dec 17, 1997;Build 9
+2 ;
+3 ;
+4 ;
+5 ;
POST ; Initiate post-init processes
+1 DO UPDTNOT
+2 QUIT
UPDTNOT ; Update Message Type & Description fields of Notification #76 to accommodate Inactive Provider scenario.
+1 NEW ORFDA,ORERROR,ORMSG,I
+2 DO BMES^XPDUTL("Updating the MESSSAGE TYPE & DESCRIPTION fields of the DEA CERTIFICATE EXPIRED notification...")
+3 SET ORFDA(100.9,"76,",.04)="PKG"
+4 SET ORFDA(100.9,"76,",4)="Triggered by Outpatient Pharmacy when the prescriber's PKI certificate expires after "
+5 SET ORFDA(100.9,"76,",4)=ORFDA(100.9,"76,",4)_"the order is submitted in CPRS, but prior to Pharmacy processing the order. "
+6 SET ORFDA(100.9,"76,",4)=ORFDA(100.9,"76,",4)_"Also triggered when prescriber's Rx profile becomes inactive during processing."
+7 DO FILE^DIE("K","ORFDA","ORERROR")
+8 IF $DATA(ORERROR)
Begin DoDot:1
+9 SET ORMSG(1)=" "
+10 SET ORMSG(2)="ERROR: Unable to update the MESSAGE TYPE & DESCRIPTION fields."
+11 SET ORMSG(3)="VA FileMan Error #"_ORERROR("DIERR",1)_":"
+12 FOR I=1:1:+$ORDER(ORERROR("DIERR",1,"TEXT","A"),-1)
Begin DoDot:2
+13 SET ORMSG(I+3)=ORERROR("DIERR",1,"TEXT",I)
End DoDot:2
+14 DO BMES^XPDUTL(.ORMSG)
End DoDot:1
QUIT
+15 QUIT
