Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPOPF

Package: Prosthetics

Routine: RMPOPF


Information

RMPOPF ;HINES-FO/DDA - MAIN INTERFACE ROUTINE FOR PFSS AND HOME OXYGEN ;8/18/05

Source Information

Source file <RMPOPF.m>

Call Graph

Call Graph

Call Graph Total: 7

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Prosthetics 8 HOME OXYGEN ITEM  HOME OXYGEN PRESCRIPTION  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.

External References

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 CHKCHK+3
CHARGE^RMPOPF1 CHARGE+12
GETSITE^RMPRPF1 GETACCT+21, CANCEL1+5

Global Variables Directly Accessed

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

Label References

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*, CHKCHK+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*, CHKCHK+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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All