INPUT TRANSFORM: S DIC("S")="I ($E($P($G(^(0)),U),1,5)=""IBACC""&($P($G(^(0)),U,4)=""A""))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: JAN 26, 2026
HELP-PROMPT: Enter an Action Protocol to associate the Activity Code to.
DESCRIPTION:
This is the Action Protocol (Action items) associated with the Activity Code. The user is presented with only those Activity Codes associated with the Action item they chose in the worklist.
SCREEN: S DIC("S")="I ($E($P($G(^(0)),U),1,5)=""IBACC""&($P($G(^(0)),U,4)=""A""))"
EXPLANATION: ONLY ACC ACTION PROTOCOLS CAN BE CHOSEN
CROSS-REFERENCE: 364.92515^B
1)= S ^IBA(364.92,DA(2),5,DA(1),15,"B",$E(X,1,30),DA)=""
2)= K ^IBA(364.92,DA(2),5,DA(1),15,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 364.92^AC^MUMPS
1)= D ACTIONREF^IBACCWLUTIL(.DA)
2)= D KACTIONREF^IBACCWLUTIL(.DA)
This cross reference is used to present the user with only those Activity Codes associated with the Action Item they chose from the worklist menu.