Routine: RMPOPF

Package	Total	Call Graph
Prosthetics	2	CHARGE^RMPOPF1 GETSITE^RMPRPF1
CPT HCPCS Codes	1	$$STATCHK^ICPTAPIU
DRG Grouper	1	$$STATCHK^ICDAPIU
Integrated Billing	1	($$GETACCT,$$SWSTAT)^IBBAPI
Kernel	1	^%ZTLOAD
VA FileMan	1	^DIE

Package	Total	Caller Graph
Prosthetics	9	HOME OXYGEN ITEM HOME OXYGEN PRESCRIPTION ITEM RMPOPF1 RMPOPST3 RMPRPF RMPRPF1 RMPRPF2 RMPRPF3

Entry Points

Name	Comments	DBIA/ICR reference
EN	; ENTRY POINT FOR HOME OXYGEN BACKGROUND PROCESSING ; Loop on APNEW and APO cross-references.
APNEW	;Loop on file #665 APNEW cross-reference. ; Delete ITEM'S PFSS ACCOUNT REFERENCE associated with previous prescription date. ; Set PFSS ACCOUNT FLAG. This will trigger the background process to obtain a new ; PFSS ACCOUNT REFERENCE for the new prescription date.
EXITNEW	; Remove the APNEW flag
APO	;Loop on file #665 APO cross-reference and gather data for GETACCT api.
GETACCT	; ENTRY POINT TO SEND HOME OXYGEN ACCOUNT CREATION, PRE-CERTIFICATION
EXITGET	;
PSASHCPC	; determine correct HCPCS code to send based on PSAS HCPCS. ; UPON ENTRY RMPRHCPC = POINTER TO 661.1 AND RMPRHCDT = FILEMAN DATE ; Returns with RMPRVHC having the correct value to pass to IBB.
CHK
VALIDRX	; GET ASSOCIATED RX MAKE SURE IT HAS NOT EXPIRED.
ACCTCNCL	; ENTRY POINT TO SEND HOME OXYGEN ACCOUNT CANCELLATION DATA. ; THIS TAG IS CALLED AS A ONE-TIME TASKMAN TASK LOADED FROM ACCTTASK^PMPOPF. ; Input variables from TaskMan- ; RMPRDFN = DA (also DFN) ; RMPRRXDT = Home Oxygen Prescription date ; RMPRRXEN = Home Oxygen Prescription IEN ;
EXITCNCL	;
CANCEL	; ENTRY POINT TO SEND HOME OXYGEN ACCOUNT CANCELLATION DATA. ; THIS TAG IS CALLED AS A ONE-TIME TASKMAN TASK LOADED FROM ITEMTASK^PMPOPF. ; Input variables from TaskMan- ; RMPRDFN = DA (also DFN) ; RMPRITEM = Home Oxygen Item IEN ;
CANCEL1	; ENTRY POINT FOR SINGLE ITEM DELETE (ITEMTASK)
ACCTTASK	; FILE #665, HOME OXYGEN PRESCRITION; DATE FIELD MUMPS XREF KILL LOGIC. ; TASKMAN LOAD A ONE TIME TASKMAN TASK.
ITEMTASK	; FILE #665, HOME OXYGEN ITEM; ITEM FIELD MUMPS XREF
CHRGTASK	; FILE #665.72, BILLING MONTH; VENDOR; PATIENT; ITEM FIELD MUMPS XREF
CHARGE	; Called from RMPOPST3.

