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 ---[H[J[2J[HOR529P 1756 printed Dec 13, 2024@02:26:46 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")