ORY374.m

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 ---ORY374   1194     printed  Apr 09, 2024@21:27:02                                                                                                                                                                                                      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