Sub-Field: 59.0135

Parent File	Name	Number	Package
OUTPATIENT SITE(#59)	FDA MED GUIDE PRINTER	59.0135	Outpatient Pharmacy

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	FDA MED GUIDE PRINTER	0;1	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) INPUT TRANSFORM: `S DIC("S")="I $P($G(^%ZIS(1,+Y,""WIN"")),U)'=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `NOV 14, 2011` HELP-PROMPT: `Enter the FDA Medication Guide printer for the division.` DESCRIPTION: `This is the printer used to print FDA Medication Guides for the division.` TECHNICAL DESCR: `Only entries in the DEVICE file (#3.5) with a WINDOWS PRINTER NETWORK NAME (#75) field content can be selected.` SCREEN: `S DIC("S")="I $P($G(^%ZIS(1,+Y,""WIN"")),U)'="""""` EXPLANATION: `Only devices with a Windows Network Printer Name are allowed.` CROSS-REFERENCE: `59.0135^B` `1)= S ^PS(59,DA(1),"FDA","B",$E(X,1,30),DA)=""` `2)= K ^PS(59,DA(1),"FDA","B",$E(X,1,30),DA)`
.02	DEFAULT PRINTER	0;2	SET	'1' FOR YES; LAST EDITED: `OCT 25, 2011` HELP-PROMPT: `Indicate whether the printer is the default FDA Medication Guide Printer for the division.` DESCRIPTION: `This field indicates whether the printer will be used as the default printer when printing FDA Medication Guide for the division.` TECHNICAL DESCR: `Only one entry in the sub-file can have this field set to '1' as there can only be one default printer.` FIELD INDEX: `AFDA1 (#850) MUMPS IR ACTION` `Short Descr: Enforces only 1 default Med Guide Printer per Division.` `Description: This cross-reference ensures that only one printer can be set as the default printer for printing FDA Medication Guide per division. It sets this field to null for every other printer in the multiple.` `Set Logic: N I F I=0:0 S I=$O(^PS(59,DA(1),"FDA",I)) Q:'I S:I'=DA $P(^PS(59,DA(1),"FDA",I,0),"^",2)=""` `Kill Logic: Q` `X(1): DEFAULT PRINTER (59.0135,.02) (Len 1) (forwards)`

.01

FDA MED GUIDE PRINTER

0;1

POINTER TO DEVICE FILE (#3.5)

DEVICE(#3.5)

INPUT TRANSFORM: S DIC("S")="I $P($G(^%ZIS(1,+Y,""WIN"")),U)'=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: NOV 14, 2011
HELP-PROMPT: Enter the FDA Medication Guide printer for the division.
DESCRIPTION:
This is the printer used to print FDA Medication Guides for the division.
TECHNICAL DESCR:
Only entries in the DEVICE file (#3.5) with a WINDOWS PRINTER NETWORK NAME (#75) field content can be selected.
SCREEN: S DIC("S")="I $P($G(^%ZIS(1,+Y,""WIN"")),U)'="""""
EXPLANATION: Only devices with a Windows Network Printer Name are allowed.
CROSS-REFERENCE: 59.0135^B
1)= S ^PS(59,DA(1),"FDA","B",$E(X,1,30),DA)=""
2)= K ^PS(59,DA(1),"FDA","B",$E(X,1,30),DA)

.02

DEFAULT PRINTER

0;2

SET

'1' FOR YES;

LAST EDITED: OCT 25, 2011
HELP-PROMPT: Indicate whether the printer is the default FDA Medication Guide Printer for the division.
DESCRIPTION:
This field indicates whether the printer will be used as the default printer when printing FDA Medication Guide for the division.
TECHNICAL DESCR:
Only one entry in the sub-file can have this field set to '1' as there can only be one default printer.
FIELD INDEX: AFDA1 (#850) MUMPS IR ACTION
Short Descr: Enforces only 1 default Med Guide Printer per Division.
Description: This cross-reference ensures that only one printer can be set as the default printer for printing FDA Medication Guide per division. It sets this field to null for every other printer in the multiple.
Set Logic: N I F I=0:0 S I=$O(^PS(59,DA(1),"FDA",I)) Q:'I S:I'=DA $P(^PS(59,DA(1),"FDA",I,0),"^",2)=""
Kill Logic: Q
X(1): DEFAULT PRINTER (59.0135,.02) (Len 1) (forwards)

Customize PDF page

Package: Outpatient Pharmacy

OUTPATIENT SITE(#59)-->59.0135

Sub-Field: 59.0135

Information

Details