Routine: IBOUTL

Information

IBOUTL ;ALB/AAS - INTEGRATED BILLING OUTPUT UTILITY ROUTINE ; 8-MAR-91

Source file <IBOUTL.m>

Package	Total	Call Graph
VA Fileman	3	^%DT D^DIQ ^DIR
Kernel	1	$$S^%ZTLOAD

Package	Total	Caller Graph
Integrated Billing	129	IB20PT31 IB20PT61 IBACVA1 IBAERR3 IBAMTBU1 IBAMTBU2 IBAMTC1 IBAMTED1 IBAMTI1 IBAMTI2 IBAPDX IBAPDX0 IBARXEB IBARXEC0 IBARXEC5 IBARXEI IBARXEPL IBARXEPV IBARXEX IBARXEX1 IBAUTL6 IBCA3 IBCNS IBCNS1 IBCNSA IBCNSA0 IBCNSBL1 IBCNSC2 IBCNSC3 IBCNSD IBCNSM IBCNSM2 IBCNSM5 IBCNSM6 IBCNSP IBCNSP01 IBCOC1 IBCOPV1 IBCORC IBCORC1 IBCORC2 IBCU3 IBCU41 IBEBRH IBECEA IBECEA0 IBECEA21 IBECEA3 IBECEA31 IBECEA32 IBECEA33 IBECEA5 IBECEA51 IBECEAU IBECEAU1 IBECEAU2 IBECEAU3 IBEMTF2 IBEMTO IBEMTO1 IBERS3 IBNEXTAPPT IBOA31 IBOA32 IBOBCC IBOCHK IBOCNC IBODISP IBOHLD2 IBOLK IBOMTC1 IBOMTE IBOMTE1 IBOMTE2 IBOMTP1 IBOST IBOSTUS1 IBOTR2 IBOTR3 IBOVOP IBOVOP1 IBOVOP2 IBPA IBPO IBPUBUL IBPUDEL IBRCON1 IBRCON2 IBRREL IBTOBI IBTOBI2 IBTOBI3 IBTOBI4 IBTODD IBTODD1 IBTOLR IBTONB IBTOPW IBTOSA IBTOSUM IBTOUA IBTOUR IBTOUR4 IBTOVS IBTRC IBTRCD IBTRCD0 IBTRD IBTRDD IBTRE IBTRE2 IBTRE3 IBTRE4 IBTRE5 IBTRED IBTRED0 IBTRED01 IBTRKR3 IBTRKR31 IBTRKR4 IBTRKR41 IBTRKR5 IBTRP IBTRPR IBTRPR0 IBTRV IBTRV2 IBTRVD IBTRVD0
Registration	3	DGCRNS DGVPTIB5 DGVPTIB6
Automated Information Collection System	1	IBDFOSG

Name	Comments	DBIA/ICR reference
DATEQ
PAUSE
DAT2(Y)	; Convert FM date to displayable (mmm dd yyyy) format
DAT1(X,Y)	; Convert FM date to displayable (mm/dd/yy) format.
BDT	; -get beginning date
EDT	; -get ending date
DATE	;	ICR #1137 Status: Active Usage: Private
ACTNM(X)	; -input pointer to action type file (350.1)
STOP(JOBDESC)	; Has a tasked job been requested to stop by the user?

Name	Line Occurrences
Function Call: READ	Prompt: "Go to DATE: " Formatting: ! Timeout: DTIME Variable: X Line Location: EDT+1
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: EDT+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !!?5,"'"_$S($D(JOBDESC):JOBDESC,1:"Unknown Task")_"' stopped at user's request..." Line Location: STOP+10
Routine Call	DIR Line Location: PAUSE+2

Name	Line Occurrences (* Changed, ! Killed)
^IBE(350.1 - [#350.1]	ACTNM+2, ACTNM+3

Name	Field # of Occurrence
^(0	ACTNM+3

Name	Field # of Occurrence
%	DAT2+1~
%DT	BDT+2!, EDT+1, DATEQ!
%DT("A"	BDT+2*
DATE	DAT1+2~, DAT1+3, DAT1+4, DAT1+5
DIR	PAUSE+2!
DIR(0	PAUSE+2*
DIRUT	PAUSE+2!
DTIME	EDT+1
DTOUT	PAUSE+2!
DUOUT	PAUSE+2!
>> IBBDT	BDT+1, BDT+2, EDT+1
>> IBEDT	BDT+1, EDT+1
>> IBJ	PAUSE+1*
>> IBQUIT	PAUSE+2*
IOSL	PAUSE+1
IOST	PAUSE
JOBDESC	STOP~, STOP+10
T	DAT1+2~, DAT1+4*
X	EDT+1*, DAT1~, DAT1+3, DAT1+4, ACTNM~, ACTNM+2, ACTNM+3
Y	BDT+2, EDT+1, DAT1~, DAT1+4, DAT2~, DAT2+2, DAT2+3, ACTNM+2*, ACTNM+3
>> ZTQUEUED	STOP+10
>> ZTSTOP	STOP+10*, STOP+11