Routine: DGVPTIB5

Information

DGVPTIB5 ;alb/mjk - IBOVOP1 for export with PIMS v5.3; 4/21/93

Source Information

Source file <DGVPTIB5.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Integrated Billing	2	$$PT^IBEFUNC ($$DAT1,PAUSE)^IBOUTL
Registration	1	$$BIL^DGMTUB
Scheduling	1	$$STATUS^SDAM1
VA Fileman	1	Y^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; print header
CHRGS	; find OP charges for day, if any. ; build string for print
APPT	; scan visits for NSC patients ; field 2="CLINIC APPT" ; field 4=clinic ; field 5=appt type ; field 6=status
REGS	; registrations for day
FLD3(Y)	; time - convert date/time to time only, no seconds
IBOVOP1	;ALB/RLW - Report of Visits for NSC Outpatients ; 12-JUN-92
STOPCD	; scan ADD/EDIT STOP CODES for day ; field 2="STOP CODE" ; field 4=stop code ; field 5=appt type
PRINT	; retrieve data for printing
MAIN	; perform report for day(s)
FLD5(I)	; get appointment type name
FLD1(DFN)	; patient - get patient name and l-4 ssn id

External References

Name	Field # of Occurrence
$$BIL^DGMTUB	APPT+9, STOPCD+5, REGS+5
Y^DIQ	REGS+7, REGS+10, CHRGS+6
$$PT^IBEFUNC	FLD1+2
$$DAT1^IBOUTL	HDR+1, HDR+4
PAUSE^IBOUTL	CHRGS+7, PRINT+9, PRINT+10
$$STATUS^SDAM1	APPT+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,IBFLD1 Line Location: CHRGS+7
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: ?(80-$L(IBTITLE))\2,IBTITLE Line Location: HDR+3
Function Call: WRITE	Prompt: !?(80-$L(IBTITLE))\2,IBTITLE,?70,"Page: "_IBPAGE Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"Patient/Event",?20,"Time",?26,"Clinic/Stop",?44,"Appt.Type",?63,"(Status)",! Line Location: HDR+6
Function Call: WRITE	Prompt: LINE Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"NONE" Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,IBFLD1 Line Location: PRINT+2
Function Call: WRITE	Prompt: !?5,IBFLD2 Line Location: PRINT+3
Function Call: WRITE	Prompt: !,IBFLD1 Line Location: PRINT+8
Function Call: WRITE	Prompt: !?5,IBFLD2 Line Location: PRINT+8
Function Call: WRITE	Prompt: !,IBFLD1,!?5,IBFLD2 Line Location: PRINT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FLD3+2
^DD(2.101	REGS+7, REGS+10
^DD(350	CHRGS+6
^DIC(40.7 - [#40.7]	STOPCD+8
^DPT - [#2]	APPT+10, REGS+5
^DPT("ADIS"	REGS+2, REGS+3, REGS+4
^IB - [#350]	CHRGS+5
^IB("AD"	CHRGS+5
^IB("AFDT"	CHRGS+3, CHRGS+4
^IBE(350.1 - [#350.1]	CHRGS+8
^SC - [#44]	APPT+6, APPT+7, APPT+8
^SC("AC"	APPT+6
^SD(409.1 - [#409.1]	FLD5+1
^SDV - [#409.5]	STOPCD+5, STOPCD+6, STOPCD+7
^TMP("IBOVOP"	MAIN+3!, APPT+11, STOPCD+8, REGS+12*, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8

Label References

Name	Line Occurrences
$$FLD1	APPT+11, STOPCD+8, REGS+6, REGS+12
$$FLD3	APPT+11, STOPCD+8, REGS+6, REGS+12
$$FLD5	APPT+11, STOPCD+8
APPT	MAIN+2
CHRGS	PRINT+2
HDR	MAIN+2, CHRGS+7, PRINT+2, PRINT+8, PRINT+9
PRINT	MAIN+2
REGS	MAIN+2
STOPCD	MAIN+2

Naked Globals

Name	Field # of Occurrence
^(	APPT+8, STOPCD+6, PRINT+6
^(0	APPT+10, CHRGS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	REGS+7, REGS+10, CHRGS+6*!
DFN	MAIN+3!, APPT+8, APPT+9, APPT+10, APPT+11, STOPCD+5, STOPCD+8, REGS+2, REGS+3, REGS+4 , REGS+5, REGS+6, REGS+12, CHRGS+2, CHRGS+3, CHRGS+4, PRINT+1, PRINT+6, FLD1~, FLD1+1 , FLD1+2
DT	HDR+4
I	STOPCD+6*, STOPCD+7, FLD5~, FLD5+1
>> IB	STOPCD+5, STOPCD+6
>> IBACT	CHRGS+8*, CHRGS+9
>> IBAIEN	REGS+4*, REGS+5
>> IBAMT	CHRGS+8*, CHRGS+9
IBAPPT	MAIN+3!
>> IBCL	APPT+5, APPT+6, APPT+7, APPT+8, APPT+11
>> IBDATA	STOPCD+7, STOPCD+8, REGS+5, REGS+6, REGS+9, CHRGS+5, CHRGS+6, CHRGS+8, PRINT+6
>> IBDATE	APPT+6, APPT+7, STOPCD+4, STOPCD+5, REGS+1, REGS+2, CHRGS+3, CHRGS+4, HDR+1
>> IBFLD1	REGS+6, CHRGS+7, PRINT+1, PRINT+2*, PRINT+3, PRINT+4, PRINT+5, PRINT+8, PRINT+9
>> IBFLD2	PRINT+3*, PRINT+4, PRINT+5, PRINT+8, PRINT+9
>> IBFLD3	REGS+6, PRINT+4, PRINT+5, PRINT+7, PRINT+8
>> IBFLD4	APPT+6, APPT+11, STOPCD+4, REGS+1, REGS+8, REGS+12, PRINT+6, PRINT+7
>> IBFLD5	REGS+1, REGS+11, REGS+12, PRINT+6, PRINT+7
>> IBFLD6	PRINT+6, PRINT+7
>> IBIEN	APPT+7, APPT+8, CHRGS+4, CHRGS+5
IBJ	MAIN+3!
>> IBLINE	CHRGS+9, HDR+1, PRINT+2, PRINT+7*, PRINT+8
>> IBPAGE	HDR+1*, HDR+2, HDR+5
>> IBPRNT	CHRGS+3, CHRGS+4, CHRGS+5
>> IBQUIT	CHRGS+4, CHRGS+5, CHRGS+7, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+9, PRINT+10
>> IBRECNO	HDR+1*
>> IBSDATA	APPT+10*, APPT+11
>> IBSEQ	APPT+5, APPT+11, STOPCD+4, STOPCD+8, REGS+12, PRINT+5, PRINT+6, PRINT+8
>> IBSTAT	CHRGS+6*, CHRGS+9
>> IBTITLE	HDR+1, HDR+3, HDR+4, HDR+5
IOF	HDR+2
IOM	HDR+7
IOSL	CHRGS+7, PRINT+9
IOST	HDR+2
J	MAIN+3!, APPT+5, APPT+6, APPT+7, APPT+8, APPT+9, APPT+10, APPT+11, STOPCD+4~, STOPCD+5* , STOPCD+6, STOPCD+7, STOPCD+8, REGS+1~, REGS+2, REGS+3, REGS+4, REGS+6, REGS+12
LINE	HDR+7*!
X	FLD1+2~*, FLD1+3
Y	REGS+6, REGS+7, REGS+8, REGS+9, REGS+10, REGS+11, CHRGS+6*!, HDR+5!, FLD3~, FLD3+1 , FLD3+2

Customize PDF page

Package: Registration

Routine: DGVPTIB5

Call Graph Total: 5