Routine: ACHSHV04

Information

ACHSHV04 ; IHS/ITSC/PMF - PRINT/PROCESS HV NOTIFICATION DATA ; [ 06/27/2003 8:35 AM ]

Package	Total	Call Graph
Contract Health Management Information System	6	$$AOP^ACHS ^ACHSHV01 ^ACHSHVRC (10,CHK16)^ACHSPS16 ERROR^ACHSTCK1 ^ACHSVAR
IHS VA Utilities	3	$$DIR^XBDIR $$C^XBFUNC EN^XBVK
Kernel	3	(,HOME)^%ZIS ^%ZISC ($$OPEN,$$STATUS)^%ZISH
VA Fileman	1	DD^%DT

Package

Total

Call Graph

Contract Health Management Information System

$$AOP^ACHS ^ACHSHV01 ^ACHSHVRC (10,CHK16)^ACHSPS16 ERROR^ACHSTCK1 ^ACHSVAR

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC EN^XBVK

Kernel

(,HOME)^%ZIS ^%ZISC ($$OPEN,$$STATUS)^%ZISH

VA Fileman

DD^%DT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS-HV-PRINT NOTIFICATION

Package

Total

Caller Graph

Contract Health Management Information System

ACHS-HV-PRINT NOTIFICATION

Entry Points

Name	Comments	DBIA/ICR reference
FILDPSC1	;
FILDPSC2	;
A2A	;
PRINT	; Check if user has pressed ESC, else print line.
END	; Reset printer from condensed print.
PRINTSEL	; Select printer for report.
SUSPEND	; User suspended printing.
A1	; Display name of vendors that reports exist for.
A0	; Mail Loop.
A2	;
A5	; Ask user to pick vendor.
PRINTR	;
PROCESSA	;
ENDZ	; Close device(s), kill vars, quit.
PTRSTOP	; User pressed ESC to suspend printing.
PRINTC	;
FILDSKP6	;
A7C	;
A7B	;
A7A	;
PROCESS	; Ensure OUTPAT report, then scan.
FILDSKP7	;
PREOF	;
B2	; Ask user to PRINT or SCAN FOR ERRORS.
FILDPSF	; Ask user to pick file.
FILDPSC	; Display file info about selected vendor.

External References

