| |
|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
| [SOLVED] Max Limit issue |
« View previous topic :: View next topic » |
| Author |
Message
|
| tsrisudh |
 Posted: Wed May 10, 2006 3:18 am Post subject: [SOLVED] Max Limit issue |
 |
|
Centurion
Joined: 11 Aug 2005
Posts: 113
|
In our application we have activities which have around 5000 workitems. When i query for workitems on this activity it gives me the following error
Fmc38009e
rc - 817
fmc00817e
message - the result of the query is larger than allowed
Now i have added a threshold of 1500 and the result comes fine, but the issue is the user wants to know how many workitems are availble for this activity. How can i know this, as i put a threshold it always give 1500 for the resultsetsize. Is there anyway to get how many workitems are there?
Also what should be done if the user wants to see all the workitems? Cant i get all the items at all?? Is this a restriction on workflow side?
_________________
Srisudhir Tadepalli
Last edited by tsrisudh on Wed May 24, 2006 11:10 pm; edited 1 time in total |
|
| Back to top |
|
 |
| jmac |
| Posted: Wed May 10, 2006 3:58 am Post subject: |
|
|
Jedi Knight
Joined: 27 Jun 2001
Posts: 3081
Location: EmeriCon, LLC
|
With V3.6 there are new queryResultSize apis that will give you the answer you are looking for
_________________
John McDonald
RETIRED |
|
| Back to top |
|
|
| tsrisudh |
| Posted: Wed May 10, 2006 4:18 am Post subject: |
|
|
Centurion
Joined: 11 Aug 2005
Posts: 113
|
this api might help me with the size of the query but there is still an issue that if the user wants to work on the 1600th workitem , he cannot because there is no way for me to get 1600 workitems.
In that case what do i do? Is there a way for me to get workitems form 1500 - 3000 (Like paging) from workflow??
_________________
Srisudhir Tadepalli |
|
| Back to top |
|
|
| JKehoe |
| Posted: Wed May 10, 2006 5:11 am Post subject: |
|
|
Novice
Joined: 10 Aug 2005
Posts: 20
|
Is there any way that you can filter your worklist any smaller? Obviously, if the user needs to search through a 3000 item worklist, they have something specific they are looking for.
For example, I added a custom filter to our ListViewer.jsp to allow our users to type in a certain State code that they want to work (we have the State code in our GDC) we then refilter the worklist only returning the results with that State code. It's much faster this way because it only loads a handfull of items as opposed to several hundred and the users process quicker because they don't have to search through the list looking for certain items.
Good luck.
Josh |
|
| Back to top |
|
|
| jmac |
| Posted: Wed May 10, 2006 5:19 am Post subject: |
|
|
Jedi Knight
Joined: 27 Jun 2001
Posts: 3081
Location: EmeriCon, LLC
|
| tsrisudh wrote: |
this api might help me with the size of the query but there is still an issue that if the user wants to work on the 1600th workitem , he cannot because there is no way for me to get 1600 workitems.
In that case what do i do? Is there a way for me to get workitems form 1500 - 3000 (Like paging) from workflow?? |
There is no way to do this short of what was already suggested above. The good news is the BPC api does contain a parameter that will let you do this.... SO, obviously we arel learning from the past 
_________________
John McDonald
RETIRED |
|
| Back to top |
|
|
| tsrisudh |
| Posted: Wed May 10, 2006 9:45 pm Post subject: |
|
|
Centurion
Joined: 11 Aug 2005
Posts: 113
|
I tried adding values to the GDC to do this but i have sub processes and i get the following error when i put values only in GDC only at the top level and not inside the sub process.
http://www.mqseries.net/phpBB2/viewtopic.php?t=28317&highlight=gdc
But i did not get any reply to this? Any help on this?
_________________
Srisudhir Tadepalli |
|
| Back to top |
|
|
| hos |
| Posted: Wed May 10, 2006 11:50 pm Post subject: |
|
|
Chevalier
Joined: 03 Feb 2002
Posts: 470
|
Srisudhir,
you do not necessarily need GDC's to use a filter for your query.
For instance if you search for workitems in a specifix state, just use the 'STATE=' option in your filter. Just make sure that your filter is not too complicated and does not result in a full DB tablescan (e.g. avoid 'LIKE' operators). Otherwise you will severely hurt your system performance, (as you already do by transferring thousands of workitems). |
|
| Back to top |
|
|
| tsrisudh |
| Posted: Thu May 11, 2006 4:24 am Post subject: |
|
|
Centurion
Joined: 11 Aug 2005
Posts: 113
|
where do you define the STATE is it in the workflow is it in the container?
_________________
Srisudhir Tadepalli |
|
| Back to top |
|
|
| jmac |
| Posted: Thu May 11, 2006 4:34 am Post subject: |
|
|
Jedi Knight
Joined: 27 Jun 2001
Posts: 3081
Location: EmeriCon, LLC
|
STATE is a workitem attribute that can be used in a filter
_________________
John McDonald
RETIRED |
|
| Back to top |
|
|
| tsrisudh |
| Posted: Mon May 15, 2006 7:25 am Post subject: |
|
|
Centurion
Joined: 11 Aug 2005
Posts: 113
|
but what if i want to filter on some values in my DataStructure is that possible without the GDC (I dont want to put all the values in the description)
_________________
Srisudhir Tadepalli |
|
| Back to top |
|
|
| jmac |
| Posted: Mon May 15, 2006 7:36 am Post subject: |
|
|
Jedi Knight
Joined: 27 Jun 2001
Posts: 3081
Location: EmeriCon, LLC
|
| tsrisudh wrote: |
| but what if i want to filter on some values in my DataStructure is that possible without the GDC (I dont want to put all the values in the description) |
NOPE, either GDC or Description
_________________
John McDonald
RETIRED |
|
| Back to top |
|
|
| tsrisudh |
| Posted: Mon May 15, 2006 7:41 am Post subject: |
|
|
Centurion
Joined: 11 Aug 2005
Posts: 113
|
so looks like GDC is the solution, but the issue is that i am not able to use the GDC, when i try to put the GDC at the top level and export FDL it says the blocks in the process should also have the same GDC. FYI i use the same container in the top process and the block. So should i define GDC in each block i have?? or am i doing something wrong?
_________________
Srisudhir Tadepalli |
|
| Back to top |
|
|
| jmac |
| Posted: Mon May 15, 2006 7:54 am Post subject: |
|
|
Jedi Knight
Joined: 27 Jun 2001
Posts: 3081
Location: EmeriCon, LLC
|
Is this modeler? Or Buildtime? There should be no issue at all with Buildtime, as long as you are on 3.5 or 3.6. Show me the FDL and maybe I can see your problem
_________________
John McDonald
RETIRED |
|
| Back to top |
|
|
| tsrisudh |
| Posted: Mon May 15, 2006 8:30 am Post subject: |
|
|
Centurion
Joined: 11 Aug 2005
Posts: 113
|
This error is coming in modeller. Here is the FDL (note that i just defined the GDC) and not mapped it anywhere
/*****************************************************
Source : IBM WBI Workbench
Target : IBM MQWorkFlow
Build of : 21/Nov/2004
*****************************************************/
CODEPAGE 1252
FM_RELEASE V3R6 0
/*==============================================
Levels
================================================*/
UPDATE LEVEL 0
END 0
UPDATE LEVEL 1
END 1
UPDATE LEVEL 2
END 2
UPDATE LEVEL 3
END 3
UPDATE LEVEL 4
END 4
UPDATE LEVEL 5
END 5
UPDATE LEVEL 6
END 6
UPDATE LEVEL 7
END 7
UPDATE LEVEL 8
END 8
UPDATE LEVEL 9
END 9
/*==============================================
Structures
================================================*/
STRUCTURE 'SpecsOrder'
DESCRIPTION 'Order In the Specs system'
'orderId' : LONG
DESCRIPTION 'Order ID of the order'
;
'elementType' : STRING
DESCRIPTION 'This value will be defaulted for each of the activities, this will be used to
decide which workitem is to be created in the code'
;
'routeFlag' : STRING
DESCRIPTION 'Route Flag is used to decide where the control goes from this activity'
;
'activityComplete' : LONG
DESCRIPTION 'Flag used to indicate that the activity is complete, will be used when
movement from activity is not decided by the route flag'
;
'workflowName' : STRING ;
'isDivert' : STRING
DESCRIPTION 'Flag to specify if the order is a divert'
;
'divertTo' : STRING
DESCRIPTION 'has the code which has the indicator specifying where the divert is to'
;
'divertFrom' : STRING
DESCRIPTION 'Indiactes where the divert is from'
DOCUMENTATION 'This will be used to indicate where the divert is from, it will be used
when the flow has to move automatically till the queue where it was
originated';
'currentUser' : STRING
DESCRIPTION 'holds the user who is currently working on the order'
;
'status' : STRING
DESCRIPTION 'holds the status of the item, wether it is being worked upon etc'
;
'pharmacy' : STRING ;
'patients' : STRING ;
'products' : STRING ;
END 'SpecsOrder'
STRUCTURE 'SpecsInvoice'
DESCRIPTION 'Holds the invoice in SPECS application'
'invoiceId' : LONG ;
'elementType' : STRING ;
'routeFlag' : STRING ;
'activityComplete' : LONG ;
'workflowName' : STRING ;
'isDivert' : STRING ;
'divertFrom' : STRING ;
'divertTo' : STRING ;
'currentUser' : STRING ;
'status' : STRING ;
END 'SpecsInvoice'
STRUCTURE 'Default Data Structure'
END 'Default Data Structure'
/*==============================================
PROCESS_CATEGORYs
================================================*/
PROCESS_CATEGORY 'SPECS'
END 'SPECS'
PROCESS_CATEGORY 'SPECS'
END 'SPECS'
/*==============================================
Programs
================================================*/
PROGRAM 'FMCINTERNALNOOP'('Default Data Structure','Default Data Structure')
DESCRIPTION 'Program for empty activities'
DOCUMENTATION 'This program definition can be used for empty activites.
An activity is an empty activity if and only if the following four conditions apply:
1. The activity implementation is a program with the name FMCINTERNALNOOP.
2. ""Execution mode asynchronous"" in Buildtime or the FDL keyword
""SYNCHRONIZATION CHAINED"" is specified for the activity.
3. Input and output data structures of the activity are the same.
4. The activity is started automatically.
During runtime, if an empty activity is started, no program is executed.
Instead, the activity is immediatly completed.
If a data default connector is defined for that activity, the
specified mappings are executed from the activity input container
to the activity output container.'
STRUCTURES_FROM_ACTIVITY
UNATTENDED
END 'FMCINTERNALNOOP'
PROGRAM 'Empty Program'('Default Data Structure','Default Data Structure')
STRUCTURES_FROM_ACTIVITY
UNATTENDED
WINNT EXE PATH_AND_FILENAME 'a.exe'
INHERIT ENVIRONMENT
STYLE INVISIBLE
END 'Empty Program'
/*==============================================
Persons
================================================*/
PERSON 'ADMIN'
AUTHORIZED_FOR STAFF
AUTHORIZED_FOR PROCESS_MODELING
AUTHORIZED_FOR PROCESS_CATEGORY ALL
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR TOPOLOGY
AUTHORIZED_FOR AUTHORIZATION
AUTHORIZED_FOR OPERATION
PASSWORD %F5E2FF2FA2F06A33133BEE48DB1ED773
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'ADMIN'
PERSON 'WFADMIN'
DESCRIPTION 'Workflow user with max authourizations'
AUTHORIZED_FOR STAFF
AUTHORIZED_FOR PROCESS_MODELING
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR TOPOLOGY
AUTHORIZED_FOR AUTHORIZATION
AUTHORIZED_FOR OPERATION
PASSWORD 'first123'
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'WFADMIN'
PERSON 'RXADMIN'
DESCRIPTION 'Fills the order'
LAST_NAME 'RXADMIN'
AUTHORIZED_FOR PROCESS_CATEGORY ALL AS_ADMINISTRATOR
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR OPERATION
PASSWORD 'password'
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'RXADMIN'
PERSON 'IMANURSE'
LAST_NAME 'IMANURSE'
AUTHORIZED_FOR PROCESS_CATEGORY ALL AS_ADMINISTRATOR
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR OPERATION
PASSWORD 'password'
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'IMANURSE'
PERSON 'PURCHASER'
LAST_NAME 'PURCHASER'
AUTHORIZED_FOR PROCESS_CATEGORY ALL AS_ADMINISTRATOR
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR OPERATION
PASSWORD 'password'
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'PURCHASER'
PERSON 'QCONTROL'
LAST_NAME 'QCONTROL'
AUTHORIZED_FOR PROCESS_CATEGORY ALL AS_ADMINISTRATOR
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR OPERATION
PASSWORD 'password'
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'QCONTROL'
PERSON 'SHIPPER'
LAST_NAME 'SHIPPER'
AUTHORIZED_FOR PROCESS_CATEGORY ALL AS_ADMINISTRATOR
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR OPERATION
PASSWORD 'password'
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'SHIPPER'
PERSON 'MONITOR'
LAST_NAME 'MONITOR'
AUTHORIZED_FOR PROCESS_CATEGORY ALL AS_ADMINISTRATOR
AUTHORIZED_FOR WORKITEMS_OF ALL
AUTHORIZED_FOR OPERATION
PASSWORD 'password'
IS_NOT_ABSENT
DO NOT RESET_ABSENT
END 'MONITOR'
UPDATE PERSON 'ADMIN'
END 'ADMIN'
UPDATE PERSON 'WFADMIN'
AUTHORIZED_FOR PROCESS_CATEGORY 'SPECS' AS_ADMINISTRATOR
END 'WFADMIN'
UPDATE PERSON 'RXADMIN'
AUTHORIZED_FOR PROCESS_CATEGORY 'SPECS'
END 'RXADMIN'
UPDATE PERSON 'IMANURSE'
AUTHORIZED_FOR PROCESS_CATEGORY 'SPECS'
END 'IMANURSE'
UPDATE PERSON 'PURCHASER'
AUTHORIZED_FOR PROCESS_CATEGORY 'SPECS'
END 'PURCHASER'
UPDATE PERSON 'QCONTROL'
AUTHORIZED_FOR PROCESS_CATEGORY 'SPECS'
END 'QCONTROL'
UPDATE PERSON 'SHIPPER'
AUTHORIZED_FOR PROCESS_CATEGORY 'SPECS'
END 'SHIPPER'
UPDATE PERSON 'MONITOR'
AUTHORIZED_FOR PROCESS_CATEGORY 'SPECS'
END 'MONITOR'
/*==============================================
Roles
================================================*/
ROLE 'System administrator'
RELATED_PERSON 'ADMIN'
END 'System administrator'
ROLE 'Enrol'
DESCRIPTION 'Role for people inthe enrollment department'
END 'Enrol'
ROLE 'Nursing'
RELATED_PERSON 'IMANURSE'
END 'Nursing'
ROLE 'Purchasing'
RELATED_PERSON 'PURCHASER'
END 'Purchasing'
ROLE 'Shipping Clerk'
RELATED_PERSON 'SHIPPER'
END 'Shipping Clerk'
ROLE 'Quality Control Analyst'
RELATED_PERSON 'QCONTROL'
END 'Quality Control Analyst'
ROLE 'RX Administrator'
RELATED_PERSON 'RXADMIN'
END 'RX Administrator'
ROLE 'WF Admin'
RELATED_PERSON 'MONITOR'
'WFADMIN'
END 'WF Admin'
/*==============================================
Organizations
================================================*/
ORGANIZATION 'Nurses'
MANAGER 'WFADMIN'
RELATED_PERSON 'IMANURSE'
END 'Nurses'
ORGANIZATION 'Consumer'
MANAGER 'WFADMIN'
END 'Consumer'
ORGANIZATION 'Quality Control'
MANAGER 'WFADMIN'
RELATED_PERSON 'QCONTROL'
END 'Quality Control'
ORGANIZATION 'Shipping'
MANAGER 'WFADMIN'
RELATED_PERSON 'SHIPPER'
END 'Shipping'
ORGANIZATION 'RX Admin'
MANAGER 'WFADMIN'
RELATED_PERSON 'RXADMIN'
END 'RX Admin'
ORGANIZATION 'Purchasing'
MANAGER 'WFADMIN'
RELATED_PERSON 'PURCHASER'
END 'Purchasing'
ORGANIZATION 'WorkflowAdmin'
MANAGER 'WFADMIN'
RELATED_PERSON 'WFADMIN'
END 'WorkflowAdmin'
/*==============================================
SERVERs
================================================*/
UPDATE SERVER 'CLEANSVR'
DESCRIPTION 'Default cleanup server'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE CLEANUP_SERVER
END 'CLEANSVR'
UPDATE SERVER 'EXECSVR'
DESCRIPTION 'Default execution server'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE EXECUTION_SERVER
END 'EXECSVR'
UPDATE SERVER 'SCHEDSVR'
DESCRIPTION 'Default scheduling server'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE SCHEDULING_SERVER
END 'SCHEDSVR'
UPDATE SERVER 'PESERVER'
DESCRIPTION 'Default program execution server'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE PROGRAM_EXECUTION_SERVER
END 'PESERVER'
SERVER 'EMPTUPES'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE USER_DEFINED_PROGRAM_EXECUTION_SERVER
MQSYSTEM MQSERIES
PHYSICAL_QUEUE_NAME "NQ"
VERSION 3
RELEASE 6
LEVEL 0
MESSAGE_FORMAT XML
END 'EMPTUPES'
SERVER 'VALIDATE'
DESCRIPTION 'This UPES will be used by all the modules to validate or complete the flow, this will called at the end of an activity or process when the actual flow needs to be to be executed'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE USER_DEFINED_PROGRAM_EXECUTION_SERVER
MQSYSTEM MQSERIES
PHYSICAL_QUEUE_NAME "SPECS.VALIDATE"
QUEUE_MANAGER_NAME "FMCQM"
VERSION 3
RELEASE 6
LEVEL 0
MESSAGE_FORMAT XML
END 'VALIDATE'
SERVER 'UPESRVR'
DESCRIPTION 'User defined exection server'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE USER_DEFINED_PROGRAM_EXECUTION_SERVER
MQSYSTEM MQSERIES
PHYSICAL_QUEUE_NAME "WFNQ"
QUEUE_MANAGER_NAME "FMCQM"
VERSION 3
RELEASE 1
LEVEL 0
MESSAGE_FORMAT XML
END 'UPESRVR'
SERVER 'EXTERN'
DESCRIPTION 'External Program for SPECS'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE USER_DEFINED_PROGRAM_EXECUTION_SERVER
MQSYSTEM MQSERIES
PHYSICAL_QUEUE_NAME "BVQUEUE"
QUEUE_MANAGER_NAME "FMCQM"
VERSION 3
RELEASE 1
LEVEL 0
MESSAGE_FORMAT XML
END 'EXTERN'
SERVER 'QLOCUPD'
DESCRIPTION 'Updates the location of the item in the SPECS database'
RELATED_GROUP 'FMCGRP'
RELATED_SYSTEM 'FMCSYS'
TYPE USER_DEFINED_PROGRAM_EXECUTION_SERVER
MQSYSTEM MQSERIES
PHYSICAL_QUEUE_NAME "SPECS.QLOCUPD"
QUEUE_MANAGER_NAME "FMCQM"
VERSION 3
RELEASE 1
LEVEL 0
MESSAGE_FORMAT XML
END 'QLOCUPD'
/*==============================================
Processes
================================================*/
PROCESS 'SpecsWorkflow' ('SpecsOrder','SpecsOrder')
WINDOW VIEW_REFERENCE_POINT XPOS -8500 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
DESCRIPTION 'Workflow for order id %orderId%'
GLOBAL_CONTAINER RELATED_STRUCTURE 'SpecsOrder'
TABLE_NAME 'GC_SO'
VALID_FROM '2006-01-11 02:30'
CATEGORY 'SPECS'
DO NOT PROMPT_AT_PROCESS_START
FULL AUDIT_TO_DB
PROCESS_ADMINISTRATOR 'WFADMIN'
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -35 YPOS 9224
PROGRAM_ACTIVITY 'ARDivertQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 9524
DESCRIPTION 'AR Divert Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'WorkflowAdmin' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'ARDivertQueue'
DATA LOOP 'ARDivertQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9624
XPOS -6235 YPOS 9724
DATA DEFAULT 'ARDivertQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9324
XPOS -6135 YPOS 9424
BLOCK 'BVBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 8624
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -4935 YPOS 8624
PROGRAM_ACTIVITY 'BV Default'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'WorkflowB'
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'BV Default'
DATA DEFAULT 'BV Default'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
BLOCK 'BV Queue Block'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -5635 YPOS 8624
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -5635 YPOS 9224
PROGRAM_ACTIVITY 'BV Validate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 9224
DESCRIPTION 'UPES Program for Benefit Verification validation'
DOCUMENTATION 'This will be called when the input comes from any of the divert queues, the bv verification has to be done automatically when it is from a divert queue, only if any of the verification fails, in that scenario the order should go to the BV Queue else continue to the RX Entry Queue'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Nurses' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'BV Validate'
DATA LOOP 'BV Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9324
XPOS -6235 YPOS 9424
DATA DEFAULT 'BV Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9024
XPOS -6135 YPOS 9124
DATA FROM 'BV Validate' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'BVQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
DESCRIPTION 'BVQ for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'BVQueue'
DATA LOOP 'BVQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 9624
XPOS -6935 YPOS 9724
DATA DEFAULT 'BVQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
PROGRAM_ACTIVITY 'Check Input'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'workflowName' INITIAL_VALUE 'WorkflowB'
'activityComplete' INITIAL_VALUE '0'
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check Input'
DATA DEFAULT 'Check Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
PROGRAM_ACTIVITY 'EndOrder'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -6335 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EndOrder'
DATA DEFAULT 'EndOrder'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9324
XPOS -6135 YPOS 9424
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9524
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9324
XPOS -8235 YPOS 9424
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'Check Input'
DATA FROM 'FMCINTERNALNOOP' TO 'Check Input'
MAP 'orderId' TO 'orderId'
MAP 'elementType' TO 'elementType'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'Check Input' TO 'BV Validate'
WHEN "(isDivert= ""Y"" AND divertFrom<> ""BVQueue"" )"
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'Check Input' TO 'BV Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check Input' TO 'BVQueue'
OTHERWISE
DATA FROM 'Check Input' TO 'BVQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BVQueue' TO 'BV Validate'
OTHERWISE
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'BVQueue' TO 'BV Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BVQueue' TO 'EndOrder'
WHEN "(routeFlag= ""END"" )"
END 'BV Queue Block'
DATA LOOP 'BV Queue Block'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -5435 YPOS 8724
XPOS -5535 YPOS 8824
DATA DEFAULT 'BV Queue Block'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -5535 YPOS 8424
XPOS -5435 YPOS 8524
DATA FROM 'BV Queue Block' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'BVDivertsQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
DESCRIPTION 'BV Divert for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'BVDivertsQueue'
DATA DEFAULT 'BVDivertsQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
PROGRAM_ACTIVITY 'CNPDivertsQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9224
DESCRIPTION 'CNP Divert for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'CNPDivertsQueue'
DATA DEFAULT 'CNPDivertsQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9024
XPOS -6835 YPOS 9124
PROGRAM_ACTIVITY 'DivertValidate'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'workflowName' INITIAL_VALUE 'WorkflowU'
LAYOUT XPOS -6335 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Nurses' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'DivertValidate'
DATA DEFAULT 'DivertValidate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9324
XPOS -6135 YPOS 9424
PROGRAM_ACTIVITY 'End Order'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -5635 YPOS 8324
DOCUMENTATION 'Final activity if an order is cancelled'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'End Order'
PROGRAM_ACTIVITY 'ReVerificationQueue'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'RVQ'
LAYOUT XPOS -7035 YPOS 8924
DESCRIPTION 'Re Verification Divert for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'ReVerificationQueue'
DATA DEFAULT 'ReVerificationQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 8724
XPOS -6835 YPOS 8824
BLOCK 'RxEligDivertBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 8324
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN ALL CONNECTORS TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -8435 YPOS 9224
PROGRAM_ACTIVITY 'RxEligDivertQueue'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'workflowName' INITIAL_VALUE 'WorkflowV'
'activityComplete' INITIAL_VALUE '0'
'elementType' INITIAL_VALUE 'ORDER'
LAYOUT XPOS -7035 YPOS 9224
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY 0
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'RxEligDivertQueue'
PROGRAM_ACTIVITY 'End Order'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -6335 YPOS 9224
DOCUMENTATION 'Final activity if an order is cancelled'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY 0
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'End Order'
PROGRAM_ACTIVITY 'RxEligDivertValidate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 8924
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY 0
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'RxEligDivertValidate'
DATA LOOP 'RxEligDivertValidate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9024
XPOS -6235 YPOS 9124
DATA DEFAULT 'RxEligDivertValidate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 8724
XPOS -6135 YPOS 8824
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7735 YPOS 9224
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9024
XPOS -7535 YPOS 9124
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'RxEligDivertQueue'
DATA FROM 'FMCINTERNALNOOP' TO 'RxEligDivertQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'RxEligDivertQueue' TO 'End Order'
WHEN "(routeFlag= ""END"" )"
CONTROL FROM 'RxEligDivertQueue' TO 'RxEligDivertValidate'
OTHERWISE
LAYOUT XPOS -6601 YPOS 9194
XPOS -6601 YPOS 8924
DATA FROM 'RxEligDivertQueue' TO 'RxEligDivertValidate'
MAP '_STRUCT' TO '_STRUCT'
END 'RxEligDivertBlock'
DATA LOOP 'RxEligDivertBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 8424
XPOS -6935 YPOS 8524
DATA DEFAULT 'RxEligDivertBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 8124
XPOS -6835 YPOS 8224
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9524
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9324
XPOS -8235 YPOS 9424
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'BV Default'
DATA FROM 'FMCINTERNALNOOP' TO 'BV Default'
MAP 'orderId' TO 'orderId'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'BV Default' TO 'BV Queue Block'
OTHERWISE
LAYOUT XPOS -5901 YPOS 9493
XPOS -5901 YPOS 8653
DATA FROM 'BV Default' TO 'BV Queue Block'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BV Default' TO 'BVDivertsQueue'
WHEN "(isDivert= ""Y"" AND divertTo= ""BVDQ"" )"
DATA FROM 'BV Default' TO 'BVDivertsQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BV Default' TO 'CNPDivertsQueue'
WHEN "(isDivert= ""Y"" AND divertTo= ""CPDQ"" )"
LAYOUT XPOS -7301 YPOS 9493
XPOS -7301 YPOS 9224
DATA FROM 'BV Default' TO 'CNPDivertsQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BV Default' TO 'ReVerificationQueue'
WHEN "(isDivert= ""Y"" AND divertTo= ""RVQ"" )"
LAYOUT XPOS -7301 YPOS 9493
XPOS -7301 YPOS 8924
DATA FROM 'BV Default' TO 'ReVerificationQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BV Default' TO 'RxEligDivertBlock'
WHEN "(isDivert= ""Y"" AND divertTo= ""PEDQ"" )"
LAYOUT XPOS -7301 YPOS 9493
XPOS -7301 YPOS 8324
DATA FROM 'BV Default' TO 'RxEligDivertBlock'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BVDivertsQueue' TO 'DivertValidate'
OTHERWISE
DATA FROM 'BVDivertsQueue' TO 'DivertValidate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'BVDivertsQueue' TO 'End Order'
WHEN "(routeFlag= ""END"" )"
LAYOUT XPOS -5901 YPOS 9493
XPOS -5901 YPOS 8353
CONTROL FROM 'CNPDivertsQueue' TO 'DivertValidate'
OTHERWISE
LAYOUT XPOS -6601 YPOS 9253
XPOS -6601 YPOS 9493
DATA FROM 'CNPDivertsQueue' TO 'DivertValidate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'CNPDivertsQueue' TO 'End Order'
WHEN "(routeFlag= ""END"" )"
LAYOUT XPOS -5901 YPOS 9194
XPOS -5901 YPOS 8353
CONTROL FROM 'ReVerificationQueue' TO 'End Order'
WHEN "(routeFlag= ""END"" )"
LAYOUT XPOS -5901 YPOS 8924
XPOS -5901 YPOS 8353
CONTROL FROM 'ReVerificationQueue' TO 'BV Queue Block'
OTHERWISE
LAYOUT XPOS -5901 YPOS 8924
XPOS -5901 YPOS 8653
DATA FROM 'ReVerificationQueue' TO 'BV Queue Block'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'RxEligDivertBlock' TO 'End Order'
WHEN "(routeFlag= ""END"" )"
CONTROL FROM 'RxEligDivertBlock' TO 'BV Queue Block'
OTHERWISE
LAYOUT XPOS -5901 YPOS 8353
XPOS -5901 YPOS 8594
DATA FROM 'RxEligDivertBlock' TO 'BV Queue Block'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'DivertValidate' TO 'End Order'
WHEN "(routeFlag= ""END"" )"
LAYOUT XPOS -5901 YPOS 9524
XPOS -5901 YPOS 8353
CONTROL FROM 'DivertValidate' TO 'BV Queue Block'
OTHERWISE
LAYOUT XPOS -5901 YPOS 9524
XPOS -5901 YPOS 8653
DATA FROM 'DivertValidate' TO 'BV Queue Block'
MAP '_STRUCT' TO '_STRUCT'
END 'BVBlock'
DATA LOOP 'BVBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 8724
XPOS -6235 YPOS 8824
DATA DEFAULT 'BVBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 8424
XPOS -6135 YPOS 8524
PROGRAM_ACTIVITY 'Check Input'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check Input'
DATA DEFAULT 'Check Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
PROGRAM_ACTIVITY 'Do Divert'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 8324
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Do Divert'
DATA DEFAULT 'Do Divert'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 8124
XPOS -6835 YPOS 8224
PROGRAM_ACTIVITY 'End Order'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -2835 YPOS 8924
DOCUMENTATION 'Final activity if an order is cancelled'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'End Order'
PROGRAM_ACTIVITY 'End Order1'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -35 YPOS 8924
DOCUMENTATION 'Final activity if an order is cancelled'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'End Order1'
BLOCK 'EnrollmentBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 8624
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -6335 YPOS 9524
PROGRAM_ACTIVITY 'End Order'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -7035 YPOS 9224
DOCUMENTATION 'Final activity if an order is cancelled'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'End Order'
PROGRAM_ACTIVITY 'Enrollment Validate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'Enrollment Validate'
DATA DEFAULT 'Enrollment Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
DATA FROM 'Enrollment Validate' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'EnrollmentQueue'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'workflowName' INITIAL_VALUE 'WorkflowA'
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
LAYOUT XPOS -7735 YPOS 9524
DESCRIPTION 'EQ for Order ID %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EnrollmentQueue'
DATA LOOP 'EnrollmentQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7535 YPOS 9624
XPOS -7635 YPOS 9724
DATA DEFAULT 'EnrollmentQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9524
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9324
XPOS -8235 YPOS 9424
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'EnrollmentQueue'
DATA FROM 'FMCINTERNALNOOP' TO 'EnrollmentQueue'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'orderId' TO 'orderId'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'EnrollmentQueue' TO 'Enrollment Validate'
OTHERWISE
DATA FROM 'EnrollmentQueue' TO 'Enrollment Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'EnrollmentQueue' TO 'End Order'
WHEN "(routeFlag= ""CANCEL"" OR routeFlag= ""END"" )"
LAYOUT XPOS -7301 YPOS 9493
XPOS -7301 YPOS 9224
END 'EnrollmentBlock'
DATA LOOP 'EnrollmentBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 8724
XPOS -6935 YPOS 8824
DATA DEFAULT 'EnrollmentBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 8424
XPOS -6835 YPOS 8524
BLOCK 'FillOrderBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -3535 YPOS 9524
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -4235 YPOS 9524
PROGRAM_ACTIVITY 'Check Fill Order Input'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'WorkflowH'
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Shipping' MEMBERS_ONLY
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check Fill Order Input'
DATA DEFAULT 'Check Fill Order Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
PROGRAM_ACTIVITY 'EndOrder'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -4935 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'WorkflowAdmin' MEMBERS_ONLY
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EndOrder'
PROGRAM_ACTIVITY 'FillOrder Queue Validate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -4935 YPOS 9224
DESCRIPTION 'UPES Program for FillOrder Queue validation'
DOCUMENTATION 'This will be called when the input comes from any of the divert queues, the bv verification has to be done automatically when it is from a divert queue, only if any of the verification fails, in that scenario the order should go to the BV Queue else continue to the RX Entry Queue'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Shipping' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'FillOrder Queue Validate'
DATA FROM 'FillOrder Queue Validate' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'FillOrderQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -5635 YPOS 9224
DESCRIPTION 'Fill Order Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'FillOrderQueue'
DATA LOOP 'FillOrderQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -5435 YPOS 9324
XPOS -5535 YPOS 9424
DATA DEFAULT 'FillOrderQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -5535 YPOS 9024
XPOS -5435 YPOS 9124
PROGRAM_ACTIVITY 'StageFillQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 9524
DESCRIPTION 'Stage Fill Order Q for Order %orderId%'
START MANUAL WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY 0
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'StageFillQueue'
DATA LOOP 'StageFillQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9624
XPOS -6235 YPOS 9724
DATA DEFAULT 'StageFillQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9324
XPOS -6135 YPOS 9424
PROGRAM_ACTIVITY 'Check Fill or Stage'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY 0
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check Fill or Stage'
DATA LOOP 'Check Fill or Stage'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 9624
XPOS -6935 YPOS 9724
DATA DEFAULT 'Check Fill or Stage'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9524
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9324
XPOS -8235 YPOS 9424
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'Check Fill Order Input'
DATA FROM 'FMCINTERNALNOOP' TO 'Check Fill Order Input'
MAP 'orderId' TO 'orderId'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'Check Fill Order Input' TO 'FillOrder Queue Validate'
WHEN "((isDivert= ""Y"" AND divertFrom<> ""FillOrderQueue"" ) OR routeFlag= ""FillOrderValidate"" )"
LAYOUT XPOS -5201 YPOS 9493
XPOS -5201 YPOS 9253
DATA FROM 'Check Fill Order Input' TO 'FillOrder Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check Fill Order Input' TO 'Check Fill or Stage'
OTHERWISE
DATA FROM 'Check Fill Order Input' TO 'Check Fill or Stage'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check Fill or Stage' TO 'FillOrderQueue'
WHEN "(routeFlag= ""FillOrderQueue"" )"
LAYOUT XPOS -5901 YPOS 9493
XPOS -5901 YPOS 9224
DATA FROM 'Check Fill or Stage' TO 'FillOrderQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check Fill or Stage' TO 'StageFillQueue'
WHEN "(routeFlag= ""StageFillQueue"" )"
DATA FROM 'Check Fill or Stage' TO 'StageFillQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'StageFillQueue' TO 'FillOrderQueue'
LAYOUT XPOS -5901 YPOS 9524
XPOS -5901 YPOS 9224
DATA FROM 'StageFillQueue' TO 'FillOrderQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FillOrderQueue' TO 'FillOrder Queue Validate'
OTHERWISE
DATA FROM 'FillOrderQueue' TO 'FillOrder Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FillOrderQueue' TO 'EndOrder'
WHEN "(routeFlag= ""END"" )"
LAYOUT XPOS -5201 YPOS 9253
XPOS -5201 YPOS 9524
END 'FillOrderBlock'
DATA LOOP 'FillOrderBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -3335 YPOS 9624
XPOS -3435 YPOS 9724
DATA DEFAULT 'FillOrderBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -3435 YPOS 9324
XPOS -3335 YPOS 9424
BLOCK 'PackQueueBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -1435 YPOS 9224
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -5635 YPOS 9224
PROGRAM_ACTIVITY 'Check Pack Q Input'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'WorkflowL'
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check Pack Q Input'
DATA DEFAULT 'Check Pack Q Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
PROGRAM_ACTIVITY 'EndOrder'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -6335 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'WorkflowAdmin' MEMBERS_ONLY
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EndOrder'
PROGRAM_ACTIVITY 'Pack Queue Validate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 9224
DESCRIPTION 'UPES Program for Pack Queue validation'
DOCUMENTATION 'This will be called when the input comes from any of the divert queues, the bv verification has to be done automatically when it is from a divert queue, only if any of the verification fails, in that scenario the order should go to the BV Queue else continue to the RX Entry Queue'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Shipping' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'Pack Queue Validate'
DATA LOOP 'Pack Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9324
XPOS -6235 YPOS 9424
DATA DEFAULT 'Pack Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9024
XPOS -6135 YPOS 9124
DATA FROM 'Pack Queue Validate' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'PackQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
DESCRIPTION 'Pack Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'PackQueue'
DATA LOOP 'PackQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 9624
XPOS -6935 YPOS 9724
DATA DEFAULT 'PackQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9524
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9324
XPOS -8235 YPOS 9424
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'Check Pack Q Input'
DATA FROM 'FMCINTERNALNOOP' TO 'Check Pack Q Input'
MAP 'orderId' TO 'orderId'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'Check Pack Q Input' TO 'Pack Queue Validate'
WHEN "(isDivert= ""Y"" AND divertFrom<> ""FillOrderQueue"" )"
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'Check Pack Q Input' TO 'Pack Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check Pack Q Input' TO 'PackQueue'
OTHERWISE
DATA FROM 'Check Pack Q Input' TO 'PackQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'PackQueue' TO 'Pack Queue Validate'
OTHERWISE
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'PackQueue' TO 'Pack Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'PackQueue' TO 'EndOrder'
WHEN "(routeFlag= ""END"" )"
END 'PackQueueBlock'
DATA LOOP 'PackQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -1235 YPOS 9324
XPOS -1335 YPOS 9424
DATA DEFAULT 'PackQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -1335 YPOS 9024
XPOS -1235 YPOS 9124
BLOCK 'PCQueueBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -4235 YPOS 9524
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9224
SINK 1 XPOS -4935 YPOS 9524
PROGRAM_ACTIVITY 'Check PC Queue Input'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'WorkflowG'
LAYOUT XPOS -7735 YPOS 9224
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'WorkflowAdmin' MEMBERS_ONLY
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check PC Queue Input'
DATA LOOP 'Check PC Queue Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7535 YPOS 9324
XPOS -7635 YPOS 9424
DATA DEFAULT 'Check PC Queue Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9024
XPOS -7535 YPOS 9124
PROGRAM_ACTIVITY 'EndOrder'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -5635 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'WorkflowAdmin' MEMBERS_ONLY
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EndOrder'
PROGRAM_ACTIVITY 'PC Queue Validate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -5635 YPOS 9224
DESCRIPTION 'UPES Program for PC Queue validation'
DOCUMENTATION 'This will be called when the input comes from any of the divert queues, the bv verification has to be done automatically when it is from a divert queue, only if any of the verification fails, in that scenario the order should go to the BV Queue else continue to the RX Entry Queue'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Purchasing' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'PC Queue Validate'
DATA LOOP 'PC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -5435 YPOS 9324
XPOS -5535 YPOS 9424
DATA DEFAULT 'PC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -5535 YPOS 9024
XPOS -5435 YPOS 9124
DATA FROM 'PC Queue Validate' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'PCQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 9224
DESCRIPTION 'PC Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'PCQueue'
DATA LOOP 'PCQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9324
XPOS -6235 YPOS 9424
DATA DEFAULT 'PCQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9024
XPOS -6135 YPOS 9124
PROGRAM_ACTIVITY 'PCRefillQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 8924
DESCRIPTION 'PC Refill Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY 0
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'PCRefillQueue'
DATA LOOP 'PCRefillQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9024
XPOS -6235 YPOS 9124
DATA DEFAULT 'PCRefillQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 8724
XPOS -6135 YPOS 8824
PROGRAM_ACTIVITY 'Check PC New or Refill'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9224
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY 0
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check PC New or Refill'
DATA LOOP 'Check PC New or Refill'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 9324
XPOS -6935 YPOS 9424
DATA DEFAULT 'Check PC New or Refill'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9024
XPOS -6835 YPOS 9124
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9224
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9024
XPOS -8235 YPOS 9124
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'Check PC Queue Input'
DATA FROM 'FMCINTERNALNOOP' TO 'Check PC Queue Input'
MAP 'orderId' TO 'orderId'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'Check PC Queue Input' TO 'PC Queue Validate'
WHEN "(isDivert= ""Y"" AND (divertFrom<> ""PCQueue"" OR divertFrom<> ""PCRefillQueue"" ))"
DATA FROM 'Check PC Queue Input' TO 'PC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check PC Queue Input' TO 'Check PC New or Refill'
OTHERWISE
DATA FROM 'Check PC Queue Input' TO 'Check PC New or Refill'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check PC New or Refill' TO 'PCQueue'
WHEN "(routeFlag= ""PCQueue"" )"
DATA FROM 'Check PC New or Refill' TO 'PCQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check PC New or Refill' TO 'PCRefillQueue'
OTHERWISE
LAYOUT XPOS -6601 YPOS 9194
XPOS -6601 YPOS 8924
DATA FROM 'Check PC New or Refill' TO 'PCRefillQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'PCQueue' TO 'PC Queue Validate'
OTHERWISE
DATA FROM 'PCQueue' TO 'PC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'PCQueue' TO 'EndOrder'
WHEN "(routeFlag= ""END"" )"
LAYOUT XPOS -5901 YPOS 9253
XPOS -5901 YPOS 9524
CONTROL FROM 'PCRefillQueue' TO 'PC Queue Validate'
OTHERWISE
LAYOUT XPOS -5901 YPOS 8924
XPOS -5901 YPOS 9194
DATA FROM 'PCRefillQueue' TO 'PC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'PCRefillQueue' TO 'EndOrder'
WHEN "(routeFlag= ""END"" )"
LAYOUT XPOS -5901 YPOS 8924
XPOS -5901 YPOS 9524
END 'PCQueueBlock'
DATA LOOP 'PCQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -4035 YPOS 9624
XPOS -4135 YPOS 9724
DATA DEFAULT 'PCQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -4135 YPOS 9324
XPOS -4035 YPOS 9424
BLOCK 'PickQueueBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -2835 YPOS 9524
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -5635 YPOS 9224
PROGRAM_ACTIVITY 'Check Pick Q Input'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'WorkflowJ'
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check Pick Q Input'
DATA DEFAULT 'Check Pick Q Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
PROGRAM_ACTIVITY 'EndOrder'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -6335 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'WorkflowAdmin' MEMBERS_ONLY
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EndOrder'
PROGRAM_ACTIVITY 'Pick Queue Validate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 9224
DESCRIPTION 'UPES Program for Pick Queue validation'
DOCUMENTATION 'This will be called when the input comes from any of the divert queues, the bv verification has to be done automatically when it is from a divert queue, only if any of the verification fails, in that scenario the order should go to the BV Queue else continue to the RX Entry Queue'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Quality Control' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'Pick Queue Validate'
DATA LOOP 'Pick Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9324
XPOS -6235 YPOS 9424
DATA DEFAULT 'Pick Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9024
XPOS -6135 YPOS 9124
DATA FROM 'Pick Queue Validate' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'PickQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
DESCRIPTION 'Pick Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'PickQueue'
DATA LOOP 'PickQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 9624
XPOS -6935 YPOS 9724
DATA DEFAULT 'PickQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9524
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9324
XPOS -8235 YPOS 9424
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'Check Pick Q Input'
DATA FROM 'FMCINTERNALNOOP' TO 'Check Pick Q Input'
MAP 'orderId' TO 'orderId'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'Check Pick Q Input' TO 'Pick Queue Validate'
WHEN "(isDivert= ""Y"" AND divertFrom<> ""FillOrderQueue"" )"
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'Check Pick Q Input' TO 'Pick Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check Pick Q Input' TO 'PickQueue'
OTHERWISE
DATA FROM 'Check Pick Q Input' TO 'PickQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'PickQueue' TO 'Pick Queue Validate'
OTHERWISE
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'PickQueue' TO 'Pick Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'PickQueue' TO 'EndOrder'
WHEN "(routeFlag= ""END"" )"
END 'PickQueueBlock'
DATA LOOP 'PickQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -2635 YPOS 9624
XPOS -2735 YPOS 9724
DATA DEFAULT 'PickQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -2735 YPOS 9324
XPOS -2635 YPOS 9424
BLOCK 'QCQueueBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -2135 YPOS 9224
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -5635 YPOS 9224
PROGRAM_ACTIVITY 'Check QC Q Input'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'WorkflowK'
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'Check QC Q Input'
DATA DEFAULT 'Check QC Q Input'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
PROGRAM_ACTIVITY 'EndOrder'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -6335 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'WorkflowAdmin' MEMBERS_ONLY
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EndOrder'
PROGRAM_ACTIVITY 'QC Queue Validate'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -6335 YPOS 9224
DESCRIPTION 'UPES Program for QC Queue validation'
DOCUMENTATION 'This will be called when the input comes from any of the divert queues, the bv verification has to be done automatically when it is from a divert queue, only if any of the verification fails, in that scenario the order should go to the BV Queue else continue to the RX Entry Queue'
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
DONE_BY ORGANIZATION 'Quality Control' MEMBERS_ONLY
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'VALIDATE.FMCSYS.FMCGRP'
END 'QC Queue Validate'
DATA LOOP 'QC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6135 YPOS 9324
XPOS -6235 YPOS 9424
DATA DEFAULT 'QC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6235 YPOS 9024
XPOS -6135 YPOS 9124
DATA FROM 'QC Queue Validate' TO SINK
MAP '_STRUCT' TO '_STRUCT'
PROGRAM_ACTIVITY 'QCQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
DESCRIPTION 'QC Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'QCQueue'
DATA LOOP 'QCQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 9624
XPOS -6935 YPOS 9724
DATA DEFAULT 'QCQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
PROGRAM_ACTIVITY 'FMCINTERNALNOOP'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -8435 YPOS 9524
START AUTOMATIC WHEN ALL CONNECTORS TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY LEVEL 0 .. 0
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
END 'FMCINTERNALNOOP'
DATA DEFAULT 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -8335 YPOS 9324
XPOS -8235 YPOS 9424
DATA FROM SOURCE TO 'FMCINTERNALNOOP'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'FMCINTERNALNOOP' TO 'Check QC Q Input'
DATA FROM 'FMCINTERNALNOOP' TO 'Check QC Q Input'
MAP 'divertTo' TO 'divertTo'
MAP 'divertFrom' TO 'divertFrom'
MAP 'orderId' TO 'orderId'
MAP 'routeFlag' TO 'routeFlag'
MAP 'isDivert' TO 'isDivert'
MAP 'currentUser' TO 'currentUser'
MAP 'status' TO 'status'
MAP 'pharmacy' TO 'pharmacy'
MAP 'patients' TO 'patients'
MAP 'products' TO 'products'
CONTROL FROM 'Check QC Q Input' TO 'QC Queue Validate'
WHEN "(isDivert= ""Y"" AND divertFrom<> ""FillOrderQueue"" )"
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'Check QC Q Input' TO 'QC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'Check QC Q Input' TO 'QCQueue'
OTHERWISE
DATA FROM 'Check QC Q Input' TO 'QCQueue'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'QCQueue' TO 'QC Queue Validate'
OTHERWISE
LAYOUT XPOS -6601 YPOS 9493
XPOS -6601 YPOS 9224
DATA FROM 'QCQueue' TO 'QC Queue Validate'
MAP '_STRUCT' TO '_STRUCT'
CONTROL FROM 'QCQueue' TO 'EndOrder'
WHEN "(routeFlag= ""END"" )"
END 'QCQueueBlock'
DATA LOOP 'QCQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -1935 YPOS 9324
XPOS -2035 YPOS 9424
DATA DEFAULT 'QCQueueBlock'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -2035 YPOS 9024
XPOS -1935 YPOS 9124
BLOCK 'RXEntryBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -5635 YPOS 8024
WINDOW VIEW_REFERENCE_POINT XPOS -9108 YPOS 9490
WINDOW PAPERSIZE WIDTH 20000 HEIGHT 20000
START WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT WHEN "activityComplete= 1 "
WINDOW SHOW ALL CONNECTORS
WINDOW SHOW NO CONDITIONS
SOURCE 1 XPOS -9135 YPOS 9524
SINK 1 XPOS -4935 YPOS 9224
PROGRAM_ACTIVITY 'EndOrder'('Default Data Structure','Default Data Structure')
LAYOUT XPOS -5635 YPOS 8924
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'EndOrder'
PROGRAM_ACTIVITY 'RxDivertQueue'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -7035 YPOS 9524
DESCRIPTION 'RX Divert Q for Order %orderId%'
START MANUAL WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC WHEN "activityComplete= 1 "
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'Empty Program'
SYNCHRONIZATION NESTED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'RxDivertQueue'
DATA LOOP 'RxDivertQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6835 YPOS 9624
XPOS -6935 YPOS 9724
DATA DEFAULT 'RxDivertQueue'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -6935 YPOS 9324
XPOS -6835 YPOS 9424
PROGRAM_ACTIVITY 'RxEntryDefault'('SpecsOrder','SpecsOrder')
INPUT_CONTAINER
'elementType' INITIAL_VALUE 'ORDER'
'activityComplete' INITIAL_VALUE '0'
'workflowName' INITIAL_VALUE 'WorkflowE'
LAYOUT XPOS -7735 YPOS 9524
START AUTOMATIC WHEN AT_LEAST_ONE CONNECTOR TRUE
EXIT AUTOMATIC
PRIORITY DEFINED_IN INPUT_CONTAINER
DONE_BY PERSON 'WFADMIN'
PROGRAM 'FMCINTERNALNOOP'
SYNCHRONIZATION CHAINED
PROGRAM_EXECUTION_UNIT 'EMPTUPES.FMCSYS.FMCGRP'
END 'RxEntryDefault'
DATA DEFAULT 'RxEntryDefault'
MAP '_STRUCT' TO '_STRUCT'
LAYOUT XPOS -7635 YPOS 9324
XPOS -7535 YPOS 9424
BLOCK 'RxEntryQueueBlock'('SpecsOrder','SpecsOrder')
LAYOUT XPOS -5635 YPOS 9224
WINDOW VIEW_REFERENCE_POINT XPOS -9108 Y
_________________
Srisudhir Tadepalli |
|
| Back to top |
|
|
| jmac |
| Posted: Mon May 15, 2006 9:19 am Post subject: |
|
|
Jedi Knight
Joined: 27 Jun 2001
Posts: 3081
Location: EmeriCon, LLC
|
Try importing your FDL into buildtime and see if you get the error. The issue is most likely that a Block is modeled as a Process in Modeler.
_________________
John McDonald
RETIRED |
|
| Back to top |
|
|
|
|
|
  |
Goto page 1, 2 Next |
Page 1 of 2 |
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
|
|
