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 |