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

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.

Directly Accessed By Routines, Total: 4

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

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