Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OROCAPI

OROCAPI.m

Go to the documentation of this file.
  1. 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
  1. ;;
  1. DOC(DFN,OI) ;DANGEREOUS MEDS FOR PAT > 64 ORDER CHECK
  1. ;DFN=FILE2 IEN
  1. ;OI=FILE 101.43 IEN
  1. N RET,VAL,I,IN,MODE
  1. S MODE="ACCEPT"
  1. S IN=OI_"|PS|^^99NDF^^^99PSD"
  1. D EN^OCXOEPS(.RET,DFN,IN,MODE)
  1. S I=0 F S I=$O(RET(I)) Q:'I D
  1. .I $P(RET(I),U,2)=30 S VAL=RET(I)
  1. Q $G(VAL)
  1. GOC(DFN,MEDTXT) ;GLUCOPHAGE LAB RESULTS ORDER CHECK
  1. ;DFN=FILE 2 IEN
  1. ;MEDTXT=FILE 50 LOCAL DRUG TEXT
  1. N RET,IN,MODE,VAL,I
  1. S MODE="SELECT"
  1. S IN="|PS|^^99NDF^^"_MEDTXT_"^99PSD"
  1. D EN^OCXOEPS(.RET,DFN,IN,MODE)
  1. S I=0 F S I=$O(RET(I)) Q:'I D
  1. .I $P(RET(I),U,2)=28 S VAL=RET(I)
  1. Q $G(VAL)
  1. AOC(DFN,ORPROD) ;AMINOGLYCOSIDE ORDERED ORDER CHECK
  1. ;DFN=FILE 2 IEN
  1. ;ORPROD=FILE 50.68 IEN (VA PRODUCT)
  1. N VAL,RET,I,ORPS,IN,MODE
  1. S MODE="SESSION"
  1. S IN="|PS|."_ORPROD_"^^99NDF^^^99PSD"
  1. D EN^OCXOEPS(.RET,DFN,IN,MODE)
  1. S I=0 F S I=$O(RET(I)) Q:'I D
  1. .I $P(RET(I),U,2)=20 S VAL=RET(I)
  1. Q $G(VAL)
  1. ;