PRPFNQ ;ALTOONA/CTB-PATIENT FUNDS MULTIPLE CARD DRIVER ;15 APR 02
Source file <PRPFNQ.m>
| 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 |
|---|---|---|
| Integrated Patient Fund | 4 | PRPF ALL CARDS PRPF CARD PRPF OVERDUE RESTRICTION PRPF RANGE OF CARDS |
| Kernel | 1 | ^DIC(19 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;3.0;PATIENT FUNDS;**3,5,6,7,13**;JUNE 1, 1989
|
|
| A | ||
| ADD | ||
| DQ | ||
| DATE | ;IF PARTIAL LIST IS REQUESTED, ASK EARLIEST DATE ELSE S DATE=01/01/1900
|
|
| DOIT | ||
| ALL | ;PRINT ALL CARDS
|
|
| OUT | ||
| RESEARCH | ;;SEARCH OF PATIENT FUNDS FOR DATES OF RESTRICTION OVER 6 MONTHS OLD
|
|
| DQRES | ;DQ POINT FOR RESTRICTION SEARCH
|
|
| OUTR | ;
|
|
| HELP |
| Name | Field # of Occurrence |
|---|---|
| ^%DT | DQRES+3 |
| HELP^%DTC | HELP |
| ^DIC | A |
| EN1^DIP | DQ+5, DOIT, ALL+10, DQRES+10 |
| ^DIR | DATE+3, DATE+5 |
| ^PRPFQ | A+4, RESEARCH+7 |
| CNVD^PRPFQ | DATE+4, DATE+7 |
| DIKILL^PRPFQ | OUTR+1 |
| MSG^PRPFQ | DQRES+4, DQRES+6 |
| RNG^PRPFQ | ALL+8 |
| SELRNG^PRPFQ | RESEARCH+2 |
| ZTKILL^PRPFQ | OUTR+1 |
| ^PRPFYN | ALL+4, ALL+6, ALL+9 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PRPF(470 - [#470] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRPF(470 - [#470] | DQRES+5 |
| ^TMP("PRPFAD" | DQ!, DQ+1* |
| ^TMP("PRPFAK" | DQRES+2!, DQRES+5*, DQRES+6, OUTR+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ALL+4, ALL+6*, ALL+7, ALL+9*, OUT! |
| >> %A | ALL+1*, ALL+6*, ALL+9* |
| >> %A(1 | ALL+1* |
| >> %A(2 | ALL+2* |
| >> %B | ALL+3*, ALL+6*, ALL+9* |
| >> %B(1 | ALL+4* |
| %DT | OUT!, DQRES+3* |
| %H | OUT! |
| %I | OUT! |
| %W | OUT! |
| %X | OUT! |
| %Y | A+5! |
| BDATE | V+1~, A+3!, A+4, DATE+4*, DATE+7*, ALL+5!, OUT! |
| BDATE1 | DATE+4*, DATE+7*, ALL+5!, OUT! |
| >> BY | DQ+4*, DOIT*, ALL+9*, DQRES+7*, DQRES+9* |
| >> BY(0 | DQ+4*, DQRES+7* |
| >> DA | DQRES+5* |
| DCC | OUT! |
| DFN | OUT! |
| DG1 | OUT! |
| DGA1 | OUT! |
| DGT | OUT! |
| DGX | OUT! |
| DIC | A*, A+1!, DQ+2*, DOIT*, ALL+10*, DQRES+7* |
| DIC("A" | V+4*, A!* |
| DIC(0 | A* |
| DIJ | OUT! |
| DIOEND | DQ+4*, OUT!, DQRES+8* |
| DIOP | OUT! |
| DIPT | OUT! |
| DIR | DATE+3!, DATE+5!, OUT! |
| DIR("?" | DATE+2*, DATE+5* |
| DIR("A" | DATE+1*, DATE+5* |
| DIR("B" | DATE+1* |
| DIR(0 | DATE+1*, DATE+5* |
| DIROUT | A+3!, DATE+3, DATE+6, ALL+5! |
| >> DIS(0 | ALL+7!* |
| DISH | OUT! |
| DIYS | OUT! |
| DP | OUT! |
| DTOUT | A+3!, DATE+3, DATE+6, ALL+5! |
| DUOUT | A+3!, DATE+3, DATE+6, ALL+5! |
| F | OUT! |
| FLDS | DQ+4*, DOIT*, ALL+10*, OUT!, DQRES+7* |
| >> FR | DQ+4*, ALL+8, DQRES+7*, DQRES+9* |
| >> I | DQ+1* |
| IOP | A+2!, DQ+3*, DQRES+1*, DQRES+7*, OUTR+1! |
| IOX | OUT! |
| IOY | OUT! |
| >> J | DQ+1* |
| L | DQ+4*, DOIT*, ALL+10*, OUT!, DQRES+7* |
| L(0 | DQ+4*, DQRES+7* |
| LIST | V+3*, A+2, A+5!, ADD+1*, ADD+2, DQ+1 |
| LIST( | ADD+1, ADD+2*, DQ+1 |
| >> M | ALL+8* |
| MTR | OUT! |
| >> N | DQ+1* |
| O | OUT! |
| PAGE | OUT! |
| PFM | OUTR+1! |
| POP | OUT! |
| PRIOP | DQ+3, DQRES+1, DQRES+7, OUTR+1! |
| PRPFKEY | OUT! |
| PRPFRNG | OUT!, RESEARCH+3, RESEARCH+4, RESEARCH+5, RESEARCH+6, DQRES+7, DQRES+9 |
| PRPFRNG2 | OUT!, RESEARCH+4*, RESEARCH+5*, RESEARCH+6, DQRES+7 |
| PTR | OUT! |
| T5 | OUTR+1! |
| >> TO | DQ+4*, ALL+8, DQRES+7*, DQRES+9* |
| W | OUT! |
| X | A+2*, ADD~, DATE+4*, DATE+7*, OUT!, DQRES+3*, DQRES+4*, DQRES+5*, DQRES+6* |
| Y | A, A+5!, ADD+1, ADD+2, DATE+4, DATE+7, DQRES+5 |
| >> ZTDESC | A+4*, RESEARCH+7* |
| >> ZTQUEUED | DQRES+1 |
| >> ZTREQ | DQRES+1* |
| >> ZTRTN | A+4*, RESEARCH+7* |
| >> ZTSAVE("BDATE*" | A+4* |
| >> ZTSAVE("DIC" | A+4* |
| >> ZTSAVE("LIST*" | A+4* |
| >> ZTSAVE("PRPFRNG" | RESEARCH+6* |
| >> ZTSAVE("PRPFRNG2" | RESEARCH+6* |
| ZTSK | OUT! |
| Name | Field # of Occurrence |
|---|---|
| $T(RESEARCH | RESEARCH+7 |