RMPRPF1 ;HOIFO/TH,DDA - PFSS Account Creation ;8/18/05
Source file <RMPRPF1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry Point
|
|
| EN2 | ; Entry to be used if Delivery Date is greater than PFSS Switch on date
; Quit if PFSS Charge ID exists |
|
| GETDATA | ; Get pre-cert data
|
|
| GETSITE | ; Get Patient Location
; requires RMPRSTA=file 4 pointer ; return RMPRHLOC= hospital location or NULL if there is none. |
|
| GETACCT | ; Call GETACCT^IBBAPI to send data and get PFSS Account Reference
|
|
| STORE | ; Store data
|
|
| DELAPD | ; Delete the "APD" Flag
|
|
| DELAPH | ; Delete the "APH" Flag
|
|
| EXIT | ; Exit
|
| FileNo | Call Tags |
|---|---|
| ^RMPR(660 - [#660] | Classic Fileman Calls |
