Routine: ORY601

ORY601 ;ISP/RFR - PATCH 601 POST-INSTALL ;Feb 21, 2024@13:24

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**601**;Dec 17, 1997;Build 1

POST ;Post-Install

 D BMES^XPDUTL("  Setting value for parameter ""OR LR ORDERABLE ITEM FILTERING""...")

 N ORERROR

 D ADD^XPAR("SYS","OR LR ORDERABLE ITEM FILTERING",1,$G(XPDQUES("POS1")),.ORERROR)

 N ORMSG

 I +$G(ORERROR)>0 S ORMSG(1)="    FAILED",ORMSG(2)="    "_$P(ORERROR,U,2)

 E  S ORMSG(1)="    DONE",ORMSG(2)="    New value: "_$G(XPDQUES("POS1","B"))

 D MES^XPDUTL(.ORMSG)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY601   526     printed  Oct 16, 2024@18:43:24                                                                                                                                                                                                       Page 2

ORY601    ;ISP/RFR - PATCH 601 POST-INSTALL ;Feb 21, 2024@13:24

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**601**;Dec 17, 1997;Build 1

 +2        QUIT

POST      ;Post-Install

 +1        DO BMES^XPDUTL("  Setting value for parameter ""OR LR ORDERABLE ITEM FILTERING""...")

 +2        NEW ORERROR

 +3        DO ADD^XPAR("SYS","OR LR ORDERABLE ITEM FILTERING",1,$GET(XPDQUES("POS1")),.ORERROR)

 +4        NEW ORMSG

 +5        IF +$GET(ORERROR)>0

               SET ORMSG(1)="    FAILED"

               SET ORMSG(2)="    "_$PIECE(ORERROR,U,2)

 +6       IF '$TEST

               SET ORMSG(1)="    DONE"

               SET ORMSG(2)="    New value: "_$GET(XPDQUES("POS1","B"))

 +7        DO MES^XPDUTL(.ORMSG)

 +8        QUIT

ORY601.m