Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBE(357.94

Package: Automated Information Collection System

Global: ^IBE(357.94


Information

FileMan FileNo FileMan Filename Package
357.94 ENCOUNTER FORM PRINTERS Automated Information Collection System

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Automated Information Collection System 4 IBDF EDIT PRINTER    ^IBE(357.94    IBDFUA    ^SDAUDIT    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Automated Information Collection System 1 IBDFDVE    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 TERMINAL TYPE(#3.2)[.01]    

Fields, Total: 7

Field # Name Loc Type Details
.01 TERMINAL TYPE 0;1 POINTER TO TERMINAL TYPE FILE (#3.2)
************************REQUIRED FIELD************************
TERMINAL TYPE(#3.2)

  • LAST EDITED:  JUN 27, 1994
  • HELP-PROMPT:  What type of terminal is the printer?
  • DESCRIPTION:  Enter the terminal type that you'd like to define for encounter forms. You can enter a printer control language, simplex and duplex printer escape sequences. Currently only PCL5 is supported for scannable encounter
    forms. Simplex and Duplex printing is supported on all printers that have duplex printing ability. Generally all HP printers (HP3 and above) support PCL5.
  • CROSS-REFERENCE:  357.94^B
    1)= S ^IBE(357.94,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(357.94,"B",$E(X,1,30),DA)
.02 PRINTER LANGUAGE TYPE 0;2 SET
  • '1' FOR PCL5;

  • LAST EDITED:  MAR 14, 1997
  • DESCRIPTION:  Enter the printer control language that this terminal type supports for printing scannable encounter forms. Currently only PCL5 is supported.
    If this terminal type supports PCL5 then enter PCL5, otherwise this should be left blank. Generally all HP printers (HP3 and above) support PCL5.
  • CROSS-REFERENCE:  ^^TRIGGER^357.94^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X="$C(27)_""&l0S""
    " X ^DD(357.94,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=357.94,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(357.94,.02,1,1,79.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(357.94,.02,1,1,2.4)
    2.4)= S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=357.94,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    79.2)= S Y(2)=$C(59)_$S($D(^DD(357.94,.02,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1)
    CREATE CONDITION)= #.03=""
    CREATE VALUE)= S X="$C(27)_""&l0S"""
    DELETE CONDITION)= #.02=""
    DELETE VALUE)= @
    FIELD)= #.03
    This trigger will set the correct Simplex code for PCL5 printers.
  • CROSS-REFERENCE:  ^^TRIGGER^357.94^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="$C(27)_""&l1S""
    " X ^DD(357.94,.02,1,2,1.4)
    1.4)= S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=357.94,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(357.94,.02,1,2,79.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(357.94,.02,1,2,2.4)
    2.4)= S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=357.94,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    79.2)= S Y(2)=$C(59)_$S($D(^DD(357.94,.02,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1)
    CREATE CONDITION)= #.04=""
    CREATE VALUE)= S X="$C(27)_""&l1S"""
    DELETE CONDITION)= #.02=""
    DELETE VALUE)= @
    FIELD)= #.04
    This trigger will set the correct Duplex, Long Edge Binding code for PCL5 printers.
  • CROSS-REFERENCE:  ^^TRIGGER^357.94^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,5)="" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X="$C(27)_""&l2S""
    " X ^DD(357.94,.02,1,3,1.4)
    1.4)= S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=357.94,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(357.94,.02,1,3,79.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(357.94,.02,1,3,2.4)
    2.4)= S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=357.94,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    79.2)= S Y(2)=$C(59)_$S($D(^DD(357.94,.02,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1)
    CREATE CONDITION)= #.05=""
    CREATE VALUE)= S X="$C(27)_""&l2S"""
    DELETE CONDITION)= #.02=""
    DELETE VALUE)= @
    FIELD)= #.05
    This trigger will set the correct Duplex, Short Edge Binding code for PCL5 printers.
.03 SIMPLEX 0;3 FREE TEXT

  • INPUT TRANSFORM:  D CHECK^%ZISS1 K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  SEP 27, 1995
  • HELP-PROMPT:  Enter the printer language statement that will set the printer to simplex printing.
  • DESCRIPTION:  This is the code used to put this printer into Simplex mode (one sided print). For PCL5 printers this generally is $C(27)_"&l0S". Be careful when typing this in, the character sequence is: Escape, ampersand, lower case
    L, numeral zero, capital S.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRINTER LANGUAGE TYPE field of the ENCOUNTER FORM PRINTERS File
