©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
PSORENW1 ;BIR/DSD - Renew Main Driver Continuation ;06-Dec-2012 20:08;PLS
Source file <PSORENW1.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 4 | $$DT^PSOMLLDT ICD^PSONEWF DRG^PSOORDRG (SCP,SET3)^PSORN52D |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IHS | ; EP
|
|
| END | ||
| OERR | ;renewal finish from oe/rr
|
|
| KLIB | ;Kill renewal IB array
|
|
| STOP | ||
| ICD | ||
| START | ;
|
|
| ICD2 | ;
|
|
| FDR | ||
| SET2 | ;for when patient status is exempt or SC>50
|
|
| SET3 | ;for when patient status is exempt or SC>50
|
|
| SETIB | ;Set defaults on Renewals with Copay information
|
|
| SETIBP | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.41 - [#52.41] | SETIBP+1, SETIBP+4, SETIBP+13, ICD2+1, ICD2+3, ICD2+4 |
| ^PSRX - [#52] | START+1, START+10, START+15, START+16, START+19, START+20, START+25, FDR+1, OERR+1, OERR+9 , OERR+10, OERR+15, OERR+17, OERR+22, SETIB+7, SETIB+10, SETIB+11, SETIB+12, SETIB+13, SETIB+14 , SETIB+15, SETIB+16, SET2+1, ICD, ICD+2, ICD+3, IHS+4 |
| ^VA(200 - [#200] | START+5, FDR+3, FDR+5, OERR+4 |
| Name | Line Occurrences |
|---|---|
| FDR | START+18, START+19 |
| IHS | START+6, OERR+6 |
| SET3 | SET2+1, SETIBP+13 |
| SETIB | START+3 |
| SETIBP | SETIB+5 |
| Name | Field # of Occurrence |
|---|---|
| ^("IBQ" | SETIB+7, SETIB+10, SETIB+11, SETIB+12, SETIB+13, SETIB+14, SETIB+15, SETIB+16 |
| ^("PS" | FDR+5 |
| ^("SIG" | START+1, OERR+9 |
| ^("STA" | START+1, OERR+1 |
| ^("TN" | START+1, OERR+1 |
| ^(0 | SETIBP+1 |
| ^(2 | START+1, OERR+1 |
| ^(3 | START+1, OERR+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | STOP!, STOP+8! |
| >> D | START+16* |
| >> DAYS | STOP*, STOP+3 |
| >> DEA | FDR+8*, STOP+2* |
| >> DEA("CS" | STOP+1*, STOP+2*, STOP+6 |
| DIC | STOP+1! |
| DIR | STOP+1! |
| DOSE | START+20*, START+21, START+22, START+23, START+24, START+26!, OERR+17*, OERR+18, OERR+19, OERR+20 , OERR+21, OERR+23! |
| >> DREN | FDR+7* |
| DT | STOP+3 |
| FLD | ICD+1~, ICD+3*, ICD2+2~, ICD2+6* |
| >> I | START+20*, START+25, FDR+1*, OERR+10*, OERR+17*, OERR+22 |
| ICD | ICD+1~, ICD+3*, ICD2+2~, ICD2+4*, ICD2+5, ICD2+6 |
| II | ICD+1~, ICD+2*, ICD+3, ICD2+2~, ICD2+3*, ICD2+4, ICD2+5 |
| JJ | ICD+1~, ICD2+2~, ICD2+6* |
| JJJ | SETIB+2~ |
| >> OR0 | START+8, FDR+2, FDR+3, FDR+13*, OERR+2, OERR+3, OERR+5, OERR+7, OERR+8, OERR+14 |
| >> ORD | SETIB+5, SETIBP+1, SETIBP+4, SETIBP+13, ICD2+1, ICD2+2, ICD2+3, ICD2+4 |
| POERR | FDR+7*! |
| PSDY | FDR+6*, FDR+9, FDR+12, FDR+14! |
| PSEXDT | STOP!, STOP+7* |
| >> PSOANSQ("SC>50" | SETIB+3!* |
| >> PSODFN | START+12* |
| >> PSODIR("CS" | FDR+7*, FDR+8*, FDR+9, FDR+14! |
| >> PSODRUG("DEA" | FDR+8, STOP+2 |
| >> PSOFDR | START+8, FDR, SETIB+5 |
| PSOIBOLD | START+2*, SETIB+4, SETIB+7, SETIB+8, SETIB+10, SETIB+11, SETIB+12, SETIB+13, SETIB+14, SETIB+15 , SETIB+16, SET2+1, ICD+1, SETIBP+1, SETIBP+2, SETIBP+5, SETIBP+6, SETIBP+7, SETIBP+8, SETIBP+9 , SETIBP+10, SETIBP+11, ICD2+5, KLIB+1, KLIB+2, KLIB+3! |
| PSOIBQFN | SETIBP+4~*, SETIBP+5, SETIBP+6, SETIBP+7, SETIBP+8, SETIBP+9, SETIBP+10, SETIBP+11, ICD2+7! |
| >> PSON52("QFLG" | STOP* |
| PSOOICD | SETIB+2~, SET2+1*, SETIBP+13* |
| >> PSORENW("CLINIC" | START+7*, START+8*, OERR+7* |
| >> PSORENW("CM" | IHS+4* |
| >> PSORENW("CONJUNCTION" | START+23*, OERR+20* |
| >> PSORENW("COPIES" | START+7* |
| >> PSORENW("COSI | GNING PROVIDER" , START+11*, FDR+4!, FDR+5*, OERR+11* |
| >> PSORENW("DAYS | SUPPLY" , FDR+6*, STOP |
| >> PSORENW("DOSE | ORDERED" , START+22*, OERR+19* |
| >> PSORENW("DOSE" | START+21*, OERR+18* |
| >> PSORENW("DRUG | IEN" , START+14*, OERR+14* |
| >> PSORENW("DURATION" | START+23*, OERR+20* |
| >> PSORENW("ENT" | START+18, START+19*, START+21*, START+22, START+23, START+24, START+25, OERR+16, OERR+18*, OERR+19 , OERR+20, OERR+21, OERR+22 |
| >> PSORENW("FILL | DATE" , STOP+7 |
| >> PSORENW("INS" | START+15*, START+17, OERR+15* |
| >> PSORENW("ISSU | E DATE" , STOP+3 |
| >> PSORENW("NOUN" | START+24*, OERR+21* |
| >> PSORENW("ODOSE" | START+25*, FDR+1*, OERR+22* |
| >> PSORENW("OIRXN" | START+1, START+2, START+10, START+15, START+16, START+19, START+20, START+25, FDR+1, OERR+1 , OERR+9, OERR+10, OERR+15, OERR+17, OERR+22, ICD, ICD+2, ICD+3, IHS+4 |
| >> PSORENW("ORX | #" , START+13*, OERR+13* |
| >> PSORENW("PATI | ENT STATUS" , IHS+5* |
| >> PSORENW("PROV | IDER NAME" , FDR+3* |
| >> PSORENW("PROVIDER" | START+4*, START+5, FDR+3*, FDR+5, OERR+3*, OERR+4 |
| >> PSORENW("PSODFN" | START+12*, OERR+12* |
| >> PSORENW("QTY" | IHS+1* |
| >> PSORENW("REMARKS" | START+9*, OERR+8* |
| >> PSORENW("ROUTE" | START+22*, OERR+19* |
| >> PSORENW("RX0" | START+1*, START+4, START+7, START+9, START+12, START+13, START+14, FDR+2*, FDR+6, FDR+7 , FDR+13*, STOP, STOP+3, OERR+1*, OERR+2*, OERR+5*, OERR+8, OERR+12, OERR+13, OERR+14* , IHS+1, IHS+5 |
| >> PSORENW("RX2" | START+1*, OERR+1* |
| >> PSORENW("RX3" | START+1*, START+11, OERR+1*, OERR+11 |
| >> PSORENW("SCHEDULE" | START+23*, OERR+20* |
| >> PSORENW("SIG" | START+10*, START+16*, START+17*, OERR+9* |
| >> PSORENW("STA" | START+1*, OERR+1* |
| >> PSORENW("TN" | START+1*, OERR+1* |
| >> PSORENW("UNITS" | START+22*, OERR+19* |
| >> PSORENW("VERB" | START+24*, OERR+21* |
| >> PSORX( | SETIB+7*, SETIB+8!, SETIB+10*, SETIB+11*, SETIB+12*, SETIB+13*, SETIB+14*, SETIB+15*, SETIB+16*, SETIBP+1* , SETIBP+2!, SETIBP+5*, SETIBP+6*, SETIBP+7*, SETIBP+8*, SETIBP+9*, SETIBP+10*, SETIBP+11*, ICD2+5*, KLIB+2! |
| >> PSORX("PROVID | ER NAME" , START+5*, FDR+3*, OERR+4* |
| PSOSCA | SETIB+3! |
| PSOSCP | SETIB+3!, ICD2+5 |
| RFMX | FDR+9*, FDR+12*, FDR+13, FDR+14! |
| RXN | ICD+1~*, ICD2+2~* |
| >> SIG( | OERR+10* |
| >> SIGOK | START+1*, OERR+9* |
| U | ICD+3, ICD2+6 |
| X | STOP!, STOP+7, STOP+8! |
| X1 | STOP+3*, STOP+8! |
| X2 | STOP+3*, STOP+6*, STOP+8! |