Routine: RMPOBILU

Information

RMPOBILU ;EDS/MDB,RVD - HOME OXYGEN BILLING TRANSACTIONS ;8/7/98 10:58

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	5	^%DT ^DIC FILE^DICN ^DIE ^DIR
IFCAP	2	ADD^PRCH7D EN1A^PRCS58
Kernel	1	(DE,EN)^XUSHSHP
Prosthetics	1	^RMPRPAT
Registration	1	DEM^VADPT

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: 6

Package	Total	Caller Graph
Prosthetics	6	BILLING MONTH RMPOBIL2 RMPOBIL6 RMPOPED RMPOPST0 RMPOPST2

Entry Points

Name	Comments	DBIA/ICR reference
VDRSCRN	; SCREEN
XFRM1	; INPUT XFORM FOR BILLING MONTH, FILE 665.72
2319	; -- Display 2319
ACCEPT	; ACCEPT TRX
UNACCEPT	; UNACCEPT TRX
SAME	;
FCP(FCP)	;
FCP4	; LOOK FOR EXISTING PAYMENT TYPE
FCP2	; 1358
FCPSET	; SET ENTRY IN RMPO
FCPCHK(DATA)	;CHECK IF FCP ALREADY EXIST IN FILE 665.72
FCP3	; PURCHASE CARD
FCP1	; PAYMENT TYPE
GETFCP(DFCP)	; Return FCP from file 420 (External value only) ; Pass - DFCP = Default FCP [optional]
QUIT()
EQUIT()
LJ(S,W,C)	; Left justify S in a field W wide padding with char F
ENC(X,X1,X2)	;Encrypt
DEC(X,X1,X2)	;Decrypt

External References