.04 DUPLEX, LONG-EDGE BINDING 0;4 FREE TEXT

  • INPUT TRANSFORM:  D CHECK^%ZISS1 K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  SEP 27, 1995
  • HELP-PROMPT:  Enter the printer language statement that will set the printer to duplex printing for long-edge binding.
  • DESCRIPTION:  This is the code used to put this printer into Duplex mode, long Edge Binding (two sided printing, like you'd use in a binder). For PCL5 printers this generally is $C(27)_"&l1S". Be careful when typing this in, the
    character sequence is: Escape, ampersand, lower case L, numeral 1, capital S.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRINTER LANGUAGE TYPE field of the ENCOUNTER FORM PRINTERS File
.05 DUPLEX, SHORT-EDGE BINDING 0;5 FREE TEXT

  • INPUT TRANSFORM:  D CHECK^%ZISS1 K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  SEP 27, 1995
  • HELP-PROMPT:  Enter the printer language statement that will set the printer to duplex printing for short-edge binding.
  • DESCRIPTION:  This is the code used to put this printer into Duplex mode, short Edge Binding (two sided printing, like you'd use in a patient chart). For PCL5 printers this generally is $C(27)_"&l2S". Be careful when typing this in,
    the character sequence is: Escape, ampersand, lower case L, numeral 2, capital S.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRINTER LANGUAGE TYPE field of the ENCOUNTER FORM PRINTERS File
.06 TCP PRINTER 0;6 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 03, 1997
  • DESCRIPTION:  Enter 'Yes' if this is a TCP printer terminal type such as P-REMOTE.
    Currently the duplex printing of Encounter Forms does not work correctly when sent to a TCP printer using a Jet Direct card. The problem is that at the end of the first page the printer appears to overflow causing a form
    feed. The subsequent form feed then causes the back of the page to be blank and the beginning of page 2 to start on a new page. While this issue is actively being reseached at the time of release of AICS v3 it has not
    been resolved. As a work around, entering a 'Yes' at this prompt will suppress the form feeds at the end of the page. Limited testing has shown this to be effective in producing duplex encounter forms.
  • TECHNICAL DESCR:  The variable IBDEVICE("TCP") is set in routine IBDFUA based on the value of this field. Routine IBDF2F uses this variable to determine if form feeds should be sent at the end of a page. This field should not be added the
    edit option until it has been tested in a high volume test at a VAMC.
.07 RESET EXECUTE CODE 0;7 FREE TEXT

  • INPUT TRANSFORM:  D CHECK^%ZISS1 K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  APR 10, 1997
  • HELP-PROMPT:  Enter the printer control code you want sent to the printer immediately after reset. Answer must be 3-60 characters in length.
  • DESCRIPTION:  Enter the printer code that you would like sent to the printer immediately after a reset is sent when using PCL5 to print encounter forms. This is primarily intended to support changes to which bin the paper should be
    sent to.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

External References

Name Field # of Occurrence
CHECK^%ZISS1 .03+1, .04+1, .05+1, .07+1
^DICR .02(XREF 1n1.4), .02(XREF 1n2.4), .02(XREF 2n1.4), .02(XREF 2n2.4), .02(XREF 3n1.4), .02(XREF 3n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .02(XREF 1n1.4), .02(XREF 1n2.4), .02(XREF 2n1.4), .02(XREF 2n2.4), .02(XREF 3n1.4), .02(XREF 3n2.4)
^DD(357.94 .02(XREF 1S), .02(XREF 1K), .02(XREF 1n79.2), .02(XREF 2S), .02(XREF 2K), .02(XREF 2n79.2), .02(XREF 3S), .02(XREF 3K), .02(XREF 3n79.2)
^IBE(357.94 - [#357.94] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n79.2), .02(XREF 2S), .02(XREF 2n1.4), .02(XREF 2K)
, .02(XREF 2n2.4), .02(XREF 2n79.2), .02(XREF 3S), .02(XREF 3n1.4), .02(XREF 3K), .02(XREF 3n2.4), .02(XREF 3n79.2)

Naked Globals

Name Field # of Occurrence
^(0 .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n79.2), .02(XREF 2S), .02(XREF 2n1.4), .02(XREF 2K), .02(XREF 2n2.4), .02(XREF 2n79.2)
, .02(XREF 3S), .02(XREF 3n1.4), .02(XREF 3K), .02(XREF 3n2.4), .02(XREF 3n79.2)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .02(XREF 1S), .02(XREF 1K), .02(XREF 1n79.2), .02(XREF 2S), .02(XREF 2K), .02(XREF 2n79.2), .02(XREF 3S), .02(XREF 3K), .02(XREF 3n79.2)
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
>> DIG .02(XREF 1n1.4), .02(XREF 1n2.4), .02(XREF 2n1.4), .02(XREF 2n2.4), .02(XREF 3n1.4), .02(XREF 3n2.4)
>> DIH .02(XREF 1n1.4), .02(XREF 1n2.4), .02(XREF 2n1.4), .02(XREF 2n2.4), .02(XREF 3n1.4), .02(XREF 3n2.4)
>> DIU .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
DIV .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 2S), .02(XREF 2n1.4), .02(XREF 2K), .02(XREF 2n2.4), .02(XREF 3S), .02(XREF 3n1.4)
, .02(XREF 3K), .02(XREF 3n2.4)
DIV(0 .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 2S), .02(XREF 2n1.4), .02(XREF 2K), .02(XREF 2n2.4), .02(XREF 3S), .02(XREF 3n1.4)
, .02(XREF 3K), .02(XREF 3n2.4)
U .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n79.2), .02(XREF 2S), .02(XREF 2n1.4), .02(XREF 2K), .02(XREF 2n2.4), .02(XREF 2n79.2)
, .02(XREF 3S), .02(XREF 3n1.4), .02(XREF 3K), .02(XREF 3n2.4), .02(XREF 3n79.2)
X .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n79.2), .02(XREF 2S), .02(XREF 2n1.4), .02(XREF 2K)
, .02(XREF 2n2.4), .02(XREF 2n79.2), .02(XREF 3S), .02(XREF 3n1.4), .02(XREF 3K), .02(XREF 3n2.4), .02(XREF 3n79.2), .03+1!, .04+1!, .05+1!
, .07+1!
Y .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
Y(0 .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
Y(1 .02(XREF 1S), .02(XREF 1K), .02(XREF 1n79.2), .02(XREF 2S), .02(XREF 2K), .02(XREF 2n79.2), .02(XREF 3S), .02(XREF 3K), .02(XREF 3n79.2)
Y(2 .02(XREF 1n79.2), .02(XREF 2n79.2), .02(XREF 3n79.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All