Routine: DGPLBL

Information

DGPLBL ;ALB/RPM - PATIENT INFORMATION LABELS ; 05/07/04

Source Information

Source file <DGPLBL.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZISC $$FMTE^XLFDT EN^XUTMDEVQ
Registration	2	DEM^VADPT FIRST^VAUTOMA
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG PRINT PATIENT LABEL

Entry Points

Name	Comments	DBIA/ICR reference
EN	;main entry point used by DG PRINT PATIENT LABEL option
END	;cleanup and close device
ASK(DGDIRA,DGDIRB,DGDIR0,DGDIRH)	; ; Input ; DGDIR0 - DIR(0) string ; DGDIRA - DIR("A") string ; DGDIRB - DIR("B") string ; DGDIRH - DIR("?") string
START	;retrieve label field data and print labels	ICR #5904 Status: Active Usage: Private
BLDLNAR(DGDFN,DGLOC,DGTEXT)	;build array of text lines
SELPATS(DGARR)	;select patient(s) to print
LOADCC(DGIOCC)	;load control code mnemonics array ; This function loads values from the CONTROL CODE (#2) subfield of ; the CONTROL CODES (#55) field of the TERMINAL TYPE (#3.2) file into ; an array subscripted by the CONTROL CODE ABBREVIATION (#.01) subfield ; value.

External References

Name	Field # of Occurrence
^%ZISC	END+2
^DIR	ASK+25
DEM^VADPT	BLDLNAR+17
FIRST^VAUTOMA	SELPATS+17
$$FMTE^XLFDT	BLDLNAR+23
EN^XUTMDEVQ	EN+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $G(DGLINE(DGLN)) Line Location: START+37
Function Call: WRITE	Prompt: ! Line Location: START+40
Function Call: WRITE	Prompt: ! Line Location: START+42
Routine Call	DIR Line Location: ASK+25

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	LOADCC+20, LOADCC+21, LOADCC+22
^DPT - [#2]	BLDLNAR+15, BLDLNAR+26

Label References

Name	Line Occurrences
$$ASK	EN+12, EN+15, EN+18
$$BLDLNAR	START+27
$$LOADCC	START+19
$$SELPATS	EN+10
END	START+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	BLDLNAR+10~, BLDLNAR+16*, BLDLNAR+26
DGARR	SELPATS~, SELPATS+16, SELPATS+18
DGDFN	START+11~, START+23, START+24, START+27, BLDLNAR~, BLDLNAR+15, BLDLNAR+16
DGDFNS	EN+2~
DGDFNS(	START+24
DGDIR0	ASK~, ASK+21
DGDIRA	ASK~, ASK+22
DGDIRB	ASK~, ASK+23
DGDIRH	ASK~, ASK+24
DGI	START+12~, START+31, LOADCC+16~, LOADCC+19, LOADCC+20, LOADCC+21, LOADCC+22, BLDLNAR+11~, BLDLNAR+13, BLDLNAR+18* , BLDLNAR+19, BLDLNAR+20, BLDLNAR+21, BLDLNAR+22, BLDLNAR+23, BLDLNAR+25*, BLDLNAR+26, BLDLNAR+28
DGIOCC	EN+3~, START+13~, START+19*, START+20, START+32, START+35, START+36, START+38, START+39, START+40 , START+41, START+42, START+43, LOADCC~, LOADCC+24
DGIOCC(	LOADCC+22*
DGIOCC("EL"	START+41
DGIOCC("ET"	START+39
DGIOCC("ETF"	START+38
DGIOCC("FE"	START+43
DGIOCC("FI"	START+20
DGIOCC("SL"	START+32
DGIOCC("ST"	START+35
DGIOCC("STF"	START+36
DGJ	START+12~, START+42*
DGLBCNT	EN+4~, EN+15*, EN+16, START+31
DGLINE	START+16~, START+27
DGLINE(	START+37
DGLN	START+14~, START+34*, START+37
DGLNCNT	START+15~, START+27*, START+28, START+34, START+42
DGLOC	EN+6~, EN+12*, EN+13, START+27, BLDLNAR~, BLDLNAR+26
DGLPL	EN+5~, EN+18*, EN+19, START+42
DGMNE	LOADCC+17~, LOADCC+21*, LOADCC+22
DGQVAR	EN+7~, EN+27
DGQVAR("DGDFNS("	EN+23*
DGQVAR("DGLBCNT"	EN+24*
DGQVAR("DGLOC"	EN+26*
DGQVAR("DGLPL"	EN+25*
DGTEXT	BLDLNAR~
DGTEXT(	BLDLNAR+19, BLDLNAR+21, BLDLNAR+23, BLDLNAR+26
DIC	SELPATS+9~, SELPATS+16*
DIR	ASK+19~
DIR("?"	ASK+24*
DIR("A"	ASK+22*
DIR("B"	ASK+23*
DIR(0	ASK+21*
DIROUT	ASK+19~, ASK+26
DIRUT	ASK+19~
DTOUT	ASK+19~, ASK+26
DUOUT	ASK+19~, ASK+26
IOST(0	LOADCC+20, LOADCC+21, LOADCC+22
U	ASK+26, LOADCC+21, BLDLNAR+21, BLDLNAR+23
VA	BLDLNAR+10~
VADM	BLDLNAR+10~
VADM(1	BLDLNAR+19
VADM(2	BLDLNAR+21
VADM(3	BLDLNAR+23
VAERR	BLDLNAR+10~
VAUTNALL	SELPATS+11~, SELPATS+16*
VAUTNI	SELPATS+13~, SELPATS+16*
VAUTSTR	SELPATS+12~, SELPATS+16*
VAUTVB	SELPATS+10~, SELPATS+16*
X	ASK+19~, ASK+26
Y	ASK+19~, ASK+26
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Registration

Routine: DGPLBL

Call Graph Total: 6

Caller Graph Total: 1