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 |
Package | Total | Caller Graph |
---|---|---|
Prosthetics | 4 | RMPOPF RMPOPF1 RMPRPF RMPRPF2 |
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 |