Routine: RMPOPST0

Information

RMPOPST0 ;EDS/JAM - HOME OXYGEN BILLING TRANSACTIONS/POSTING,Part 1 ;7/24/98

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Prosthetics	2	$$FCP^RMPOBILU IFCAP^RMPOPST1
VA FileMan	2	^DIK ^DIR
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: 3

Package	Total	Caller Graph
Prosthetics	3	RMPOLM1 RMPOPST2 RMPOPST3

Entry Points

Name	Comments	DBIA/ICR reference
POST	;main module to post billing transactions to IFCAP
EXIT
ANY2319()	;
BUILD	;Build array IFCAP with patient transactions to post
PROCESS	;process FCP data - ask for method of payment
PATLCK()	;Lock patient level in ^RMPO(665.72
FCPLCK()	;Lock fund control level in ^RPO(665.72
UNLKPAT	;Unlock patient level in ^RMPO(665.72
UNLKFCP	;Unlock fund contrl point level in ^RMPO(665.72
CLEANUP	;Display post messages for FCP

External References

Name	Field # of Occurrence
^DIK	BUILD+38, BUILD+41
^DIR	POST+17, ANY2319+11, BUILD+32, CLEANUP+12
$$FCP^RMPOBILU	PROCESS+6
IFCAP^RMPOPST1	PROCESS+18
DEM^VADPT	BUILD+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Posting Cancelled..." Line Location: POST+7
Function Call: WRITE	Prompt: !!,"Nothing to Post..." Line Location: POST+10
Function Call: WRITE	Prompt: !!,"Nothing to Post..." Line Location: POST+11
Function Call: WRITE	Prompt: ! Line Location: POST+14
Function Call: WRITE	Prompt: ! Line Location: POST+17
Function Call: WRITE	Prompt: !!,"Posting Cancelled..." Line Location: POST+18
Function Call: WRITE	Prompt: ! Line Location: ANY2319+3
Function Call: WRITE	Prompt: ! Line Location: ANY2319+13
Function Call: WRITE	Prompt: !,PATNAM," record locked by another user" Line Location: BUILD+16
Function Call: WRITE	Prompt: !!,"Fund Control Point: ",FCP Line Location: PROCESS+5
Function Call: WRITE	Prompt: " ",$P(^TMP($J,FCP),U,3) Line Location: PROCESS+17
Function Call: WRITE	Prompt: !!,"FCP Not Posted",?40,"Message" Line Location: CLEANUP+6
Function Call: WRITE	Prompt: !,"---------------",?40,"-------" Line Location: CLEANUP+7
Function Call: WRITE	Prompt: !,FCP,?40,$P(^TMP($J,FCP),U,3) Line Location: CLEANUP+8
Function Call: WRITE	Prompt: !! Line Location: CLEANUP+11
Function Call: WRITE	Prompt: "All Fund Control Points posted successfully" Line Location: CLEANUP+11
Routine Call	DIR Line Location: POST+17 ANY2319+11 BUILD+32 CLEANUP+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	BUILD+29
^RMPO(	BUILD+9, BUILD+19, BUILD+20, PATLCK+1, FCPLCK+1, UNLKPAT+1, UNLKFCP+1
^RMPO(665.72 - [#665.72]	BUILD+39
^RMPR(661 - [#661]	BUILD+27
^TMP($J	POST+1!, POST+11, EXIT+1!, BUILD+45, BUILD+46, BUILD+48, BUILD+49, PROCESS+2, PROCESS+5, PROCESS+7 , PROCESS+9, PROCESS+16, PROCESS+17, CLEANUP+4, CLEANUP+5, CLEANUP+8, CLEANUP+9

Label References

Name	Line Occurrences
$$ANY2319	POST+6
$$FCPLCK	PROCESS+15
$$PATLCK	BUILD+16
BUILD	POST+9
CLEANUP	EXIT
EXIT	POST+7, POST+18
PROCESS	POST+20
UNLKFCP	PROCESS+19
UNLKPAT	BUILD+50, CLEANUP+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EXIT+1!
DA	BUILD+36!, BUILD+38!, BUILD+40, BUILD+41!
DA(1	BUILD+37, BUILD+40, BUILD+41
DA(2	BUILD+36, BUILD+37, BUILD+40, BUILD+41
DA(3	BUILD+36, BUILD+37, BUILD+40, BUILD+41
DA(4	BUILD+36*, BUILD+37
DFN	BUILD+7~, BUILD+8, BUILD+9, BUILD+19, BUILD+20, BUILD+37, BUILD+39, BUILD+40, BUILD+46, BUILD+48 , BUILD+49, PATLCK+1, UNLKPAT+1, CLEANUP+2~, CLEANUP+9, CLEANUP+10
>> DFNS(	BUILD+8
DIE	BUILD+36!
DIK	BUILD+37, BUILD+38!, BUILD+41*!
DIR	POST+5!, POST+15!, POST+19!, ANY2319+1~, BUILD+32!, CLEANUP+12!
DIR("?"	POST+16, ANY2319+8, ANY2319+9, ANY2319+10
DIR("??"	BUILD+30*
DIR("A"	POST+15, ANY2319+5, ANY2319+6, BUILD+31, CLEANUP+12*
DIR("B"	POST+16, ANY2319+7
DIR(0	POST+15, ANY2319+4, BUILD+31, CLEANUP+12
DIRUT	POST+18, EXIT+1!
DR	BUILD+36!
FCP	BUILD+7~, BUILD+24, BUILD+43, BUILD+45, BUILD+46, BUILD+48, BUILD+49, PROCESS+1~, PROCESS+2, PROCESS+5 , PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+16, PROCESS+17, CLEANUP+3, CLEANUP+4, CLEANUP+5, CLEANUP+8, CLEANUP+9
FCPTOT	PROCESS+1~, PROCESS+5*
FIL	POST+1~, POST+2*, BUILD+9, BUILD+19, BUILD+20, PATLCK+1, FCPLCK+1, UNLKPAT+1, UNLKFCP+1
FLG	CLEANUP+2~, CLEANUP+3, CLEANUP+6, CLEANUP+8, CLEANUP+11
IEN442	PROCESS+1~, PROCESS+11*
IENFCP	PROCESS+1~, PROCESS+12*, FCPLCK+1, UNLKFCP+1
ITDT	BUILD+7~, BUILD+20*, BUILD+23, BUILD+24
ITM	BUILD+7~, BUILD+18, BUILD+19, BUILD+20, BUILD+38, BUILD+49
ITNO	BUILD+7~, BUILD+24*, BUILD+27
ITOT	BUILD+7~, BUILD+24*, BUILD+26, BUILD+45, BUILD+49
ITSTR	BUILD+7~
LCK	BUILD+7~, BUILD+16, PROCESS+1~, PROCESS+15
LNAM	BUILD+7~, BUILD+47*, BUILD+48
PATFLG	BUILD+7~, BUILD+9*, BUILD+11, BUILD+13
PATNAM	BUILD+7~, BUILD+14*, BUILD+16, BUILD+29, BUILD+47, BUILD+48
PATSSN	BUILD+7~, BUILD+14*, BUILD+48
PAYINF	PROCESS+1~, PROCESS+6*, PROCESS+7, PROCESS+8, PROCESS+11, PROCESS+12
PCTOT	PROCESS+1~, PROCESS+12*
QUIT	POST+2*, EXIT+1!, PROCESS+2, PROCESS+8
R2319F	BUILD+21!, BUILD+32, BUILD+34, BUILD+35, BUILD+42
>> RMITEM	BUILD+27*, BUILD+29
>> RMPODATE	POST+2, BUILD+36, BUILD+39, BUILD+40
>> RMPOVDR	POST+2, BUILD+36, BUILD+39, BUILD+40
>> RMPOXITE	POST+2, BUILD+36, BUILD+39, BUILD+40
RMPRPAM0	ANY2319+1~, ANY2319+2, ANY2319+12, ANY2319+14
>> RMPRPZAM	POST+6*, POST+7, BUILD+28
>> RNEXITEM	BUILD+39*, BUILD+40
RVDT	POST+1~, POST+2*, BUILD+9, BUILD+19, BUILD+20, PATLCK+1, FCPLCK+1, UNLKPAT+1, UNLKFCP+1
SITE	POST+1~, POST+2*, BUILD+9, BUILD+19, BUILD+20, PATLCK+1, FCPLCK+1, UNLKPAT+1, UNLKFCP+1
SRVORD	PROCESS+1~, PROCESS+11*
U	BUILD+11, BUILD+13, BUILD+23, BUILD+24, BUILD+27, BUILD+29, BUILD+49, PROCESS+7, PROCESS+9, PROCESS+11 , PROCESS+12, PROCESS+16, PROCESS+17, CLEANUP+5, CLEANUP+8
UNLCK	CLEANUP+2~
UNLCK(	CLEANUP+10*
>> VA("BID"	BUILD+14
VADM	EXIT+1!
VADM(1	BUILD+14
VDR	POST+1~, POST+2*, BUILD+9, BUILD+19, BUILD+20, PATLCK+1, UNLKPAT+1
X	ANY2319+1~
Y	POST+18, EXIT+1!, ANY2319+1~, ANY2319+12, BUILD+32

Customize PDF page

Package: Prosthetics