PSJNEWOC ;BIR/SAB - STORES BACKDOOR ORDER CHECKS IN FILE #100.05 ;11/08/2012
Source file <PSJNEWOC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACT | ;
|
|
| ACT3 | ;
|
|
| ACT2 | ;
|
|
| VF1(PSGORD) | ;
|
|
| VF2 | ;verify within same session
|
|
| DAOC | ;allergy
|
|
| SET | ;DEFINED 100.05
|
|
| BEGIN | ;
|
|
| SET2 | ;
; #50 - DISPENSE DRUGS^100.06PA^^5;0 |
|
| GRP1 | ;
; #60 - GROUP ONE PHARMACY ORDERS^100.07VA^^6;0 ; OP PENDING ORDERS - IEN;PS(52.41, ; IP RX - IEN;PS(53.1, ; OP RX - IEN;PSRX( |
|
| GRP2 | ;
|
|
| CLINEFF | ;clinical effects
|
|
| CLINEFF1 | ;
|
|
| IV | ;IV additive and solutions
|
|
| ADDSOL | ;set interacting Additives and solutions for IV's
|
|
| GETADD | ;interacting Additives for IV's
|
|
| GETSOLS | ;interacting solutions for IV's
|
|
| SET3 | ;
; set the variables needed for all order checks |
|
| CPRS | ||
| CPRSA | ||
| NOSYS | ;
|
|
| EXEC | ;order chk exeception
|
|
| ERROR | ;order drug chk errors
|
|
| SETOC(PSJORDNM) | ;SET ORDER CHECKS IN TO FILE 100.05
|
|
| DAOC2 | ;I +$G(PSGORD) S ^TMP("PSODAOC",$J,"IP IEN")=PSGORD ;set up which IEN will be used to store order checks
|
| FileNo | Call Tags |
|---|---|
| ^ORD(100.05 - [#100.05] | Classic Fileman Calls |
| ^PS(53.1 - [#53.1] | GET1^DIQ |
| 55.01 | GET1^DIQ |
| 55.06 | GET1^DIQ |
