INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U,6)=4,$P($G(^(0)),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 23, 1993
HELP-PROMPT: You may enter reports that you DO NOT want to print for this clinic. Entering an EXCLUDED REPORT will prevent it from printing even if it is defined to print for the entire division.
DESCRIPTION:
Used to override repots defined to print for the division. Reports defined to print for the division will not print if they are excluded for the clinic.
SCREEN: S DIC("S")="I $P($G(^(0)),U,6)=4,$P($G(^(0)),U,9)=1"
EXPLANATION: Allows only available package interfaces that print reports.
CROSS-REFERENCE: 409.9502^B
1)= S ^SD(409.95,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^SD(409.95,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 409.95^AE^MUMPS
1)= S ^SD(409.95,"AE",$P(^SD(409.95,DA(1),0),U),X,DA(1),DA)=""
2)= K ^SD(409.95,"AE",$P(^SD(409.95,DA(1),0),U),X,DA(1),DA)
Used to determine if a particular report is defined NOT to print for a clinic.