Routine: ACRFZIS

Information

ACRFZIS ;IHS/OIRM/DSD/THL,AEF - DEVICE CALLS AND QUEUING; [ 04/27/2007 4:18 PM ]

Package	Total	Call Graph
Commitment Register	5	DIR^ACRFDIC VIEWR^ACRFLM $$ARMSDIR^ACRFSYS PAUSE^ACRFWARN (HFS,SELDIR)^ACRFZISH
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS VA Utilities	1	^XBKVAR
Registration	1	CLEAR^VALM1
VA Fileman	1	^DIR

Package

Total

Call Graph

Commitment Register

DIR^ACRFDIC VIEWR^ACRFLM $$ARMSDIR^ACRFSYS PAUSE^ACRFWARN (HFS,SELDIR)^ACRFZISH

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

IHS VA Utilities

^XBKVAR

Registration

CLEAR^VALM1

VA Fileman

^DIR

Package	Total	Caller Graph
Commitment Register	52	ACRFAU ACRFBPA ACRFCCP ACRFDA ACRFDC ACRFDFLT ACRFDHR4 ACRFDI ACRFDTP ACRFDTP4 ACRFEA4 ACRFEA43 ACRFFDS ACRFHM ACRFNY ACRFPALL ACRFPAY2 ACRFPAY3 ACRFPAY5 ACRFPAY6 ACRFPAY7 ACRFPAY8 ACRFPAY9 ACRFPAYE ACRFPAYL ACRFPAYR ACRFPAYU ACRFPCC ACRFPERD ACRFPO ACRFPO1 ACRFPO3 ACRFPOL ACRFPPR ACRFPQT ACRFPRNT ACRFPSR ACRFPUTL ACRFPVEN ACRFQ ACRFRCA ACRFRR12 ACRFSOF ACRFTA ACRFTPA1 ACRFTPAR ACRFTR ACRFTV ACRFTVA ACRFUFM4 ACRFUP ACRFVLK2

Package

Total

Caller Graph

Commitment Register

ACRFAU  ACRFBPA  ACRFCCP  ACRFDA  ACRFDC  ACRFDFLT  ACRFDHR4  ACRFDI
ACRFDTP  ACRFDTP4  ACRFEA4  ACRFEA43  ACRFFDS  ACRFHM  ACRFNY  ACRFPALL
ACRFPAY2  ACRFPAY3  ACRFPAY5  ACRFPAY6  ACRFPAY7  ACRFPAY8  ACRFPAY9  ACRFPAYE
ACRFPAYL  ACRFPAYR  ACRFPAYU  ACRFPCC  ACRFPERD  ACRFPO  ACRFPO1  ACRFPO3
ACRFPOL  ACRFPPR  ACRFPQT  ACRFPRNT  ACRFPSR  ACRFPUTL  ACRFPVEN  ACRFQ
ACRFRCA  ACRFRR12  ACRFSOF  ACRFTA  ACRFTPA1  ACRFTPAR  ACRFTR  ACRFTV
ACRFTVA  ACRFUFM4  ACRFUP  ACRFVLK2

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;PRE-PRINTED FORM REQUIRED
P2	;EP;TO SELECT SECOND PRINTER FOR SINGLE PRINT JOB
FS	;EP;TO CHECK IF WIDE CARRIAGE/CONDENSED PRINTER NEEDED
ZIS	;EP;TO CALL DEVICE
PROCHFS	;EP - PROCESS HFS FILE REQUEST
ZIS1	;EP;
BROWSE	;EP;TO BROWSE
FILE	;EP - SELECT FILENAME FOR UNIX FILE
ZTLOAD	;EP;TO CALL %ZTLOAD
CONDENSE	;CONDENSE PRINTER REQUIRED
HOST	;EP;TO OPEN HOST FILE
ASKDIR	;EP ASK FOR PATH
CLOSE	;EP;TO CLOSE DEVICE
OPEN	;EP;TO OPEN DEVICE AND PRINT SELECTED REPORT

External References

