©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
PSSJORDF ;BIR/MV-RETURN MED ROUTES(MR) AND INSTRUCTIONS(INS) ;06/26/98
Source file <PSSJORDF.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Data Management | 2 | EN^PSSGSGUI EN^PSSOUTSC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REMDUP | ; Remove duplicate entries
|
|
| DF | ;* Loop thru DF node to find all available med routes, nouns, and instructions.
|
|
| START1(PSJORD,PSJQOF) | ;Entry point for IV dialog PSS*1*94
; This is the new entry point for the IV Dialog box from CPRS GUI 27. PSJORD will be an array ; sent by CPRS that contains all the IENS for all orderable items that are part of the order. The zero node of the array ; will contain the total number of orderable items in the order. ; ; PSJQOF is the quick order flag. 0=not a quick order 1=quick order ; ; If there is only one orderable item, any default defined in the Pharmacy Orderable Item file (50.7) will be ; marked with a D at the end of the data string. ; ; If there is more than one orderable item in the order, no default will be sent, and a union (the overlapping) ; of the med routes will be returned. For example if Dextrose can be given IV or IM, and the Ampicillin is only ; given IM, IM is the only med route that will be returned because it is the only overlapping med route between ; the two orderable items. If there is no overlapping med route to be returned, then a NULL will be returned to CPRS. ; ; If the quick order flag PSJQOF is set to 1, then CPRS is expecting the overlapping med routes for the orderable items ; as well as the entire list of med routes that are flagged for IV's. ; |
|
| OVERLAP | ; Only maintains any overlapping med routes between orderable items in order
|
|
| NOD | ||
| START(PSJORD,PSJOPAC) | ;
|
|
| SCPASS | ;
|
|
| MEDRT(PSJORD) | ;All Med Routes for dosage form.
|
|
| ALLMED(MCT) | ;Return all med routes with IV flag set to 1
|
|
| MEDROUTE | ;* Return all med routes in the med routes file.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.606 - [#50.606] | SCPASS+1, DF+3, DF+9, DF+10, DF+15, MEDRT+5, MEDRT+6 |
| ^PS(50.7 - [#50.7] | START+3, START+4, DF+8, NOD+1, MEDRT+3, MEDRT+4, MEDRT+7 |
| ^PS(51.2 - [#51.2] | DF+8, DF+11, MEDROUTE+2, NOD+1, MEDRT+4, MEDRT+8, ALLMED+4, ALLMED+5, OVERLAP+14 |
| ^PS(59.7 - [#59.7] | DF+8 |
| ^TMP("PSJMR" | SCPASS+1, SCPASS+2!, DF+8*, DF+10, DF+13*, MEDROUTE+1!, MEDROUTE+2*, NOD!, NOD+1*, START1+19! , START1+23, START1+24, START1+28!, START1+33!, START1+36, START1+40!, MEDRT+4*, MEDRT+10*, ALLMED+8* |
| ^TMP("PSJNOUN" | SCPASS+2!, DF+15* |
| ^TMP("PSJSCH" | START+5*, START+6* |
| Name | Line Occurrences |
|---|---|
| ALLMED | START1+23, START1+35 |
| DF | SCPASS+3 |
| MEDROUTE | START+2, SCPASS+1 |
| MEDRT | START1+22, START1+32 |
| NOD | SCPASS+1 |
| OVERLAP | START1+34 |
| REMDUP | START1+25, START1+37 |
| SCPASS | START+5 |
| Name | Field # of Occurrence |
|---|---|
| ^("MISC" | DF+15 |
| ^(0 | DF+8, NOD+1, MEDRT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| INS | START+1~, DF+1~, DF+2* |
| MCT | START+1~, DF+2*, DF+8*, DF+13*, MEDROUTE+1*, MEDROUTE+2*, START1+23*, START1+35*, MEDRT+1~, MEDRT+2* , MEDRT+4*, MEDRT+10*, ALLMED~, ALLMED+2*, ALLMED+8* |
| MR | START+1~, DF+1~, DF+2*, DF+8*, DF+9*, DF+10, MEDROUTE+1*, MEDROUTE+2*, NOD+1*, MEDRT+1~ , MEDRT+2*, MEDRT+4*, MEDRT+5*, MEDRT+6, ALLMED+1~, ALLMED+3*, ALLMED+4*, ALLMED+5, ALLMED+8, OVERLAP+1~ , OVERLAP+3*, OVERLAP+5*, OVERLAP+6, OVERLAP+8*, OVERLAP+9*, OVERLAP+10, OVERLAP+12*, OVERLAP+13*, OVERLAP+14, OVERLAP+15 , REMDUP+1~, REMDUP+2*, REMDUP+3*, REMDUP+4, REMDUP+5, REMDUP+6, REMDUP+7, REMDUP+8, REMDUP+9*, REMDUP+10* , REMDUP+11 |
| MRNODE | START+1~, DF+11*, DF+12, DF+13, MEDROUTE+2*, START1+40!, MEDRT+8*, MEDRT+9, MEDRT+10, ALLMED+1~ , ALLMED+3*, ALLMED+5*, ALLMED+6, ALLMED+7, ALLMED+8, OVERLAP+1~, OVERLAP+3*, OVERLAP+6*, OVERLAP+7, OVERLAP+12* , OVERLAP+14*, OVERLAP+15, REMDUP+1~, REMDUP+2*, REMDUP+4*, REMDUP+5, REMDUP+6 |
| MRNODE1 | START1+40! |
| MRTEMP | START1+40!, OVERLAP+2!, OVERLAP+11, OVERLAP+16!, REMDUP+12, REMDUP+13! |
| MRTEMP( | OVERLAP+7*, OVERLAP+9, OVERLAP+10!, OVERLAP+13, REMDUP+5, REMDUP+6*, REMDUP+7*, REMDUP+8*, REMDUP+10, REMDUP+11! |
| MRTEMP2 | START1+40!, OVERLAP+2!, OVERLAP+17 |
| MRTEMP2( | OVERLAP+15* |
| MRTEMP2("A" | START1+35 |
| PSJDFNO | START+1~, START+3*, SCPASS+1, DF+3, DF+9, DF+10, DF+15, MEDRT+1~, MEDRT+2*, MEDRT+3* , MEDRT+5, MEDRT+6 |
| PSJOISC | START+1~, START+4*, START+5, START+6 |
| PSJOPAC | START~, START+5, START1+20* |
| PSJORD | START~, START+2, START+3, START+4, DF+8, NOD+1, START1~, START1+21*, START1+22, START1+26! , START1+27*, START1+31*, START1+32, START1+38!, START1+39*, MEDRT~, MEDRT+3, MEDRT+4, MEDRT+7 |
| PSJORD( | START1+30, START1+31 |
| PSJORD(0 | START1+20, OVERLAP+10, REMDUP+12 |
| PSJORD(1 | START1+21 |
| PSJORD1 | START1+19!, START1+24*, START1+27, START1+28!, START1+36*, START1+39, START1+40!, OVERLAP+11!*, OVERLAP+16!, OVERLAP+17* , REMDUP+12* |
| PSJORD1( | START1+33*, OVERLAP+4, OVERLAP+5, OVERLAP+6, REMDUP+3, REMDUP+4, REMDUP+5!, REMDUP+6, REMDUP+7, REMDUP+8 |
| PSJQOF | START1~, START1+18*, START1+23, START1+35 |
| PSSCNTR1 | START1+40!, OVERLAP+1~, OVERLAP+12*, OVERLAP+15* |
| U | START+3, DF+3, DF+8, DF+13, DF+15, MEDROUTE+2, NOD+1, MEDRT+3, MEDRT+4, MEDRT+10 , ALLMED+6, ALLMED+7, ALLMED+8, OVERLAP+15 |
| VERB | DF+1~, DF+3* |
| X | START+1~, DF+1~, DF+2*, DF+10*, DF+11, DF+13, DF+14*, DF+15*, START1+29*, START1+30* , START1+31, START1+33, MEDRT+1~, MEDRT+2*, MEDRT+6*, MEDRT+7, MEDRT+8, MEDRT+10, OVERLAP+1~, OVERLAP+3* , OVERLAP+4*, OVERLAP+5, OVERLAP+6 |
| Z | START+1~, DF+15* |