ORCDPS2 ;SLC/MKB-Pharmacy dialog utilities ;25-Mar-2013 09:41;DU
Source file <ORCDPS2.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | ($$DISPDRUG,NF,RESETID)^ORCDPS ADMIN^ORCDPS3 TXT^ORCHTAB SHOWSIG^ORCMED |
| Pharmacy Data Management | 3 | ALL^PSS51P2 DOSE^PSSORUTL SCH^PSSUTIL1 |
| Inpatient Medications | 1 | $$ENDCM^PSJORUTL |
| Kernel | 1 | $$UP^XLFSTR |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DOSE() | ; -- Dosage
|
|
| SCH() | ; -- [outpatient] expansion of schedule
|
|
| PTR(X) | ; -- Ptr to prompt OR GTX X
|
|
| EXDOSE | ; -- Exit Action
|
|
| CONJ() | ; -- Conjunction
|
|
| DUR() | ; -- Duration
|
|
| WORD(X) | ; -- Words for number X
|
|
| RTE() | ; -- Expansion of route
|
|
| CHDOSE | ; -- Kill dependent values if inst ORI of dose changes
|
|
| DOSETEXT | ; -- Reset dose text in ORDIALOG(INSTR) for backdoor orders
; [Called from ORMPS1 - uses ORCAT,PSOI,ORVP,DRUG,INSTR,DOSE] |
|
| EXD1 | ; -- Kill dangling conjunction, [re]build Sig, get Qty info
|
|
| DOSES | ; -- Available common doses
|
|
| CP1 | ||
| PIOUT | ; -- Store Pt instructions exit action
|
|
| PI | ; -- Include Pt Instructions w/Sig in Outpt order?
|
|
| COMPLEX() | ; -- Single or complex?
|
|
| CLEARWP | ; -- Clear INST of wp field PROMPT
|
|
| SIG | ; -- Create ORDIALOG(SIG) from Instructions PROMPT,ORDOSE,ORDRUG,ORCAT
; Return text in ^TMP("ORWORD",$J,SIG,INST) ; [also called from PSJ^ORCSEND1 to build child orders] |
|
| D1 | ; -- Entry from ORCMED,NF^ORCDPS to build list
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101.41 - [#101.41] | PTR+1 |
| ^ORD(101.43 - [#101.43] | EXDOSE+10 |
| ^TMP("ORWORD" | CHDOSE+11!, SIG+14!, SIG+15, PI+4, PI+5, PI+22*, PI+24*, PIOUT+3, PIOUT+5!, CLEARWP+1! |
| ^TMP($J | RTE+2!, RTE+6, RTE+8 |
| Name | Line Occurrences |
|---|---|
| $$COMPLEX | DOSES+5 |
| $$CONJ | SIG+11 |
| $$DOSE | SIG+11 |
| $$DUR | SIG+11 |
| $$PTR | COMPLEX+2, CHDOSE+9, CHDOSE+10, CHDOSE+11, CHDOSE+12, EXDOSE+6, EXDOSE+9, EXDOSE+11, EXD1+1, SIG+5 , SIG+6, DOSETEXT+13 |
| $$RTE | SIG+11 |
| $$SCH | SIG+11 |
| $$WORD | DOSE+4 |
| CLEARWP | PI+2 |
| CP1 | COMPLEX+5 |
| SIG | EXD1+2, DOSETEXT+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PI+5 |
| ^(1 | SIG+14* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | D1+1~, D1+2*, D1+11*, D1+18, SIG+4~, SIG+9*, SIG+12*, SIG+13, PI+1~, PI+20* , PI+23*, PI+24, PI+25, PIOUT+1~ |
| COMPLX | COMPLEX+1~, COMPLEX+2*, COMPLEX+3, COMPLEX+4, COMPLEX+5, COMPLEX+6 |
| CONJ | D1+1~, D1+2*, D1+8, DOSETEXT+3~, DOSETEXT+6*, DOSETEXT+11 |
| COST | D1+1~, D1+7*, D1+10 |
| DD | D1+1~, D1+4*, D1+13, D1+14, D1+16*, D1+17, CHDOSE+1~, CHDOSE+13*, CHDOSE+14, CHDOSE+15* , CHDOSE+16 |
| DIR | COMPLEX+1~, PI+1~, PIOUT+1~ |
| DIR("?" | CP1+1*, PIOUT+3* |
| DIR("A" | CP1*, PIOUT+2* |
| DIR("B" | CP1*, PIOUT+3* |
| DIR(0 | CP1*, PIOUT+2* |
| DIRUT | PI+1~ |
| DONE | CHDOSE+5!, CHDOSE+6! |
| DOSE | D1+1~, D1+7*, D1+8*, D1+10, D1+11, D1+12, D1+13, D1+14, D1+17, CHDOSE+1~ , CHDOSE+12*, CHDOSE+14, CHDOSE+15, SIG+4~, SIG+10*, DOSE+2, DOSETEXT+10 |
| DRUG | D1+1~, D1+4*, D1+8, D1+10, D1+14, D1+16*, D1+17, EXDOSE+1~, EXDOSE+2*, EXDOSE+8 , EXDOSE+9, EXD1+4, DOSETEXT+7 |
| DRUG0 | DOSETEXT+3~, DOSETEXT+7*, DOSETEXT+8, DOSETEXT+11 |
| DT | SIG+13, PI+24 |
| DTOUT | COMPLEX+1~, CP1+2, PI+1~, PIOUT+4 |
| DUOUT | COMPLEX+1~, PI+1~, PIOUT+4 |
| >> FIRST | COMPLEX+3, COMPLEX+6, DOSES+4 |
| I | D1+1~, D1+2*, D1+3*, D1+4, D1+14, D1+15, D1+16, D1+17, PI+1~, PI+3* , PI+5*, PI+8*, PI+21*, PI+22 |
| >> INST | PI+4, PI+5, PI+22, PI+24, PI+25, PIOUT+5, PIOUT+6, CLEARWP+1 |
| >> INSTR | DOSETEXT+9, DOSETEXT+10, DOSETEXT+11, DOSETEXT+13 |
| >> ISIMO | SIG+8, RTE+6, RTE+8, SCH+2 |
| J | D1+1~, D1+15*, D1+16, D1+17 |
| LAST | EXDOSE+1~, EXD1+1* |
| LDOSE | DOSETEXT+3~, DOSETEXT+10*, DOSETEXT+11 |
| MED | EXDOSE+8~, EXDOSE+10*, EXDOSE+11 |
| MISC | EXDOSE+1~, EXD1+5*, EXD1+6 |
| >> MULT | DOSES+5* |
| NAME | CHDOSE+1~, CHDOSE+9* |
| >> ORCAT | DOSES+2, EXDOSE+7, EXDOSE+11, EXDOSE+12, EXD1+3, SIG+8, DOSE+4, RTE+6, RTE+8, SCH+2 , DOSETEXT+4, PI+2 |
| ORCNJ | SIG+4~, SIG+6*, CONJ+1 |
| >> ORCOMPLX | COMPLEX+5, COMPLEX+6, DOSES+5* |
| ORDD | SIG+4~ |
| >> ORDIALOG( | COMPLEX+2, COMPLEX+3, DOSES+2*, DOSES+3*, DOSES+4, DOSES+6, D1+11*, D1+12*, D1+13*, D1+18* , CHDOSE+1, CHDOSE+4*, CHDOSE+6, CHDOSE+9!, CHDOSE+10!, CHDOSE+12, CHDOSE+13, CHDOSE+14*, CHDOSE+15, EXDOSE+1 , EXDOSE+6*, EXDOSE+9*, EXDOSE+11*, EXD1+1!, SIG+9, SIG+10, SIG+14*, SIG+15*, DOSE+1, RTE+1 , SCH+1, DUR+1, CONJ+1, DOSETEXT+7, DOSETEXT+9, DOSETEXT+10, DOSETEXT+11*, DOSETEXT+13, PI+25*, PIOUT+5! , PIOUT+6*, CLEARWP+1! |
| ORDOSE | DOSES+6, DOSETEXT+3~, DOSETEXT+5 |
| ORDOSE( | D1+3, D1+4, D1+14, D1+15, D1+16, D1+17 |
| ORDOSE("DD" | D1+4, D1+14*, D1+16, D1+17*, CHDOSE+14, CHDOSE+16, EXDOSE+2, DOSETEXT+7 |
| ORDOSE("MISC" | D1+2, SIG+7, DOSETEXT+6 |
| ORDOSE("PI" | PI+4!, PI+5*, PI+8 |
| ORDOSE(1 | EXDOSE+9, EXDOSE+11, DOSETEXT+9 |
| ORDRUG | CHDOSE+10!, EXDOSE+2*, EXDOSE+3, EXDOSE+6, EXDOSE+12, EXD1+3, EXD1+5, DOSE+2, DOSETEXT+3~, DOSETEXT+7* |
| ORDUR | SIG+4~, SIG+5*, DUR+1 |
| >> OREDIT | COMPLEX+5, PI+4 |
| >> ORENEW | COMPLEX+4, PI+3 |
| >> ORESET | CHDOSE+7 |
| >> OREWRITE | COMPLEX+4, PI+4 |
| ORI | CHDOSE+1, CHDOSE+4, CHDOSE+9, CHDOSE+12, CHDOSE+14, CHDOSE+15, SIG+4~, SIG+9*, SIG+10, DOSE+1 , RTE+1, SCH+1, DUR+1, CONJ+1, DOSETEXT+3~, DOSETEXT+9*, DOSETEXT+10, DOSETEXT+11 |
| ORID | SIG+4~, SIG+6*, DOSE+1 |
| >> ORIV | DOSES+2, DOSES+3 |
| ORMAX | PI+1~, PI+3* |
| ORMISC | SIG+4~, SIG+7*, SIG+8 |
| >> OROI | EXDOSE+10 |
| ORPREP | SIG+4~, SIG+7*, RTE+8 |
| ORQTY | CHDOSE+10!, EXD1+5* |
| ORQTYUNT | CHDOSE+10!, EXD1+4* |
| >> ORQUIT | DOSES+5*, EXDOSE+3*, PIOUT+4* |
| ORS | SIG+4~, SIG+6*, SIG+14, SIG+15 |
| ORSCH | SIG+4~, SIG+5*, SCH+1 |
| ORSIG | SIG+4~, SIG+14 |
| ORSIG( | SIG+12* |
| ORSIG(0 | SIG+13* |
| ORT | SIG+4~, SIG+5*, RTE+1 |
| ORTX | PI+1~ |
| ORTX( | PI+21, PI+22 |
| ORTYPE | COMPLEX+3, EXD1+2, DOSETEXT+3~, DOSETEXT+4*, DOSETEXT+5 |
| >> ORVP | DOSETEXT+5 |
| ORX | SIG+4~, SIG+8*, SIG+11*, SIG+12* |
| >> ORXFER | COMPLEX+4, DOSES+4 |
| P | CHDOSE+1~, CHDOSE+9* |
| PROMPT | COMPLEX+2, COMPLEX+3, DOSES+2, DOSES+3, DOSES+4, DOSES+6, D1+11, D1+12, D1+13, D1+18 , CHDOSE+1, CHDOSE+4, CHDOSE+6, CHDOSE+13, EXDOSE+1, EXD1+1, SIG+9, SIG+10, SIG+14, DOSETEXT+3~ , DOSETEXT+13*, PI+4, PI+5, PI+22, PI+24, PI+25, PIOUT+3, PIOUT+5, PIOUT+6, CLEARWP+1 |
| PROMPTS | CHDOSE+1~, CHDOSE+8*, CHDOSE+9 |
| >> PSOI | DOSETEXT+5 |
| QUIT | EXDOSE+1~, EXDOSE+3 |
| >> S | CONJ+2* |
| STR | EXDOSE+8~*, EXDOSE+9, EXDOSE+11 |
| STRG | DOSETEXT+3~, DOSETEXT+8*, DOSETEXT+11 |
| TEXT | D1+1~, D1+10*, D1+11, D1+12 |
| TXT | PIOUT+1~ |
| U | D1+2, D1+4, D1+7, D1+8, D1+10, D1+11, D1+14, D1+16, D1+17, CHDOSE+9 , CHDOSE+16, EXDOSE+8, EXDOSE+9, EXDOSE+10, EXD1+4, EXD1+5, EXD1+6, SIG+7, SIG+8, SIG+13 , DOSETEXT+6, DOSETEXT+8, DOSETEXT+11, PI+24 |
| UD | D1+1~, D1+7* |
| X | COMPLEX+1~, D1+1~, D1+4*, D1+7, D1+8, CHDOSE+1~*, CHDOSE+4, CHDOSE+5, CHDOSE+6, CHDOSE+7 , CHDOSE+12, CHDOSE+13, CHDOSE+14, PTR~, PTR+1, WORD~, WORD+1, RTE+1~*, RTE+3, RTE+6 , RTE+8, SCH+1~*, SCH+2, SCH+3, DUR+1~*, DUR+2, CONJ+1~*, CONJ+2*, CONJ+3, DOSETEXT+3~ , DOSETEXT+10*, DOSETEXT+11, PI+1~, PI+8* |
| X0 | DOSE+1~*, DOSE+2, DOSE+3, DOSE+4, RTE+1~ |
| X1 | WORD+1~*, WORD+2 |
| X2 | WORD+1~*, WORD+3 |
| Y | COMPLEX+1~, COMPLEX+6*, CP1+2*, CP1+3, DOSE+1~, DOSE+2*, DOSE+3*, DOSE+4*, DOSE+5, WORD+1~ , WORD+2*, WORD+3*, WORD+4, RTE+1~, RTE+5*, RTE+6*, RTE+8*, RTE+9, SCH+1~, SCH+3* , SCH+4, DUR+1~*, DUR+2*, DUR+3, CONJ+1~, CONJ+3*, CONJ+4, PI+1~, PIOUT+1~, PIOUT+5 |