INPUT TRANSFORM: S DIC("S")="I $$CLCHK2^PSJPADSI(Y,DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 08, 2015
HELP-PROMPT: Enter a Clinic location supplied by this PADE device.
Clinic locations associated with this PADE device.
SCREEN: S DIC("S")="I $$CLCHK2^PSJPADSI(Y,DA)"
EXPLANATION: Allow only Clinic associated with Division
1)= S ^PS(58.63,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^PS(58.63,DA(1),6,"B",$E(X,1,30),DA)
FIELD INDEX: CL (#1380) MUMPS IR LOOKUP & SORTING WHOLE FILE (#58.63)
Short Descr: CLINIC LOCATIONS
Description: This cross reference contains Clinics associated with PADE Dispensing cabinets. This cross reference will be used to enable and disable the display of PADE information in Inpatient Order Entry by enabling the display
when an order's clinic location is linked to a PADE device, and disabling the display when a patient's clinic location is not linked to a PADE device.