OR529P.m

OR529P ;SPFO/AJB - VISTA CUTOVER ;Feb 11, 2021@09:04:47

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

 Q

POST ;

 N DATA,I F I=1:1 S DATA=$P($T(DATA+I),";;",2) Q:DATA=""  D

 . N ERR,FDA,MENU,OPT

 . S MENU=$$LU(19,$P(DATA,U)),OPT=$$LU(19,$P(DATA,U,2)) I '+MENU!('+OPT) Q

 . I +$$LU(19.01,$P(DATA,U,2),"","","",","_MENU_",") Q

 . S MENU="+1,"_MENU_","

 . S FDA(19.01,MENU,.01)=OPT

 . S FDA(19.01,MENU,2)=$P(DATA,U,3)

 . D UPDATE^DIE("","FDA","",.ERR)

 Q

DATA ;

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07A FLAG INPT ORD^1

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07B FLAG INPT ORD PR^2

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07C FLAG INPT RESULTS^3

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07D FLAG INPT RSLTS PR^4

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07E FLAG INPT EXP ORD^5

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07F FLAG INPT EO PR^6

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07G FLAG OUTPT ORD^7

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07H FLAG OUTPT ORD PR^8

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07I FLAG OUTPT RESULTS^9

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07J FLAG OUTPT RSLT PR^10

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07K FLAG OUTPT EXP ORD^11

 ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07L FLAG OUTPT EO PR^12

 ;;ORB3 LM 09  FORWARD NOTIF MENU^ORB3 LM 09A FOR UNP NOT SUP^1

 ;;ORB3 LM 09  FORWARD NOTIF MENU^ORB3 LM 09B FOR UNP NOT SUR^2

 ;;ORB3 LM 09  FORWARD NOTIF MENU^ORB3 LM 09C FOR UNP NOT BKR^3

 ;;ORB3 LM 10 SET DELAYS MENU^ORB3 LM 10A DELAY UNV ORDERS^1

 ;;ORB3 LM 10 SET DELAYS MENU^ORB3 LM 10B DEL UNV MED ORDERS^2

 ;;

LU(FILE,NAME,FLAGS,SCREEN,INDEXES,IENS) ;

 N DILOCKTM,DISYS

 Q $$FIND1^DIC(FILE,$G(IENS),$G(FLAGS),NAME,$G(INDEXES),$G(SCREEN),"ERR")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OR529P   1756     printed  Apr 09, 2024@21:33:35                                                                                                                                                                                                      Page 2

OR529P    ;SPFO/AJB - VISTA CUTOVER ;Feb 11, 2021@09:04:47

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

 +2        QUIT 

POST      ;

 +1        NEW DATA,I

           FOR I=1:1

               SET DATA=$PIECE($TEXT(DATA+I),";;",2)

               if DATA=""

                   QUIT 

               Begin DoDot:1

 +2                NEW ERR,FDA,MENU,OPT

 +3                SET MENU=$$LU(19,$PIECE(DATA,U))

                   SET OPT=$$LU(19,$PIECE(DATA,U,2))

                   IF '+MENU!('+OPT)

                       QUIT 

 +4                IF +$$LU(19.01,$PIECE(DATA,U,2),"","","",","_MENU_",")

                       QUIT 

 +5                SET MENU="+1,"_MENU_","

 +6                SET FDA(19.01,MENU,.01)=OPT

 +7                SET FDA(19.01,MENU,2)=$PIECE(DATA,U,3)

 +8                DO UPDATE^DIE("","FDA","",.ERR)

               End DoDot:1

 +9        QUIT 

DATA      ;

 +1       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07A FLAG INPT ORD^1

 +2       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07B FLAG INPT ORD PR^2

 +3       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07C FLAG INPT RESULTS^3

 +4       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07D FLAG INPT RSLTS PR^4

 +5       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07E FLAG INPT EXP ORD^5

 +6       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07F FLAG INPT EO PR^6

 +7       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07G FLAG OUTPT ORD^7

 +8       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07H FLAG OUTPT ORD PR^8

 +9       ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07I FLAG OUTPT RESULTS^9

 +10      ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07J FLAG OUTPT RSLT PR^10

 +11      ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07K FLAG OUTPT EXP ORD^11

 +12      ;;ORB3 LM 07 FLAG ORD ITEMS MENU^ORB3 LM 07L FLAG OUTPT EO PR^12

 +13      ;;ORB3 LM 09  FORWARD NOTIF MENU^ORB3 LM 09A FOR UNP NOT SUP^1

 +14      ;;ORB3 LM 09  FORWARD NOTIF MENU^ORB3 LM 09B FOR UNP NOT SUR^2

 +15      ;;ORB3 LM 09  FORWARD NOTIF MENU^ORB3 LM 09C FOR UNP NOT BKR^3

 +16      ;;ORB3 LM 10 SET DELAYS MENU^ORB3 LM 10A DELAY UNV ORDERS^1

 +17      ;;ORB3 LM 10 SET DELAYS MENU^ORB3 LM 10B DEL UNV MED ORDERS^2

 +18      ;;

LU(FILE,NAME,FLAGS,SCREEN,INDEXES,IENS) ;

 +1        NEW DILOCKTM,DISYS

 +2        QUIT $$FIND1^DIC(FILE,$GET(IENS),$GET(FLAGS),NAME,$GET(INDEXES),$GET(SCREEN),"ERR")