Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 59.0135

Package: Outpatient Pharmacy

OUTPATIENT SITE(#59)-->59.0135

Sub-Field: 59.0135


Information

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

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)
Info |  Details |  All