Name	Field # of Occurrence
^%ZTLOAD	ACCTTASK+6, ITEMTASK+8, CHRGTASK+9
^DIE	APNEW+14, EXITNEW+6, GETACCT+11, GETACCT+49
$$GETACCT^IBBAPI	GETACCT+44, CANCEL1+10
$$SWSTAT^IBBAPI	ACCTTASK+2, ITEMTASK+3, CHRGTASK+3, CHARGE+11
$$STATCHK^ICDAPIU	GETACCT+37
$$STATCHK^ICPTAPIU	CHK, CHK+3
CHARGE^RMPOPF1	CHARGE+12
GETSITE^RMPRPF1	GETACCT+21, CANCEL1+5

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	GETACCT+37
^RMPO(665.72 - [#665.72]	CHRGTASK+4, CHRGTASK+8
^RMPR(661.1 - [#661.1]	PSASHCPC+4, PSASHCPC+5
^RMPR(665 - [#665]	APNEW+5, APNEW+10, EXITNEW+2, APO+2, GETACCT+5, GETACCT+15, GETACCT+20, GETACCT+23, GETACCT+27, GETACCT+36 , VALIDRX+2, VALIDRX+3, VALIDRX+4, ACCTCNCL+9, ACCTCNCL+13, CANCEL+16, CANCEL1+4, ITEMTASK+4

Name	Line Occurrences
APNEW	EN+2
APO	EN+2
CANCEL	ACCTCNCL+13
CHK	PSASHCPC+3
EXITCNCL	ACCTCNCL+9
EXITNEW	APNEW+8, APNEW+17
GETACCT	APO+2
PSASHCPC	GETACCT+28
VALIDRX	APNEW+7, GETACCT+3, CANCEL1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	APNEW+12, APNEW+15!, EXITNEW+4, EXITNEW+7!, GETACCT+9, GETACCT+12!, GETACCT+47, GETACCT+50!, ACCTTASK+5, ITEMTASK+4 , ITEMTASK+7, CHRGTASK+4, CHRGTASK+7, CHRGTASK+8
DA(1	APNEW+12, EXITNEW+4, GETACCT+9, GETACCT+47, ACCTTASK+5, ITEMTASK+4, ITEMTASK+7, CHRGTASK+4, CHRGTASK+7, CHRGTASK+8
DA(2	CHRGTASK+4, CHRGTASK+7, CHRGTASK+8
DA(3	CHRGTASK+4, CHRGTASK+7, CHRGTASK+8
DA(4	CHRGTASK+4, CHRGTASK+7, CHRGTASK+8
DIE	APNEW+11, APNEW+15!, EXITNEW+3, EXITNEW+7!, GETACCT+8, GETACCT+12!, GETACCT+46, GETACCT+50!
DR	APNEW+13, APNEW+15!, EXITNEW+5, EXITNEW+7!, GETACCT+10, GETACCT+12!, GETACCT+48, GETACCT+50!
DT	VALIDRX+4
RMPR6699	EN+3!
RMPRACCT	EN+3!, GETACCT+44*, GETACCT+48, GETACCT+51!
RMPRAPLR	EN+3!, GETACCT+18, GETACCT+44, GETACCT+51!, CANCEL1+2, CANCEL1+10, CANCEL1+11!
RMPRCHDT	GETACCT+51!
RMPRCNCL	CANCEL1+10*, CANCEL1+11!
RMPRDFN	EN+3!, GETACCT+14*, GETACCT+44, GETACCT+51!, ACCTCNCL+9, ACCTCNCL+13, EXITCNCL+1!, CANCEL+16, CANCEL1+4, CANCEL1+7 , CANCEL1+10
RMPRDG1	EN+3!, GETACCT+44, GETACCT+51!
RMPRDG1(1	GETACCT+38, GETACCT+39
RMPRDRG	EN+3!, GETACCT+36, GETACCT+37, GETACCT+39, GETACCT+51!
RMPREHC	GETACCT+51!, PSASHCPC+3, PSASHCPC+4, CHK, CHK+1, CHK+2*, CHK+3
RMPREVNT	EN+3!, GETACCT+16, GETACCT+17, GETACCT+44, GETACCT+51!, CANCEL1+1*, CANCEL1+10, CANCEL1+11!
>> RMPRHCDT	GETACCT+27*, CHK, CHK+3
RMPRHCPC	EN+3!, GETACCT+27*, GETACCT+51!, PSASHCPC+3, PSASHCPC+4, PSASHCPC+5
RMPRHCPT	EN+3!
RMPRHLOC	GETACCT+22, GETACCT+51!, CANCEL1+6, CANCEL1+11!
RMPRIEN	EN+3!, APNEW+4, APNEW+5, APNEW+10, APNEW+11, APNEW+12, EXITNEW+2, EXITNEW+3, EXITNEW+4, APO+1* , APO+2, GETACCT+5, GETACCT+8, GETACCT+9, GETACCT+14, GETACCT+15, GETACCT+20, GETACCT+23, GETACCT+27, GETACCT+36 , GETACCT+46, GETACCT+47, VALIDRX+2, VALIDRX+3, VALIDRX+4, CANCEL1+7
RMPRITEM	EN+3!, APNEW+9, APNEW+10, APNEW+12, GETACCT+4, GETACCT+5, GETACCT+9, GETACCT+15, GETACCT+27, GETACCT+36 , GETACCT+47, EXITGET+1!, ACCTCNCL+12, ACCTCNCL+13, EXITCNCL+1!, CANCEL+16
RMPRPAR	EN+3!, GETACCT+15, GETACCT+16, GETACCT+17, GETACCT+44, GETACCT+51!, CANCEL+16, CANCEL1+10, CANCEL1+11!, ITEMTASK+4* , ITEMTASK+7, ITEMTASK+9!
>> RMPRPFSS	CHRGTASK+4*
RMPRPR1	EN+3!, GETACCT+44, GETACCT+51!
RMPRPR1(3	GETACCT+32*
RMPRPR1(4	GETACCT+33*
RMPRPR1(6	GETACCT+34*
RMPRPV1	EN+3!, GETACCT+44, GETACCT+51!, CANCEL1+10, CANCEL1+11!
RMPRPV1(2	GETACCT+19, CANCEL1+3
RMPRPV1(3	GETACCT+22, CANCEL1+6
RMPRPV1(44	GETACCT+24, CANCEL1+8
RMPRPV1(7	GETACCT+23*
RMPRPV2	EN+3!, GETACCT+44, GETACCT+51!
RMPRPV2(8	GETACCT+25*
RMPRRX	EN+3!, EXITNEW+1, EXITNEW+2, EXITNEW+4, VALIDRX+1, VALIDRX+3, VALIDRX+4, VALIDRX+7!
RMPRRXDT	EN+3!, APNEW+8, GETACCT+6, GETACCT+24, GETACCT+25, GETACCT+27, GETACCT+37, EXITGET+1!, VALIDRX+1, VALIDRX+4 , ACCTCNCL+9, EXITCNCL+1!, CANCEL1+8
RMPRRXEN	ACCTCNCL+9, EXITCNCL+1!
RMPRRXEX	EN+3!, VALIDRX+1, VALIDRX+4, VALIDRX+7!
RMPRRXI	EN+3!, GETACCT+23, EXITGET+1!, VALIDRX+1, VALIDRX+4
RMPRRXLP	EN+3!, VALIDRX+1, VALIDRX+2, VALIDRX+3, VALIDRX+4, VALIDRX+7!
RMPRSITE	EN+3!
RMPRSTA	GETACCT+20, GETACCT+51!, CANCEL1+4, CANCEL1+11!
RMPRSTAT	EN+3!, GETACCT+51!, CHK, CHK+1, CHK+3, CHK+5
RMPRTHC	GETACCT+33, GETACCT+51!, PSASHCPC+3, PSASHCPC+5
RMPRVHC	GETACCT+31, GETACCT+32, GETACCT+51!, CHK+5, CHK+6
RMPRZCL	EN+3!, GETACCT+41*, GETACCT+44, GETACCT+51!
>> X	ACCTTASK+5
ZTCPU	ACCTTASK+3~, ITEMTASK+5~, CHRGTASK+5~
ZTDESC	ACCTTASK+3~, ACCTTASK+4, ITEMTASK+5~, ITEMTASK+6, CHRGTASK+5~, CHRGTASK+6*
ZTDTH	ACCTTASK+3~, ACCTTASK+4, ITEMTASK+5~, ITEMTASK+6, CHRGTASK+5~, CHRGTASK+6*
ZTIO	ACCTTASK+3~, ACCTTASK+4, ITEMTASK+5~, ITEMTASK+6, CHRGTASK+5~, CHRGTASK+6*
ZTKIL	ACCTTASK+3~, ITEMTASK+5~, CHRGTASK+5~
ZTPRI	ACCTTASK+3~, ITEMTASK+5~, CHRGTASK+5~
ZTRTN	ACCTTASK+3~, ACCTTASK+4, ITEMTASK+5~, ITEMTASK+6, CHRGTASK+5~, CHRGTASK+6*
ZTSAVE	ACCTTASK+3~, ITEMTASK+5~, CHRGTASK+5~
ZTSAVE("RMPRBLDT"	CHRGTASK+7*
ZTSAVE("RMPRDFN"	ACCTTASK+5, ITEMTASK+7, CHRGTASK+7*
ZTSAVE("RMPRITEM"	ITEMTASK+7, CHRGTASK+7
ZTSAVE("RMPRPAR"	ITEMTASK+7*
ZTSAVE("RMPRPFSS"	CHRGTASK+8*
ZTSAVE("RMPRRXDT"	ACCTTASK+5*
ZTSAVE("RMPRRXEN"	ACCTTASK+5*
ZTSAVE("RMPRSITE"	CHRGTASK+7*
ZTSAVE("RMPRVDR"	CHRGTASK+7*
ZTSYNC	ACCTTASK+3~, ITEMTASK+5~, CHRGTASK+5~
ZTUCI	ACCTTASK+3~, ITEMTASK+5~, CHRGTASK+5~

Customize PDF page

Package: Prosthetics

Routine: RMPOPF

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: