Routine: HBHCRP1B

Information

HBHCRP1B ;LR VAMC(IRMS)/MJT - HBHC report on files 634.1, 634.2, & 634.3, (Form 3/4/5 (A/V/D respectively) Error(s)), called by HBHCRP1A, entry points: START, SETUP, PRTLOOP, EXIT ;April 2000

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Hospital Based Home Care	1	(HDRPAGE,TODAY)^HBHCUTL
Kernel	1	^%ZISC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Hospital Based Home Care	1	HBHCRP1A

Entry Points

Name	Comments	DBIA/ICR reference
START	; Entry point
SETUP	; Setup variables
PRTLOOP	; Print loop
SETTXT	; Set text
LOOP2	; Continuation of PRTLOOP
PRINT	; Print report
CPT	; Write CPT info
MOD	; Write Modifier info
EXIT	; Exit module

External References

Name	Field # of Occurrence
^%ZISC	EXIT+1
HDRPAGE^HBHCUTL	PRTLOOP+1, PRTLOOP+2, PRINT+2
TODAY^HBHCUTL	START+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$J($P(HBHCINFO,U),8),?10,HBHCNAME,?27,HBHCSSN,?34,HBHCCLN,?55,$P(HBHCINFO,U,2)," ",?75,HBHCTXT Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Error: ",$P(HBHCINFO,U,3) Condition for execution: $P(HBHCINFO,U,3)]"" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,HBHCY Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"Provider: ",$P(HBHCINFO,"$"),?54,"Encounter Prov #:",?72,$J($P(HBHCINFO,"$",2),8) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"ICD: ",HBHCINFO Line Location: PRINT+8
Function Call: WRITE	Prompt: !,HBHCY Line Location: PRINT+11
Function Call: WRITE	Prompt: !?1,"CPT: ",$P(HBHCINFO,"$"),?45,"QTY: ",$J($P(HBHCINFO,"$",2),3),?55,"CPT Code Prov #:",?72,$J($P(HBHCINFO,"$",3),8) Line Location: CPT+1
Function Call: WRITE	Prompt: !,HBHCTEXT,HBHCINFO Line Location: MOD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("HBHC"	START+1!, PRTLOOP+4, LOOP2+1, PRINT+1, PRINT+6, PRINT+8, PRINT+10, EXIT+3!

Label References

Name	Line Occurrences
CPT	PRINT+10
LOOP2	PRTLOOP+4
MOD	PRINT+10
PRINT	LOOP2+1
SETTXT	PRTLOOP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EXIT+2!
DIK	EXIT+2!
HBHCCC	PRTLOOP+2*, PRINT+2, EXIT+2!
HBHCCLN	PRTLOOP+4*, LOOP2+1, PRINT+1, PRINT+3, PRINT+6, PRINT+8, PRINT+10, EXIT+2!
HBHCCOLM	START+5*, EXIT+2!
HBHCCPT	EXIT+2!
HBHCCPTL	EXIT+2!
HBHCDAT	PRTLOOP+4*, LOOP2+1, PRINT+1, PRINT+6, PRINT+8, PRINT+10, EXIT+2!
HBHCDATE	EXIT+2!
HBHCDFN	EXIT+2!
HBHCDPT	EXIT+2!
HBHCDPT0	EXIT+2!
HBHCDX1	EXIT+2!
HBHCDXL	EXIT+2!
HBHCFILE	SETUP+1, EXIT+2!
HBHCFL	SETUP+1*, EXIT+2!
HBHCFORM	SETUP+1, PRTLOOP+3, PRTLOOP+4*, SETTXT+1, LOOP2+1, PRINT+1, PRINT+4, PRINT+6, PRINT+8, PRINT+10 , EXIT+2!
HBHCHDR	START+4*, EXIT+2!
HBHCHEAD	START+3*, START+5, EXIT+2!
HBHCI	PRINT+6, PRINT+8, PRINT+10*, EXIT+2!
HBHCICDP	EXIT+2!
HBHCIEN	EXIT+2!
HBHCINFO	PRINT+1, PRINT+3, PRINT+6, PRINT+8, PRINT+10, CPT+1, MOD+1, EXIT+2!
HBHCJ	PRINT+10*, EXIT+2!
HBHCK	EXIT+2!
HBHCMOD	EXIT+2!
HBHCMSG	EXIT+2!
HBHCNAME	LOOP2+1*, PRINT+1, PRINT+3, PRINT+6, PRINT+8, PRINT+10, EXIT+2!
HBHCNOD0	EXIT+2!
HBHCOEP	EXIT+3!
HBHCPAGE	START+3*, EXIT+3!
HBHCPC	SETUP+1*, EXIT+3!
HBHCPRV	EXIT+3!
HBHCPRV1	EXIT+3!
HBHCPRVL	EXIT+3!
HBHCPRVP	EXIT+3!
HBHCSP2	START+3*, EXIT+3!
HBHCSP3	START+3*, EXIT+3!
HBHCSSN	LOOP2+1*, PRINT+1, PRINT+3, PRINT+6, PRINT+8, PRINT+10, EXIT+3!
HBHCTDY	EXIT+3!
HBHCTEXT	START+3*, MOD+1, EXIT+3!
HBHCTXT	SETTXT+1*, PRINT+3, EXIT+3!
HBHCY	START+3*, PRINT+4, PRINT+11, EXIT+3!
HBHCZ	EXIT+3!
IO	PRTLOOP+1, PRTLOOP+2
IO("S"	PRTLOOP+1, PRTLOOP+2
IO(0	PRTLOOP+1, PRTLOOP+2
IOF	PRINT+2
IOSL	PRINT+2
U	PRINT+3
X	EXIT+3!
Y	EXIT+3!
>> ZTRTN	PRINT+2

Customize PDF page

Package: Hospital Based Home Care