PSORN52D ;BIR/LE - files new and renewal entries con't ;02/27/04
Source file <PSORN52D.m>
Package | Total | Call Graph |
---|---|---|
Registration | 1 | ELIG^VADPT |
Scheduling | 1 | $$SC^SDCO22 |
VA FileMan | 1 | ($$GET1,GETS)^DIQ |
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 |
---|---|---|
GET | ;must have FILE and PSORENW variables to pull default data for ICD and SC/EI for SC>50% Rx's from file 52
|
|
G1 | ;get ICD, if no IBQ node get SC/EI's
|
|
FILE | ;
|
|
FILE2 | ;file ICD's on existing node or build new nodes
|
|
RESET | ;called from reset copay status PSOCPC
|
|
SCP | ;Called from multiple routines - DFN or PSODFN variable must be available to call this subroutine.
|
|
SHAD | ;
|
|
SET3 | ;for when patient status is exempt or SC>50
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | GET1^DIQ |
^PS(52.41 - [#52.41] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(52.41 - [#52.41] | GET+4 |
^PS(53 - [#53] | G1+16, G1+19, FILE2+10, FILE2+23, SET3+2, SET3+8 |
^PSRX - [#52] | GET+2, FILE+1, FILE+2, FILE+3*, FILE+4*, FILE+5*, FILE2+8!, FILE2+20*, FILE2+21*, FILE2+22* , FILE2+26*, RESET+3, RESET+6, RESET+18, RESET+19, RESET+20*, RESET+22*, SHAD+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | GET+1~, GET+7 |
ARRAY( | G1+1, G1+2, G1+4, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11 , G1+14, G1+18, G1+21 |
D | FILE2+3~, FILE2+19*, FILE2+20, FILE2+21 |
DATA | FILE2+3~, FILE2+9*, FILE2+10*, FILE2+12*, FILE2+13*, FILE2+14*, FILE2+15*, FILE2+16*, FILE2+17*, FILE2+18* , FILE2+19*, FILE2+20*, FILE2+22, FILE2+23, RESET+5~, RESET+8*, RESET+10*, RESET+11*, RESET+12*, RESET+13* , RESET+14*, RESET+15*, RESET+16*, RESET+17*, RESET+20, RESET+22 |
DATA1 | FILE2+3~, FILE2+9*, FILE2+24*, FILE2+25*, FILE2+26 |
>> DFN | RESET+7*, SCP+1*, SCP+4 |
ERR | GET+1~ |
>> FILE | GET+2, GET+4, GET+5, GET+8, G1+2, G1+13, G1+14, G1+17, G1+20 |
I | RESET+5~, RESET+9*, RESET+10, RESET+11, RESET+12, RESET+13, RESET+14, RESET+15, RESET+16, RESET+17 , RESET+18*, RESET+19, RESET+20 |
II | GET+1~, G1+1*, G1+2, G1+3, G1+4, G1+5, G1+6, G1+7, G1+8, G1+9 , G1+10, G1+11, G1+12*, G1+14, G1+18, G1+21, FILE+2~*, FILE+3, FILE+4, FILE+5 , FILE2+3~ |
JJ | GET+1~, G1+4*, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11, G1+12* , G1+14, G1+18, G1+21 |
JJJ | SET3+3*, SET3+4, SET3+5, SET3+6, SET3+7, SET3+8, SET3+9, SET3+10, SET3+11, SET3+12 , SET3+13, SET3+14! |
>> ORD | GET+4, GET+8, FILE2+6 |
ORXN | GET+1~, GET+2*, GET+4*, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10, G1+11 , G1+13, G1+14, G1+17, G1+18, G1+20, G1+21 |
PENDSC | GET+1~, GET+8*, G1+13, G1+17, G1+20 |
>> PSOANSQ( | G1+5*, G1+6*, G1+7*, G1+8*, G1+9*, G1+10*, G1+11*, G1+13*, G1+14*, G1+17* , G1+18*, G1+20*, G1+21*, FILE2+11, FILE2+12, FILE2+13, FILE2+14, FILE2+15, FILE2+16, FILE2+17 , FILE2+18, FILE2+24, FILE2+25, SHAD+2*, SHAD+3* |
>> PSOANSQ("SC" | G1+20*, G1+21*, FILE2+10, FILE2+24 |
>> PSOANSQ("SC>50" | G1+13*, G1+14*, G1+17*, G1+18*, FILE2+10, SCP+2* |
>> PSODA | RESET+2, RESET+3, RESET+6, RESET+7, RESET+18, RESET+19, RESET+20, RESET+22 |
>> PSODFN | SCP+1 |
>> PSOFDR | FILE2+6 |
>> PSOIBOLD | SET3+4, SET3+5, SET3+7, SET3+8, SET3+9, SET3+10, SET3+11, SET3+12, SET3+13 |
>> PSOIBQ | RESET+2, RESET+10, RESET+11, RESET+12, RESET+13, RESET+14, RESET+15, RESET+16, RESET+17 |
PSOIBQF | GET+1~, GET+2*, GET+4*, G1+3, G1+12 |
PSOICD | RESET+5~, RESET+6*, RESET+18, RESET+22 |
>> PSONEW("ICD" | G1+2* |
PSOOICD | SET3+3, SET3+4, SET3+5, SET3+7, SET3+8, SET3+9, SET3+10, SET3+11, SET3+12, SET3+13 , SET3+14! |
PSOPATST | GET+1~, GET+9*, G1+16, G1+19, FILE2+3~, FILE2+4*, FILE2+10, FILE2+23, SET3+1~*, SET3+2* , SET3+8 |
>> PSOPIBQ | SHAD+2 |
>> PSORENW("IRXN" | GET+2 |
>> PSORENW("OIRXN" | GET+2, GET+4 |
>> PSORX( | G1+5*, G1+6*, G1+7*, G1+8*, G1+9*, G1+10*, G1+11*, G1+13*, G1+14*, G1+17* , G1+18*, G1+20*, G1+21*, SET3+4*, SET3+5*, SET3+7*, SET3+8*, SET3+9*, SET3+10*, SET3+11* , SET3+12*, SET3+13* |
>> PSORX("ICD" | GET+6!, G1+2*, FILE2+19, FILE2+21, FILE2+27! |
>> PSORX("PATIEN | T STATUS" , SET3+1, SET3+2 |
>> PSOSCA | SCP+2*, SCP+4* |
>> PSOSCP | G1+13, G1+14, G1+16, G1+19, FILE2+10, FILE2+23, SCP+2*, SCP+3*, SET3+7, SET3+8 |
>> PSOSCP2 | FILE2+6 |
>> PSOX("ICD" | GET+6! |
>> PSOX("IRXN" | FILE+3, FILE+4, FILE+5, FILE2+4, FILE2+8, FILE2+11, FILE2+12, FILE2+13, FILE2+14, FILE2+15 , FILE2+16, FILE2+17, FILE2+18, FILE2+20, FILE2+21, FILE2+22, FILE2+24, FILE2+25, FILE2+26, SHAD+2 , SHAD+3 |
>> PSOX("OIRXN" | FILE+1, FILE+2, FILE+3 |
RXN | GET+1~, GET+2*, GET+4*, GET+9, G1+5, G1+6, G1+7, G1+8, G1+9, G1+10 , G1+11, G1+13, G1+14, G1+17, G1+18, G1+20, G1+21, FILE2+3~, SHAD+3 |
>> SRXN | GET+2*, GET+4*, GET+5, G1+1, G1+2, G1+4, G1+5, G1+6, G1+7, G1+8 , G1+9, G1+10, G1+11, G1+14, G1+18, G1+21 |
SUBF | GET+1~, GET+2*, GET+4*, G1+1, G1+2, G1+4, G1+5, G1+6, G1+7, G1+8 , G1+9, G1+10, G1+11, G1+14, G1+18, G1+21 |
SUBFLD | GET+1~, GET+2*, GET+4*, GET+5 |
TYPE | FILE2+3~, FILE2+9*, FILE2+11*, FILE2+12, FILE2+13, FILE2+14, FILE2+15, FILE2+16, FILE2+17, FILE2+18 |
U | FILE2+10, FILE2+12, FILE2+13, FILE2+14, FILE2+15, FILE2+16, FILE2+17, FILE2+18, SCP+2, SCP+3 , SHAD+2, SHAD+3 |
VAEL | SCP+5! |
VAEL(3 | SCP+2, SCP+3 |
XX | SHAD+1~, SHAD+2*, SHAD+3* |