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

OCXOZ09.m

Go to the documentation of this file.
  1. OCXOZ09 ;SLC/RJS,CLA - Order Check Scan ;JAN 28,2014 at 03:37
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. ; ***************************************************************
  1. ; ** Warning: This routine is automatically generated by the **
  1. ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
  1. ; ** will be lost the next time the rule compiler executes. **
  1. ; ***************************************************************
  1. ;
  1. Q
  1. ;
  1. CHK188 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK58+19^OCXOZ05.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK188 Variables
  1. ; OCXDF(2) ----> Data Field: FILLER (FREE TEXT)
  1. ; OCXDF(40) ---> Data Field: ORDER MODE (FREE TEXT)
  1. ; OCXDF(47) ---> Data Field: OI LOCAL TEXT (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; CLIST( -----------> STRING CONTAINS ONE OF A LIST OF VALUES
  1. ; EQTERM( ----------> EQUALS TERM OPERATOR
  1. ;
  1. I $$EQTERM(OCXDF(47),"ANGIOGRAM (PERIPHERAL)") S OCXDF(40)=$G(OCXPSM) I $L(OCXDF(40)),(OCXDF(40)="SESSION") D CHK192
  1. I $$CLIST(OCXDF(47),"GLUCOPHAGE,METFORMIN") S OCXDF(40)=$G(OCXPSM) I $L(OCXDF(40)),(OCXDF(40)="SELECT") S OCXDF(2)=$P($G(OCXPSD),"|",2) I $L(OCXDF(2)) D CHK280^OCXOZ0B
  1. Q
  1. ;
  1. CHK192 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK188+14.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK192 Variables
  1. ; OCXDF(68) ---> Data Field: MISSING ANGIOGRAM, CATH PERIF LAB TESTS (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; FILE(DFN,65, -----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: SESSION ORDER FOR ANGIOGRAM)
  1. ; MTSTF( -----------> MISSING TESTS DURING SESSION
  1. ;
  1. S OCXDF(68)=$$MTSTF("PROTHROMBIN TIME,PARTIAL THROMBOPLASTIN TIME") I $L(OCXDF(68)),($L(OCXDF(68))>0) S OCXOERR=$$FILE(DFN,65,"68") Q:OCXOERR
  1. Q
  1. ;
  1. CHK196 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK163+13^OCXOZ08.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK196 Variables
  1. ; OCXDF(2) ----> Data Field: FILLER (FREE TEXT)
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(67) ---> Data Field: CONTRAST MEDIA CODE (FREE TEXT)
  1. ; OCXDF(73) ---> Data Field: ORDERABLE ITEM IEN (NUMERIC)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; CLIST( -----------> STRING CONTAINS ONE OF A LIST OF VALUES
  1. ;
  1. S OCXDF(2)=$P($G(OCXPSD),"|",2) I $L(OCXDF(2)) D CHK198
  1. S OCXDF(73)=$P($G(OCXPSD),"|",1) I $L(OCXDF(73)) S OCXDF(67)=$$CM^ORQQRA(OCXDF(73)) I $L(OCXDF(67)),$$CLIST(OCXDF(67),"M,I,N") S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) D CHK458^OCXOZ0E
  1. S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) D CHK489^OCXOZ0F
  1. Q
  1. ;
  1. CHK198 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK196+14.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK198 Variables
  1. ; OCXDF(2) ----> Data Field: FILLER (FREE TEXT)
  1. ;
  1. I (OCXDF(2)="RA") D CHK199
  1. I ($E(OCXDF(2),1,2)="PS") D CHK360^OCXOZ0C
  1. Q
  1. ;
  1. CHK199 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK198+8.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK199 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(73) ---> Data Field: ORDERABLE ITEM IEN (NUMERIC)
  1. ;
  1. S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) D CHK201
  1. S OCXDF(73)=$P($G(OCXPSD),"|",1) I $L(OCXDF(73)) D CHK236^OCXOZ0A
  1. Q
  1. ;
  1. CHK201 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK199+9.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK201 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(65) ---> Data Field: CONTRAST MEDIA ALLERGY FLAG (BOOLEAN)
  1. ; OCXDF(67) ---> Data Field: CONTRAST MEDIA CODE (FREE TEXT)
  1. ; OCXDF(69) ---> Data Field: RECENT BARIUM STUDY FLAG (BOOLEAN)
  1. ; OCXDF(73) ---> Data Field: ORDERABLE ITEM IEN (NUMERIC)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; RECBAR( ----------> RECENT BARIUM STUDY
  1. ;
  1. S OCXDF(65)=$$ORCHK^GMRAOR(OCXDF(37),"CM","") I $L(OCXDF(65)),(OCXDF(65)) S OCXDF(73)=$P($G(OCXPSD),"|",1) I $L(OCXDF(73)) S OCXDF(67)=$$CM^ORQQRA(OCXDF(73)) D CHK207
  1. S OCXDF(69)=$P($$RECBAR(OCXDF(37),48),"^",1) I $L(OCXDF(69)),(OCXDF(69)) S OCXDF(73)=$P($G(OCXPSD),"|",1) I $L(OCXDF(73)) S OCXDF(67)=$$CM^ORQQRA(OCXDF(73)) D CHK217
  1. Q
  1. ;
  1. CHK207 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK201+15.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK207 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(66) ---> Data Field: CONTRAST MEDIA CODE TRANSLATION (FREE TEXT)
  1. ; OCXDF(67) ---> Data Field: CONTRAST MEDIA CODE (FREE TEXT)
  1. ; OCXDF(160) --> Data Field: ALLERGY CONTRAST MEDIA LOCATION (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; CLIST( -----------> STRING CONTAINS ONE OF A LIST OF VALUES
  1. ; CONTRANS( --------> CONTRAST MEDIA CODE TRANSLATION
  1. ;
  1. I $L(OCXDF(67)),$$CLIST(OCXDF(67),"M,I,N,L,C,G,B") S OCXDF(66)=$$CONTRANS(OCXDF(67)),OCXDF(160)=$P($$ORCHK^GMRAOR(OCXDF(37),"CM","",1),"^",2) D CHK211
  1. Q
  1. ;
  1. CHK211 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK207+15.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; FILE(DFN,66, -----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: CONTRAST MEDIA ALLERGY)
  1. ;
  1. S OCXOERR=$$FILE(DFN,66,"66,160") Q:OCXOERR
  1. Q
  1. ;
  1. CHK217 ; Look through the current environment for valid Event/Elements for this patient.
  1. ; Called from CHK201+16.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local CHK217 Variables
  1. ; OCXDF(37) ---> Data Field: PATIENT IEN (NUMERIC)
  1. ; OCXDF(67) ---> Data Field: CONTRAST MEDIA CODE (FREE TEXT)
  1. ; OCXDF(70) ---> Data Field: RECENT BARIUM STUDY TEXT (FREE TEXT)
  1. ; OCXDF(121) --> Data Field: RECENT BARIUM STUDY ORDER STATUS (FREE TEXT)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; FILE(DFN,67, -----> FILE DATA IN PATIENT ACTIVE DATA FILE (Event/Element: RECENT BARIUM STUDY ORDERED)
  1. ; RECBAR( ----------> RECENT BARIUM STUDY
  1. ; RECBARST( --------> RECENT BARIUM ORDER STATUS
  1. ;
  1. I $L(OCXDF(67)),(OCXDF(67)["B") S OCXDF(70)=$P($$RECBAR(OCXDF(37),48),"^",3),OCXDF(121)=$P($$RECBARST(OCXDF(37),48),"^",2),OCXOERR=$$FILE(DFN,67,"70,121") Q:OCXOERR
  1. Q
  1. ;
  1. CLIST(DATA,LIST) ; DOES THE DATA FIELD CONTAIN AN ELEMENT IN THE LIST
  1. ;
  1. N PC F PC=1:1:$L(LIST,","),0 I PC,$L($P(LIST,",",PC)),(DATA[$P(LIST,",",PC)) Q
  1. Q ''PC
  1. ;
  1. CONTRANS(OCXC) ; Compiler Function: CONTRAST MEDIA CODE TRANSLATION
  1. ;
  1. N OCXX
  1. Q:'$L($G(OCXC)) "" S OCXX=$S((OCXC["B"):"Barium",1:"")
  1. I (OCXC["G") S:$L(OCXX) OCXX=OCXX_" and/or " S OCXX=OCXX_"Gastrografin"
  1. I (OCXC["I") S:$L(OCXX) OCXX=OCXX_" and/or " S OCXX=OCXX_"Ionic Iodinated"
  1. I (OCXC["N") S:$L(OCXX) OCXX=OCXX_" and/or " S OCXX=OCXX_"Non-ionic Iodinated"
  1. I (OCXC["L") S:$L(OCXX) OCXX=OCXX_" and/or " S OCXX=OCXX_"Gadolinium"
  1. I (OCXC["C") S:$L(OCXX) OCXX=OCXX_" and/or " S OCXX=OCXX_"Cholecystographic"
  1. I (OCXC["M") S:$L(OCXX) OCXX=OCXX_" and/or " S OCXX=OCXX_"Unspecified contrast media"
  1. Q OCXX
  1. ;
  1. EQTERM(DATA,TERM) ; Compiler Function: EQUALS TERM OPERATOR
  1. ;
  1. N OCXF,OCXL
  1. ;
  1. S OCXL="",OCXF=$$TERMLKUP(TERM,.OCXL)
  1. Q:'OCXF 0
  1. I ($D(OCXL(DATA))!$D(OCXL("B",DATA))) Q 1
  1. Q 0
  1. ;
  1. FILE(DFN,OCXELE,OCXDFL) ; This Local Extrinsic Function logs a validated event/element.
  1. ;
  1. N OCXTIMN,OCXTIML,OCXTIMT1,OCXTIMT2,OCXDATA,OCXPC,OCXPC,OCXVAL,OCXSUB,OCXDFI
  1. S DFN=+$G(DFN),OCXELE=+$G(OCXELE)
  1. ;
  1. Q:'DFN 1 Q:'OCXELE 1 K OCXDATA
  1. ;
  1. S OCXDATA(DFN,OCXELE)=1
  1. F OCXPC=1:1:$L(OCXDFL,",") S OCXDFI=$P(OCXDFL,",",OCXPC) I OCXDFI D
  1. .S OCXVAL=$G(OCXDF(+OCXDFI)),OCXDATA(DFN,OCXELE,+OCXDFI)=OCXVAL
  1. ;
  1. M ^TMP("OCXCHK",$J,DFN)=OCXDATA(DFN)
  1. ;
  1. Q 0
  1. ;
  1. MTSTF(OILIST) ; Compiler Function: MISSING TESTS DURING SESSION
  1. ;
  1. N OCXPC,OCXOI,OCXOUT S OCXOUT=""
  1. F OCXPC=1:1:$L(OILIST,",") S OCXOI=$P(OILIST,",",OCXPC) I $L(OCXOI) D
  1. .N OCXL,OCXF,OCXD0
  1. .S OCXL="",OCXF=$$TERMLKUP(OCXOI,.OCXL)
  1. .S OCXD0=0 F S OCXD0=$O(OCXL(OCXD0)) Q:'OCXD0 Q:$$OISESS^ORKCHK2(+OCXD0)
  1. .Q:OCXD0
  1. .S:$L(OCXOUT) OCXOUT=OCXOUT_", " S OCXOUT=OCXOUT_OCXOI
  1. Q OCXOUT
  1. ;
  1. RECBAR(DFN,HOURS) ; Compiler Function: RECENT BARIUM STUDY
  1. ;
  1. Q:'$G(DFN) 0 Q:'$G(HOURS) 0 N OUT S OUT=$$RECENTBA^ORKRA(DFN,HOURS) Q:'$L(OUT) 0 Q 1_U_OUT
  1. ;
  1. ;
  1. RECBARST(DFN,HOURS) ; Compiler Function: RECENT BARIUM ORDER STATUS
  1. ;
  1. Q:'$G(DFN) 0 Q:'$G(HOURS) 0
  1. N ORDER S ORDER=$P($$RECENTBA^ORKRA(DFN,HOURS),U) Q:'$L(ORDER) 0
  1. N STATUS S STATUS=$P($$STATUS^ORQOR2(ORDER),U,2) Q:'$L(STATUS) 0
  1. Q 1_U_STATUS
  1. ;
  1. TERMLKUP(OCXTERM,OCXLIST) ;
  1. Q $$TERM^OCXOZ01(OCXTERM,.OCXLIST)
  1. ;