Name	Field # of Occurrence
DD^%DT	FILDPSC2+8, FILDPSC2+12, FILDSKP6+3
^%ZIS	PRINTSEL+4, A7B+2
HOME^%ZIS	ACHSHV04+3
^%ZISC	ENDZ+1, ENDZ+2
$$OPEN^%ZISH	A7C+5
$$STATUS^%ZISH	A7C+9
$$AOP^ACHS	A7C+4, A7C+5
^ACHSHV01	PROCESSA+1
^ACHSHVRC	A0+1
10^ACHSPS16	END+1
CHK16^ACHSPS16	PRINTSEL+11
ERROR^ACHSTCK1	A7C+5
^ACHSVAR	ENDZ+3
$$DIR^XBDIR	A5+1, A5+2, FILDPSF+2, B2+1, PRINTSEL+14, PREOF+4, PTRSTOP+4, SUSPEND+2
$$C^XBFUNC	ACHSHV04+6
EN^XBVK	ENDZ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Just a moment -- Reading File Information",70),! Line Location: ACHSHV04+6
Function Call: WRITE	Prompt: !!?5,"NOTIFICATION REPORTS EXIST FOR THE FOLLOWING VENDORS: ",!! Line Location: A1+3
Function Call: WRITE	Prompt: ?5,ACHSCT,?10,ACHSFN,! Line Location: A2A+5
Function Call: WRITE	Prompt: !?10,"NONE FOUND..." Line Location: A5+1
Function Call: WRITE	Prompt: !!,X,!," #",?5,"UNIX FILE",?17,"REPORT",?25,"REPORT DATE",?38,"# RCDS",?46,"LAST PRINTED",?60,"PROCESS DATE",!,X,! Line Location: FILDPSC+5
Function Call: WRITE	Prompt: !,$J(ACHSCNT,3),?5,$P(^ACHSHVLG(ACHSV,1,ACHSRR,0),U,4) Line Location: FILDPSC2+4
Function Call: WRITE	Prompt: ?17,$S(X="O":"OUTPAT",X="D":"DENTAL",X="I":"INPAT",1:"UNKNWN") Line Location: FILDPSC2+6
Function Call: WRITE	Prompt: ?25,Y,?38,$J($P(^ACHSHVLG(ACHSV,1,ACHSRR,0),U,3),5) Line Location: FILDPSC2+9
Function Call: WRITE	Prompt: ?46,Y Line Location: FILDPSC2+13
Function Call: WRITE	Prompt: ?60,Y Line Location: FILDSKP6+4
Function Call: WRITE	Prompt: !! Line Location: PRINTSEL+2
Function Call: WRITE	Prompt: !,*7,"Device Not Available -- Job Aborted" Line Location: PRINTSEL+6
Function Call: WRITE	Prompt: !!,*7,?10,"Selection of Slave Printer not allowed -- Please Select Again" Line Location: PRINTSEL+7
Function Call: WRITE	Prompt: !!,*7,"Device Right Margin < 132 Char -- Select another Device" Line Location: PRINTSEL+9
Function Call: WRITE	Prompt: !!?10,"Your Request is now being Processed",! Line Location: A7A+2
Function Call: WRITE	Prompt: !!,"Device Unavailable" Line Location: A7B+3
Function Call: WRITE	Prompt: @ACHS("PRINT",16) Line Location: A7C+1
Function Call: WRITE	Prompt: !! Line Location: A7C+8
Function Call: READ	Timeout: 1 Variable: ACHSLINE Line Location: A7C+9
Function Call: WRITE	Prompt: !!,"PRINTING HAS COMPLETED " Line Location: PREOF+2
Function Call: READ	Timeout: 1 Variable: *ACHSESC Line Location: PRINTC+2
Function Call: WRITE	Prompt: ACHSLINE,! Line Location: PRINTR+2
Function Call: WRITE	Prompt: 7,7,*7 Line Location: PTRSTOP+2
Function Call: READ	Timeout: 0 Variable: ACHSESC Line Location: PTRSTOP+3
Function Call: WRITE	Prompt: *7,!!?10,"Only Outpatient Reports can be Scanned for Errors" Line Location: PROCESS+3
Routine Call	%ZIS Line Location: ACHSHV04+3
Routine Call	%ZIS Line Location: PRINTSEL+4 A7B+2