Name	Field # of Occurrence
^%ZIS	ZIS1+11, OPEN+1, HOST+9, P2+8
^%ZISC	CLOSE+1
^%ZTLOAD	ZTLOAD+4
DIR^ACRFDIC	ZIS+7, ZIS1+27
VIEWR^ACRFLM	BROWSE+3
$$ARMSDIR^ACRFSYS	ASKDIR+3
PAUSE^ACRFWARN	ZIS1+15
HFS^ACRFZISH	PROCHFS+12
SELDIR^ACRFZISH	ASKDIR+8
^DIR	FILE+5
CLEAR^VALM1	BROWSE+8
^XBKVAR	PROCHFS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ZIS1+9
Function Call: WRITE	Prompt: !!,$S($G(ZTSK)]"":"Request queued!",1:"Request cancelled.") Line Location: ZTLOAD+5
Function Call: WRITE	Prompt: 7,7 Line Location: CONDENSE+4
Function Call: WRITE	Prompt: !!,"The report you are about to print requires either a wide carriage printer or" Line Location: CONDENSE+5
Function Call: WRITE	Prompt: !,"a printer set for condensed mode with a width of 132 characters." Line Location: CONDENSE+6
Function Call: WRITE	Prompt: !,"Check with your system manager if you are uncertain which device to select." Line Location: CONDENSE+7
Function Call: WRITE	Prompt: !!,"Please insert Standard Form ",@ACRON,+$G(ACRPSC),@ACROF Line Location: PRE+1
Function Call: WRITE	Prompt: !,"and applicable CONTINUATION SHEETS" Line Location: PRE+2
Function Call: WRITE	Prompt: "into the printer now." Line Location: PRE+3
Function Call: WRITE	Prompt: !!,"NOTE: You may select a printer to use for any CONTINUATION SHEETS" Line Location: P2+2
Function Call: WRITE	Prompt: !,"required to print this order.",! Line Location: P2+3
Function Call: WRITE	Prompt: !,"Now select the main printer to print the FIRST PAGE of this form." Line Location: P2+11
Function Call: WRITE	Prompt: !!,"This option will allow you to create a file in your home directory." Line Location: PROCHFS+2
Function Call: WRITE	Prompt: !!,"The file will go into the ARMS home directory"_" "_ZISH1 Line Location: ASKDIR+5
Function Call: WRITE	Prompt: !,"If you need to send the file to a different directory," Line Location: ASKDIR+6
Function Call: WRITE	Prompt: !,"replace the default with the full path at the ""Replace"" prompt.",! Line Location: ASKDIR+7
Routine Call	DIR Line Location: FILE+5
Routine Call	%ZIS Line Location: ZIS1+11 OPEN+1 HOST+9 P2+8

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	FS+5, CONDENSE+3
^ACRDOC - [#9002196]	FS+1, FS+3, FS+4
^ACRPO - [#9002199.4]	FS+3, FS+4, CONDENSE+1, CONDENSE+2
^ACRSYS(1	ZIS+1

Label References

Name	Line Occurrences
@(	ZIS1+34, OPEN+3
ASKDIR	PROCHFS+6
BROWSE	ZIS+10
CLOSE	ZIS1+12, ZIS1+23, ZIS1+30, ZTLOAD+6, OPEN+5, P2+9
CONDENSE	ZIS1+6
FILE	PROCHFS+8
FS	ZIS1+5
HOST	HOST+10
P2	ZIS1+2
PRE	ZIS1+4
PROCHFS	ZIS+11
ZIS	ZIS1+13, ZIS1+20
ZIS1	ZIS+9, BROWSE+7
ZTLOAD	ZIS1+35

Name	Field # of Occurrence
^(3	FS+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %FILE	PROCHFS+12
>> %FN	HOST+4, HOST+8
%ZIS	ZIS1+7, CLOSE+2!, P2+5
%ZIS("A"	P2+6*
%ZIS("B"	FS+5, CONDENSE+3, P2+7*
%ZIS("IOPAR"	ZIS1+16, HOST+8
>> ACR("HFS"	ZIS+3
>> ACR3542	FS+7*
ACRCOND	ZIS1+6, FS+6*, CONDENSE+8!
>> ACRCOPY	ZIS1+29*
>> ACRDOCDA	FS+1, FS+3, FS+4
ACRDR	ZTLOAD+1!
ACRFLD	BROWSE+9!
ACRFLD("BROWSE"	BROWSE+2*
>> ACRHFS	PROCHFS+14*
>> ACRI	HOST+6*, HOST+7
>> ACROF	PRE+1
>> ACRON	PRE+1
>> ACROP	HOST+4, HOST+8
>> ACRORIGF	ZIS+1, ZIS1+2, ZIS1+4, ZIS1+7, ZIS1+13, ZIS1+23
>> ACROUT	ZIS+8, ZIS1+4, ZIS1+23, ZIS1+28
>> ACRPODA	CONDENSE+1, CONDENSE+2
>> ACRPSC	PRE+1
ACRQUIT	ZIS+8, ZIS1+3, ZIS1+13!, ZIS1+23, ZIS1+28, OPEN+1, HOST+10, P2+9, BROWSE+4, BROWSE+5!
>> ACRREV	ZIS1+10, ZIS1+23
>> ACRRTN	ZIS1+34, OPEN+3, BROWSE+1, BROWSE+3
>> ACRX	HOST+10, HOST+12*
ACRZIS	P2+1!
ACRZIS(2	PRE+2, P2+10*
DIR	FILE+2~
DIR("A"	ZIS+4, ZIS1+25, FILE+4*
DIR("B"	ZIS+5, ZIS1+26
DIR(0	ZIS+2, ZIS+3, ZIS1+24, FILE+3
DIRUT	FILE+2~, FILE+6
DN	ZIS1+1!
DTOUT	FILE+2~, FILE+6
DUOUT	FILE+2~, FILE+6
IO	ZIS1+20, OPEN+2, P2+4~
IO("Q"	ZIS1+13, ZIS1+20, ZIS1+30
IO("S"	ZIS1+20
IO(0	ZIS1+20
ION	ZTLOAD+2, OPEN+1, HOST+7, FS+5, CONDENSE+3*, P2+4~, P2+10
IOP	ZIS1+10, CLOSE+2!, OPEN+1, HOST+7*, HOST+13!, P2+4~
IOPAR	ZIS1+16, CLOSE+2!
IOST	ZIS1+23, ZIS1+31, P2+4~, P2+10
OUT	PROCHFS+3~, PROCHFS+4, PROCHFS+7, PROCHFS+9, ASKDIR+8, FILE+6, FILE+7*
POP	ZIS1+12, OPEN+1, HOST+5*, HOST+6, HOST+10, HOST+13!, P2+9, PROCHFS+13
U	ZIS+1, FS+2, FS+3, FS+4, FS+5, FS+7, CONDENSE+1, CONDENSE+2, CONDENSE+3
VALM	BROWSE+9!
VALMAR	BROWSE+9!
VALMBCK	BROWSE+9!
VALMBG	BROWSE+9!
VALMCAP	BROWSE+9!
VALMCNT	BROWSE+9!
VALMCOFF	BROWSE+9!
VALMCON	BROWSE+9!
VALMDN	BROWSE+9!
VALMEVL	BROWSE+9!
VALMHDR	BROWSE+9!
VALMIOXY	BROWSE+9!
VALMKEY	BROWSE+9!
VALMLFT	BROWSE+9!
VALMLST	BROWSE+9!
VALMMENU	BROWSE+9!
VALMOFF	BROWSE+9!
VALMSGR	BROWSE+9!
VALMUP	BROWSE+9!
VALMWD	BROWSE+9!
VALMY	BROWSE+9!
X	ZIS+9, FS+1~, FS+2, FS+4, FS+5, FS+7, CONDENSE+2*, CONDENSE+3, PROCHFS+3~, FILE+2~
XQORNEST	BROWSE+9!
XQORS	BROWSE+9!
XQORSPEW	BROWSE+9!
Y	ZIS+10, ZIS+11, ZIS1+28, ZIS1+29, PROCHFS+3~, FILE+2~, FILE+7, FILE+8
>> ZIBH	ZIS1+8*
>> ZISH1	PROCHFS+12, ASKDIR+3*, ASKDIR+5, ASKDIR+8
>> ZISH2	PROCHFS+10, PROCHFS+12, FILE+8
>> ZISH3	PROCHFS+11*, PROCHFS+12
>> ZTIO	ZTLOAD+2*
ZTQUEUED	CLOSE+2!, OPEN+1, OPEN+4, OPEN+5
ZTREQ	CLOSE+2!, OPEN+4*
>> ZTRTN	ZIS1+19*, ZIS1+34
>> ZTSAVE("%ZIS*"	ZIS1+17*
>> ZTSAVE("ACR*"	ZTLOAD+3*
>> ZTSAVE("ZIBH"	ZIS1+18*
ZTSK	CLOSE+2!, ZTLOAD+5

Customize PDF page

Package: Commitment Register

Routine: ACRFZIS

Information

Source Information

Call Graph

Call Graph Total: 11