Routine: IBEMTF

Information

IBEMTF ;ALB/CPM - FLAG STOP CODES, DISPOSITIONS, AND CLINICS ; 22-JUL-93

Source file <IBEMTF.m>

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
Integrated Billing	1	(FILE,LIST,REV)^IBEMTF1

Package	Total	Caller Graph
Integrated Billing	1	IB MT FLAG OPT PARAMS

Name	Comments	DBIA/ICR reference
INFO	; Description of stop/disposition/clinic information listed below.
C	; Clinic Information
EN	; Option entry point - main processing loop.
D	; Disposition Information
UPD	; Update the billable status for stop codes, dispositions, or clinics.
UPDQ
S	; Stop Code Information
DASH()	; Write a dashed line.
UPDQ1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please note that you've already selected ",Y(0,0),"." Line Location: UPD+23
Function Call: WRITE	Prompt: !!,"No ",$P(IBINFO,";",3)," selected!" Line Location: UPD+27
Function Call: WRITE	Prompt: !!,"All ",$P(IBINFO,";",3)," were de-selected!" Line Location: UPD+33
Function Call: WRITE	Prompt: !!,"Please note that you've selected a future date!" Line Location: UPD+44
Function Call: WRITE	Prompt: ! Line Location: UPD+47
Routine Call	DIC Line Location: UPD+22
Routine Call	DIR Line Location: UPD+9 UPD+38 UPD+52 UPD+56

Name	Line Occurrences (* Changed, ! Killed)
^TMP("IBEMTF"	UPD+23, UPD+24*, UPD+27, UPD+33, UPDQ1!

Name	Field # of Occurrence
%DT	UPD+42*, UPD+43!
%DT("A"	UPD+42*
DIC	UPD+19*, UPD+22!
DIC("A"	UPD+20*
DIC("S"	UPD+21*
DIC(0	UPD+19*
DIR	UPD+9!, UPD+38!, UPD+52!, UPD+56!
DIR("?"	UPD+8, UPD+37, UPD+51*
DIR("A"	UPD+9, UPD+36, UPD+50*
DIR(0	UPD+8, UPD+36, UPD+50, UPD+56
DIROUT	UPDQ+1!
DIRUT	UPD+9, UPD+38, UPD+52, UPD+56!, UPDQ, UPDQ+1!
DT	UPD+44
DTOUT	UPDQ+1!
DUOUT	UPD+9, UPD+38, UPD+52, UPD+56!, UPDQ, UPDQ+1!
IBACT	UPD+39*, UPD+42, UPD+47, UPDQ+1!
IBDAT	UPD+43*, UPDQ+1!
IBFILE	UPD+39*, UPDQ+1!
IBHIT	UPD+18, UPD+20, UPD+22, UPDQ+1!
IBINFO	UPD+10*, UPD+13, UPD+14, UPD+19, UPD+20, UPD+21, UPD+27, UPD+33, UPD+36, UPD+47 , UPD+55, UPDQ+1!
IBNUM	UPD+18, UPD+24, UPD+30, UPD+36, UPDQ+1!
IBQ	EN+1, EN+2!, UPD+27, UPD+30, UPDQ*
IOF	UPD+1
>> Y	UPD+18, UPD+22, UPD+23, UPD+24, UPD+39, UPD+43, UPD+44, UPD+52
>> Y(0	UPD+23, UPD+24

Name	Field # of Occurrence
$T(@Y+1	UPD+10