RMPRPF1 ;HOIFO/TH,DDA - PFSS Account Creation ;8/18/05
Source file <RMPRPF1.m>
| Package | Total | Call Graph |
|---|---|---|
| Prosthetics | 2 | PSASHCPC^RMPOPF DG1ZCL^RMPRPF2 |
| Integrated Billing | 1 | ($$GETACCT,$$SWSTAT)^IBBAPI |
| VA FileMan | 1 | ^DIE |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RMPR(660 - [#660] | EN+4, EN2+2, EN2+4, EN2+6, EN2+10, EN2+12, GETDATA+2, GETDATA+4, GETDATA+5, GETDATA+9 , GETDATA+13, GETDATA+15, GETDATA+21, GETDATA+25, GETDATA+31, STORE+2, STORE+3, STORE+5, STORE+12 |
| ^RMPR(669.9 - [#669.9] | GETSITE+4, GETSITE+5, GETSITE+9, GETSITE+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | STORE+8*, STORE+13!, DELAPD+2*, DELAPD+5!, DELAPH+2*, DELAPH+5! |
| DIE | STORE+8*, STORE+13!, DELAPD+1*, DELAPD+5!, DELAPH+1*, DELAPH+5! |
| DR | STORE+9*, STORE+10*, STORE+13!, DELAPD+3*, DELAPD+5!, DELAPH+3*, DELAPH+5! |
| OK | EN+1*, EN2+9*, EN2+12*, EN2+14, EXIT+1! |
| RMPRADDT | GETDATA+12*, GETDATA+15*, GETDATA+16, GETDATA+19, GETDATA+26, EXIT+2! |
| RMPRAPLR | GETDATA+1*, GETDATA+3*, GETACCT+1, EXIT+1! |
| RMPRARFN | EN2+18, GETDATA+1*, GETDATA+5*, GETACCT+1*, EXIT+1! |
| RMPRCPT | EXIT+4! |
| >> RMPRDA | EN+4, EN2+2, EN2+4, EN2+6, EN2+10, EN2+12, GETDATA+2, GETDATA+4, GETDATA+5, GETDATA+9 , GETDATA+13, GETDATA+15, GETDATA+21, GETDATA+25, GETDATA+31, STORE+2, STORE+3, STORE+5, STORE+8, STORE+12 , DELAPD+2, DELAPH+2 |
| RMPRDFN | GETDATA+1*, GETDATA+2*, GETACCT+1, EXIT+1! |
| RMPRDG1 | GETACCT+1, EXIT+3! |
| RMPRDIAG | EXIT+3! |
| RMPREVNT | EN2+7*, EN2+13*, GETDATA+4, GETACCT+1, EXIT+1! |
| RMPREXDT | GETDATA+20*, GETDATA+21*, GETDATA+22, EXIT+3! |
| >> RMPRHCDT | GETDATA+26* |
| RMPRHCPC | GETDATA+25*, EXIT+2! |
| RMPRHLOC | GETDATA+11, GETSITE+3*, GETSITE+5*, GETSITE+7, GETSITE+9, GETSITE+10*, EXIT+2! |
| RMPRNODE | EXIT+4! |
| RMPRORD | GETDATA+12*, GETDATA+13*, GETDATA+14, EXIT+2! |
| RMPRPR1 | GETACCT+1, EXIT+1! |
| RMPRPR1(3 | GETDATA+28* |
| RMPRPR1(4 | GETDATA+29* |
| RMPRPR1(6 | GETDATA+31* |
| RMPRPV1 | GETACCT+1, EXIT+2! |
| RMPRPV1(2 | GETDATA+8* |
| RMPRPV1(3 | GETDATA+11* |
| RMPRPV1(44 | GETDATA+16* |
| RMPRPV1(7 | GETDATA+14* |
| RMPRPV2 | GETACCT+1, EXIT+3! |
| RMPRPV2(46 | GETDATA+22* |
| RMPRPV2(8 | GETDATA+19* |
| RMPRQTY | STORE+1*, STORE+2*, EXIT+4! |
| RMPRRICP | EXIT+3! |
| RMPRSIEN | GETSITE+3*, GETSITE+4*, GETSITE+5, GETSITE+8*, GETSITE+9*, GETSITE+10, EXIT+2! |
| RMPRSTA | GETDATA+9*, GETSITE+4, EXIT+1! |
| RMPRSWDT | EN+2*, EN+4, EXIT+4! |
| RMPRTC | STORE+1*, STORE+3*, EXIT+4! |
| >> RMPRTHC | GETDATA+29 |
| >> RMPRVHC | GETDATA+28 |
| RMPRZCL | GETACCT+1, EXIT+4! |
| RMRICPP | EXIT+3! |
| U | EN2+2, EN2+4, EN2+6, EN2+10, EN2+12, GETDATA+2, GETDATA+4, GETDATA+5, GETDATA+9, GETDATA+13 , GETDATA+15, GETDATA+21, GETDATA+25, GETDATA+31, GETSITE+5, GETSITE+10, STORE+2, STORE+3 |