OROCAPI ; JMH - ORDER CHECK APIs;8/24/07 ;3/19/08 12:17
;;3.0;ORDER ENTRY/RESULTS REPORTING;**272**;Dec 17, 1997;Build 53
;;
DOC(DFN,OI) ;DANGEREOUS MEDS FOR PAT > 64 ORDER CHECK
;DFN=FILE2 IEN
;OI=FILE 101.43 IEN
N RET,VAL,I,IN,MODE
S MODE="ACCEPT"
S IN=OI_"|PS|^^99NDF^^^99PSD"
D EN^OCXOEPS(.RET,DFN,IN,MODE)
S I=0 F S I=$O(RET(I)) Q:'I D
.I $P(RET(I),U,2)=30 S VAL=RET(I)
Q $G(VAL)
GOC(DFN,MEDTXT) ;GLUCOPHAGE LAB RESULTS ORDER CHECK
;DFN=FILE 2 IEN
;MEDTXT=FILE 50 LOCAL DRUG TEXT
N RET,IN,MODE,VAL,I
S MODE="SELECT"
S IN="|PS|^^99NDF^^"_MEDTXT_"^99PSD"
D EN^OCXOEPS(.RET,DFN,IN,MODE)
S I=0 F S I=$O(RET(I)) Q:'I D
.I $P(RET(I),U,2)=28 S VAL=RET(I)
Q $G(VAL)
AOC(DFN,ORPROD) ;AMINOGLYCOSIDE ORDERED ORDER CHECK
;DFN=FILE 2 IEN
;ORPROD=FILE 50.68 IEN (VA PRODUCT)
N VAL,RET,I,ORPS,IN,MODE
S MODE="SESSION"
S IN="|PS|."_ORPROD_"^^99NDF^^^99PSD"
D EN^OCXOEPS(.RET,DFN,IN,MODE)
S I=0 F S I=$O(RET(I)) Q:'I D
.I $P(RET(I),U,2)=20 S VAL=RET(I)
Q $G(VAL)
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOROCAPI 1025 printed Oct 16, 2024@18:32:52 Page 2
OROCAPI ; JMH - ORDER CHECK APIs;8/24/07 ;3/19/08 12:17
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**272**;Dec 17, 1997;Build 53
+2 ;;
DOC(DFN,OI) ;DANGEREOUS MEDS FOR PAT > 64 ORDER CHECK
+1 ;DFN=FILE2 IEN
+2 ;OI=FILE 101.43 IEN
+3 NEW RET,VAL,I,IN,MODE
+4 SET MODE="ACCEPT"
+5 SET IN=OI_"|PS|^^99NDF^^^99PSD"
+6 DO EN^OCXOEPS(.RET,DFN,IN,MODE)
+7 SET I=0
FOR
SET I=$ORDER(RET(I))
if 'I
QUIT
Begin DoDot:1
+8 IF $PIECE(RET(I),U,2)=30
SET VAL=RET(I)
End DoDot:1
+9 QUIT $GET(VAL)
GOC(DFN,MEDTXT) ;GLUCOPHAGE LAB RESULTS ORDER CHECK
+1 ;DFN=FILE 2 IEN
+2 ;MEDTXT=FILE 50 LOCAL DRUG TEXT
+3 NEW RET,IN,MODE,VAL,I
+4 SET MODE="SELECT"
+5 SET IN="|PS|^^99NDF^^"_MEDTXT_"^99PSD"
+6 DO EN^OCXOEPS(.RET,DFN,IN,MODE)
+7 SET I=0
FOR
SET I=$ORDER(RET(I))
if 'I
QUIT
Begin DoDot:1
+8 IF $PIECE(RET(I),U,2)=28
SET VAL=RET(I)
End DoDot:1
+9 QUIT $GET(VAL)
AOC(DFN,ORPROD) ;AMINOGLYCOSIDE ORDERED ORDER CHECK
+1 ;DFN=FILE 2 IEN
+2 ;ORPROD=FILE 50.68 IEN (VA PRODUCT)
+3 NEW VAL,RET,I,ORPS,IN,MODE
+4 SET MODE="SESSION"
+5 SET IN="|PS|."_ORPROD_"^^99NDF^^^99PSD"
+6 DO EN^OCXOEPS(.RET,DFN,IN,MODE)
+7 SET I=0
FOR
SET I=$ORDER(RET(I))
if 'I
QUIT
Begin DoDot:1
+8 IF $PIECE(RET(I),U,2)=20
SET VAL=RET(I)
End DoDot:1
+9 QUIT $GET(VAL)
+10 ;