Name	Line Occurrences (* Changed, ! Killed)
^ACHSHVLG - [#9002078]	FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10, FILDSKP6+1, A7C+4, A7C+5, PREOF+3, PROCESS+1
^ACHSHVLG("C"	A2A+1, FILDPSC1+1, FILDPSC2+1
^AUTTVNDR - [#9999999.11]	A2A+3

Label References

Name	Line Occurrences
A0	PRINTSEL+12, PRINTSEL+14
A1	FILDPSF+3, PREOF+5, SUSPEND+5, PROCESS+5, PROCESSA+2
A2A	A2A+6
A5	A2A+2
A7A	PRINTSEL+13
END	A0+2, PRINTSEL+6, PRINTSEL+14, A7B+3, A7C+5, SUSPEND+3
ENDZ	A5+1, A5+3
FILDPSC	B2+2, SUSPEND+4
FILDPSC1	FILDPSC2+2
FILDPSC2	FILDSKP7+1
FILDPSF	FILDPSC1+2
FILDSKP6	FILDPSC2+11
FILDSKP7	FILDSKP6+2
PREOF	A7C+9
PRINT	A7C+9
PRINTC	PRINT+2
PRINTR	PRINT+3
PRINTSEL	B2+3, PRINTSEL+7, PRINTSEL+9
PROCESS	B2+3
PROCESSA	PROCESS+1
PTRSTOP	PRINTC+3
SUSPEND	A7C+9

Name	Field # of Occurrence
^(0	PREOF+3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A5+1*
%ZIS	PRINTSEL+3*, PRINTSEL+5!
%ZIS("A"	PRINTSEL+3*
>> ACHS("PRINT"	PRINTSEL+13, A7C+1
>> ACHSCNT	A5+6, FILDPSC+1, FILDPSC2+3*, FILDPSC2+4, FILDPSF+2
>> ACHSCT	A1+1, A2A+3, A2A+5, A5+1, A5+2
ACHSCTZ	A2+1!, A5+5!, FILDPSC+2!
ACHSCTZ(	A2A+3, A5+4, FILDPSC2+3, FILDPSF+4
>> ACHSDELD	FILDPSC+1*
>> ACHSDSAV	FILDPSC+1*
>> ACHSEMSG	A7C+5*
>> ACHSESC	PRINTC+2, PRINTC+3, PTRSTOP+3
>> ACHSFN	A2A+3*, A2A+5
>> ACHSHFS1	A7C+6*, A7C+9, ENDZ+2
>> ACHSHMD	ACHSHV04+4*, ACHSHV04+5, A1+2, A2A+4, FILDPSC+4, FILDPSF+1, PRINTSEL+1, PRINTSEL+6, A7C+7, PREOF+1 , PRINTC+1, PTRSTOP+1
>> ACHSI	A7C+9*
>> ACHSJFLG	A0+2
ACHSKILL	A7C+3!, A7C+9, PTRSTOP+5*
>> ACHSLINE	A7C+9*, PRINTR+2
>> ACHSNO	FILDPSF+4*, A7C+4, A7C+5, PREOF+3, PROCESS+1
>> ACHSPRT	PRINTSEL+10*, A7C+1, PRINTR+1, ENDZ+1
>> ACHSPTRN	PRINTSEL+8*, A7B+1
>> ACHSR	A1+1, A2A+1, A2A+2, A2A+3, FILDPSC+1, FILDPSC1+1, FILDPSC1+2, FILDPSC2+1
>> ACHSRCT	A7C+2, PRINT+1, PRINT+2
>> ACHSRR	A1+1, FILDPSC+1, FILDPSC2+1*, FILDPSC2+2, FILDPSC2+3, FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10 , FILDSKP6+1
>> ACHSV	A5+4*, FILDPSC1+1, FILDPSC2+1, FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10, FILDSKP6+1, A7C+4 , A7C+5, PREOF+3, PROCESS+1
>> ACHSZFN	A7C+4*
DA	ENDZ+4!
DIC	ENDZ+4!
DIR	ENDZ+4!
DT	PREOF+3
>> DTOUT	A5+3, FILDPSF+3, B2+2, SUSPEND+3
>> DUOUT	A5+3, FILDPSF+3, B2+2, PRINTSEL+12, PTRSTOP+5, SUSPEND+3
IO	PRINTSEL+10, A7C+6, ENDZ+1, ENDZ+2
IO("S"	PRINTSEL+7
IO(0	ACHSHV04+4, A5+1, PRINTSEL+7, A7A+1, A7B+3, SUSPEND+1, PROCESS+2
IOM	PRINTSEL+9
ION	PRINTSEL+8
>> IONOFF	ENDZ+2*
>> IOP	A7B+1*
>> POP	PRINTSEL+6, A7B+3
U	A2A+3, FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10, FILDSKP6+1, A7C+4, A7C+5, PREOF+3 , PROCESS+1
X	A5+2, A5+4, FILDPSC+3, FILDPSC+5, FILDPSC2+5, FILDPSC2+6, FILDPSF+2, FILDPSF+4, ENDZ+4!
Y	FILDPSC2+7, FILDPSC2+9, FILDPSC2+10, FILDPSC2+11, FILDPSC2+13, FILDSKP6+1, FILDSKP6+2, FILDSKP6+4, B2+1, B2+3 , SUSPEND+2*, SUSPEND+4, ENDZ+4!
Z	ENDZ+4!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSHV04

Information

Source Information

Call Graph

Call Graph Total: 13