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 |