RMPOPF ;HINES-FO/DDA - MAIN INTERFACE ROUTINE FOR PFSS AND HOME OXYGEN ;8/18/05
Source file <RMPOPF.m>
| 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.
|