Name	Field # of Occurrence
^%DT	XFRM1+2
^DIC	FCP4+12, GETFCP+6
FILE^DICN	FCPSET+8
^DIE	ACCEPT+1, UNACCEPT+1, FCPSET+15
^DIR	FCP4+19, FCP2+6, FCP3+8, FCP1+2
ADD^PRCH7D	FCP3+5
EN1A^PRCS58	FCP2+3
^RMPRPAT	2319+8
DEM^VADPT	2319+2
DE^XUSHSHP	DEC+4
EN^XUSHSHP	ENC+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7)_"RMPOXITE NOT DEFINED!" Line Location: VDRSCRN+3
Function Call: WRITE	Prompt: !,"SITE NOT DEFINED!" Line Location: FCP+20
Function Call: WRITE	Prompt: !,"SITE NOT FOUND!" Line Location: FCP+21
Function Call: WRITE	Prompt: !,"BILLING MONTH NOT DEFINED!" Line Location: FCP+23
Function Call: WRITE	Prompt: !,"BILLING MONTH NOT DEFINED!" Line Location: FCP+26
Function Call: WRITE	Prompt: !!,"You are not an authorized Purchase Card User, CONTACT FISCAL!" Line Location: FCP3+3
Function Call: WRITE	Prompt: wide Line Location: LJ+0
Routine Call	DIC Line Location: FCP4+12 GETFCP+6
Routine Call	DIE Line Location: ACCEPT+1 UNACCEPT+1 FCPSET+15
Routine Call	DIR Line Location: FCP4+19 FCP2+6 FCP3+8 FCP1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(665.723	FCPSET+7
^PRC(440.5 - [#440.5]	FCP3+2
^RMPO(	FCP+21, FCP+25, FCP4+2, FCP4+16, FCPCHK+3, FCPCHK+4
^RMPO(665.72 - [#665.72]	FCPSET+18*

Label References

Name	Line Occurrences
$$FCPCHK	FCPSET+3
$$QUIT	FCP+29, FCP4+13, FCP4+19, FCP2+3, FCP2+6, FCP3+5, FCP3+8, GETFCP+7
FCP1	FCP+29
FCP2	FCP+31
FCP3	FCP+31
FCP4	FCP+28, FCP4+19
FCPSET	FCP2+7, FCP3+9
SAME	ACCEPT+1, UNACCEPT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	XFRM1+2*
>> %DT(0	XFRM1+1*
C	LJ~, LJ+2*, LJ+3
DA	SAME+1!, SAME+2, FCPSET+4!, FCPSET+9, FCPSET+18, FCP1+1!, GETFCP+3~
DA(1	SAME+2, SAME+3, FCP4+3, FCP4+5, FCPSET+5, FCPSET+6, FCPSET+18, GETFCP+5, GETFCP+6
DA(2	SAME+2, SAME+3, FCP4+3, FCP4+5, FCPSET+5*, FCPSET+6, FCPSET+18
DA(3	SAME+2*, SAME+3
DATA	FCP+18~, FCP+19, FCP+28, FCP+32, FCP4+1, FCP4+21, FCP4+22, FCP4+23, FCPSET+1, FCPSET+3 , FCPSET+8, FCPSET+9, FCPSET+11, FCPSET+12, FCPSET+16, FCPSET+17, FCPCHK~, FCPCHK+6, FCPCHK+7, FCPCHK+9
DD	FCPSET+4!
DFCP	GETFCP~, GETFCP+4
>> DFN	2319+2*
DIC	FCP4+3!, FCP4+5, FCPSET+4!, FCPSET+6, FCPSET+9, GETFCP+3~, GETFCP+6*
DIC("A"	FCP4+4, GETFCP+5
DIC("B"	GETFCP+4*
DIC("P"	FCPSET+7*
DIC("S"	VDRSCRN+4, VDRSCRN+5, FCP4+6, FCP4+7, FCP4+8*
DIC("W"	FCP4+9, FCP4+10, FCP4+11*
DIC(0	FCP4+5, FCPSET+8, GETFCP+6*
DIE	SAME+1!, SAME+3, FCPSET+4!, FCPSET+9
>> DINUM	XFRM1+3*
DIR	FCP4+15!, FCP2+5!, FCP3+7!, FCP1+1!
DIR("A"	FCP4+18, FCP2+6, FCP3+7*
DIR("B"	FCP4+19, FCP2+5, FCP3+7*
DIR(0	FCP4+15, FCP2+5, FCP3+7, FCP1+2
>> DIROUT	QUIT
DO	FCPSET+4!
DR	ACCEPT+1, UNACCEPT+1, SAME+1!, FCPSET+4!, FCPSET+10, FCPSET+11, FCPSET+12, FCPSET+13, FCPSET+14*
DT	XFRM1+1
>> DTOUT	QUIT, EQUIT
>> DUOUT	QUIT
DUZ	FCPSET+13, FCPCHK+8, FCP3+2
FCP	FCP~, FCP4+2, FCP2+1, FCPSET+8, FCPCHK+3
FDT	FCPCHK+1~, FCPCHK+4*, FCPCHK+5, FCPCHK+6, FCPCHK+8, FCPCHK+9
FN	FCP+18~, FCP+19*, FCP+21, FCP+25, FCP4+2, FCP4+16, FCPCHK+3, FCPCHK+4
FOUND	FCP+18~, FCP+28, FCP4+1, FCP4+21, FCP4+23, FCPCHK+1~, FCPCHK+2, FCPCHK+3, FCPCHK+7, FCPCHK+9 , FCPCHK+10
FPT	FCPCHK+1~, FCPCHK+4*, FCPCHK+6
IEN	FCP+18~, FCPCHK+1~, FCPCHK+2, FCPCHK+3, FCPCHK+4, FCPCHK+7, FCPCHK+9
PRC	FCP2+8!
PRC("CP"	FCP2+1*
PRC("SITE"	FCP2+1*
PRCA	FCP3+1~, FCP3+4*, FCP3+5
PRCS	FCP2+8!
PRCS("A"	FCP2+2*
>> QUIT	FCP+19, FCP+31, QUIT, EQUIT*
>> RMPODATE	FCP+23, FCP+24
>> RMPODFN	2319+2, SAME+2
>> RMPORVDT	SAME+2
>> RMPOVDR	SAME+2, FCPSET+14, FCPCHK+8, FCP3+4
>> RMPOXITE	VDRSCRN+2, SAME+2, FCP+20, FCP+21, FCP+22, GETFCP+5
RMPOZ	FCP4+14!, FCP4+20, FCP2+4!, FCP2+7, FCP3+6!*, FCP3+9
>> RMPR("L"	2319+6*
RMPRBAC1	2319+7*, 2319+9!
RMPRDFN	2319+1~, 2319+2*
RMPRDOB	2319+1~, 2319+4*
RMPRNAM	2319+1~, 2319+3*
>> RMPRS	FCP2+1, FCP3+4
RMPRSSN	2319+1~, 2319+5*
>> RMZ	FCP4+16, FCP4+17, FCP4+18
RVDT	FCP+18~, FCP+24*, FCP+25, FCP4+2, FCP4+3, FCP4+16, FCPSET+5, FCPCHK+3, FCPCHK+4
S	LJ~, LJ+3*, LJ+4
SITE	FCP+18~, FCP+22*, FCP+25, FCP4+2, FCP4+3, FCP4+16, FCPSET+5, FCPCHK+3, FCPCHK+4
TMP	FCP+18~
TYPE	FCP+18~, FCP+30*, FCP+31, FCPSET+1, FCPSET+10, FCPSET+14, FCPCHK+6, FCPCHK+7
U	FCP4+17, FCP4+21, FCP4+22, FCP4+23, FCPSET+1, FCPSET+7, FCPSET+11, FCPSET+12, FCPSET+16, FCPSET+17 , FCPSET+18, FCPCHK+4, FCPCHK+5, FCPCHK+6, FCPCHK+8, FCPCHK+9, FCP3+4, GETFCP+8
>> VADM(1	2319+3
>> VADM(2	2319+5
>> VADM(3	2319+4
W	LJ~, LJ+3, LJ+4
X	XFRM1+2!, XFRM1+3, FCPSET+8*, ENC~, ENC+5, DEC~, DEC+5
X1	ENC~, DEC~
X2	ENC~, DEC~
Y	XFRM1+2, FCP+29, FCP+30, FCP+31, FCP4+13, FCP4+14, FCP4+16, FCP4+19, FCP4+20!, FCP4+21 , FCP4+23, FCP2+3, FCP2+4, FCP2+6, FCP2+7!, FCPSET+1, FCPSET+3, FCPSET+8, FCPSET+9, FCP3+2 , FCP3+5, FCP3+6, FCP3+8, FCP3+9!, GETFCP+7, GETFCP+8, EQUIT
Y(0	FCP4+21, FCP4+22, FCP4+23, GETFCP+8
>> Z1	FCPSET+16*, FCPSET+18
>> Z2	FCPSET+17*, FCPSET+18

Customize PDF page

Package: Prosthetics