STANDARD DATA DICTIONARY #357.94 -- ENCOUNTER FORM PRINTERS FILE 3/24/25 PAGE 1
STORED IN ^IBE(357.94, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of terminal types that can support either duplex printing or the printer control language PCL5. Entering
the correct information in this file will allow encounter forms printed to these terminal types to utilize these features.
DD ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: TERMINAL TYPE(B)
357.94,.01 TERMINAL TYPE 0;1 POINTER TO TERMINAL TYPE FILE (#3.2) (Required)
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)
357.94,.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.
357.94,.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
357.94,.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
357.94,.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
357.94,.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.
357.94,.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
FILES POINTED TO FIELDS
TERMINAL TYPE (#3.2) TERMINAL TYPE (#.01)
INPUT TEMPLATE(S):
IBDF EDIT PRINTER MAR 14, 1997@14:01 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):