Routine: DGPWB

Information

DGPWB ;ALB/CAW/MLR - Patient Wristband Print ; 9/27/00 3:40pm

Source Information

Source file <DGPWB.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	2	BL^DGPWBD (DEM,INP)^VADPT
VA Fileman	2	^DIC ^DIR
Adverse Reaction Tracking	1	IDBAND^GMRAMCU0

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DGPMV3 DGPW PATIENT WRISTBAND PRINT

Entry Points

Name	Comments	DBIA/ICR reference
TRCHKQ
EN	; Ask patient name ; This is used when printing a wristband from the menu
END	;Clean up variables
TRCHK(TYPE)	;Check to see if appropriate type to continue
ASK()	;Ask if they want to print
DEVICEQ
STARTQ
PID	;Substituting SS# for missing PID# 287 MLR
DEVEN
START(DFN)	;Start ; This is where it will be used when in admit or transfer ; Input is patient IFN
DIVISION(WARD)	; Obtain Divison from Ward Location	ICR #5905 Status: Active Usage: Private
ENQ
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
SET	;Set the lines to print	ICR #5905 Status: Active Usage: Private
DEVICE()	;
PRINT	; Print the wristband
ASKQ
DIV
TRANS

External References

Name	Field # of Occurrence
^%ZIS	DEVEN+1
^%ZISC	SET+25
^%ZTLOAD	QUE+6
BL^DGPWBD	PRINT+4
^DIC	EN+6
^DIR	ASK+3
IDBAND^GMRAMCU0	SET+27
DEM^VADPT	SET+5
INP^VADPT	EN+7, START+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Printing Wristbands for inpatients at this division is set to no." Line Location: EN+9
Function Call: WRITE	Prompt: !,"A printer must be selected." Line Location: DEVEN+2
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Routine Call	DIC Line Location: EN+6
Routine Call	DIR Line Location: ASK+3
Routine Call	%ZIS Line Location: DEVEN+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SET+27
^DG(40.8 - [#40.8]	DIVISION+6, DIVISION+7
^DG(405.2 - [#405.2]	TRCHK+4
^DG(43 - [#43]	DIVISION+6
^DIC(39.1 - [#39.1]	SET+10, SET+11, SET+12, SET+13
^DIC(39.2 - [#39.2]	SET+14, SET+17
^DIC(42 - [#42]	DIVISION+5
^DPT - [#2]	PID+4
^UTILITY("DGPM"	TRANS+3, TRANS+4

Label References

Name	Line Occurrences
$$ASK	DIV+1
$$DEVICE	EN+10, DIV+3
$$DIVISION	EN+9, DIV
$$QUE	DEVEN+4
$$TRCHK	TRANS
DEVEN	DEVEN+2
DEVICEQ	DEVEN+1, DEVEN+3
DIV	TRANS+2
END	SET+28
ENQ	EN+6, EN+9, EN+10
PID	SET+17
PRINT	SET+24
SET	EN+10, DIV+5
START	EN+11
STARTQ	START+5, TRANS, TRANS+5, DIV, DIV+1, DIV+3
TRCHKQ	TRCHK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVEN*
>> %ZIS("A"	DEVEN*
>> %ZIS("B"	DEVEN*
BAND	SET+4~
BAND(	SET+19, SET+20, SET+21, SET+22
CNT	SET+4~, SET+23, END+2~, END+3
DATA	SET+4~, SET+12*, SET+13, SET+19
DFN	EN+3~, EN+7*, EN+11, START~, SET+27, PID+4
>> DGPMA	TRANS, TRANS+2, TRANS+5, DIV+1
>> DGPMP	TRANS+2, TRANS+5
DIC	EN+3~, EN+5*
DIC(0	EN+5*
DIR	ASK+3!
DIR("A"	ASK+1*
DIR("B"	ASK+2*
DIR(0	ASK+2*
DIVISION	START+4~, DIVISION+2~, DIVISION+5, DIVISION+6, DIVISION+7
DT	SET+27
DTOUT	EN+6, ENQ!, ASK+3
DUOUT	EN+6, ENQ!, ASK+3
DUZ	SET+27
FINAL	SET+4~
FINAL(	SET+22*, SET+23
IFN	SET+4~, SET+10*, SET+11, SET+12, SET+13
IO("Q"	DEVEN+3, QUE+3!
IOST	DEVEN+2
ITEMD	SET+4~, SET+13*, SET+14, SET+17, SET+19
LINE	SET+4~, SET+10, SET+11, SET+12, SET+13, SET+19, SET+20, SET+21, SET+22
MVMT	TRCHK+2~, TRCHK+4*
OPTIND	EN+3~, EN+4, EN+8, EN+10
>> POP	DEVEN+1
PRINT	START+4~
TYPE	TRCHK~, TRCHK+4, TRCHK+5
U	EN+9, TRANS, TRANS+2, TRANS+4, TRANS+5, DIVISION+5, DIVISION+6, DIVISION+7, SET+19, SET+21 , SET+22, PID+4, TRCHK+4, TRCHK+5
>> VA("PID"	PID+2
VAERR	EN+3~
VAIN	EN+3~
VAIN(4	EN+8, EN+9, START+5, START+6
VAR	END+2~, END+3*
VARIABLE	END+1!
WARD	START+4~, START+6*, DIV, DIVISION~, DIVISION+5
WHERE	SET+4~, SET+20*, SET+21, SET+22
X	SET+4~, SET+14, SET+23, SET+27, QUE+5
Y	EN+3~, EN+6, EN+7, EN+10, START+4~, TRANS+2~, TRANS+3, TRANS+4, DIV+3, DIVISION+2~ , DIVISION+3, DIVISION+7, DIVISION+8, SET+17, SET+19, PID+2, PID+4, PID+6, PID+7, DEVICE+1* , DEVEN+3, DEVEN+4, DEVICEQ, TRCHK+2~, TRCHK+3, TRCHK+4, TRCHK+5, TRCHKQ, ASK+3, ASKQ
>> ZTDESC	QUE+4*
>> ZTQUEUED	SET+25
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7

Customize PDF page

Package: Registration

Routine: DGPWB

Call Graph Total: 8

Caller Graph Total: 2