©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESET | ;called from reset copay status PSOCPC
|
|
| FILE2 | ;file ICD's on existing node or build new nodes
|
|
| SHAD | ;
|
|
| G1 | ;get ICD, if no IBQ node get SC/EI's
|
|
| GET | ;must have FILE and PSORENW variables to pull default data for ICD and SC/EI for SC>50% Rx's from file 52
|
|
| FILE | ;
|
|
| SET3 | ;for when patient status is exempt or SC>50
|
|
| SCP | ;Called from multiple routines - DFN or PSODFN variable must be available to call this subroutine.
|
| 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* |