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

OCXDI02L.m

Go to the documentation of this file.
  1. OCXDI02L ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. S ;
  1. ;
  1. D DOT^OCXDIAG
  1. ;
  1. ;
  1. K REMOTE,LOCAL,OPCODE,REF
  1. F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
  1. .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
  1. ;
  1. G ^OCXDI02M
  1. ;
  1. Q
  1. ;
  1. DATA ;
  1. ;
  1. ;;R^"860.8:",100,24
  1. ;;D^ ; ..I CDT'<BDT S CREARSLT=1
  1. ;;R^"860.8:",100,25
  1. ;;D^ ; Q:+$G(CREARSLT)<1 "0^"
  1. ;;R^"860.8:",100,26
  1. ;;D^ ; Q $P(ORZ,U)_U_$P(ORZ,U,3)_" "_$P(ORZ,U,4)_" "_$P(ORZ,U,5)_" ("_$P(ORZ,U,6)_") "_$$FMTE^XLFDT(CDT,"2P")_U_$P(ORZ,U,3)
  1. ;;EOR^
  1. ;;KEY^860.8:^RECENT BARIUM ORDER STATUS
  1. ;;R^"860.8:",.01,"E"
  1. ;;D^RECENT BARIUM ORDER STATUS
  1. ;;R^"860.8:",.02,"E"
  1. ;;D^RECBARST
  1. ;;R^"860.8:",100,1
  1. ;;D^;RECBARST(DFN,HOURS) ;
  1. ;;R^"860.8:",100,2
  1. ;;D^; ;
  1. ;;R^"860.8:",100,3
  1. ;;D^; Q:'$G(DFN) 0 Q:'$G(HOURS) 0
  1. ;;R^"860.8:",100,4
  1. ;;D^; N ORDER S ORDER=$P($$RECENTBA^ORKRA(DFN,HOURS),U) Q:'$L(ORDER) 0
  1. ;;R^"860.8:",100,5
  1. ;;D^; N STATUS S STATUS=$P($$STATUS^ORQOR2(ORDER),U,2) Q:'$L(STATUS) 0
  1. ;;R^"860.8:",100,6
  1. ;;D^; Q 1_U_STATUS
  1. ;;EOR^
  1. ;;KEY^860.8:^RECENT CHOLECYSTOGRAM ORDER STATUS
  1. ;;R^"860.8:",.01,"E"
  1. ;;D^RECENT CHOLECYSTOGRAM ORDER STATUS
  1. ;;R^"860.8:",.02,"E"
  1. ;;D^RECCHST
  1. ;;R^"860.8:",100,1
  1. ;;D^;RECCHST(DFN,DAYS) ;
  1. ;;R^"860.8:",100,2
  1. ;;D^; ;
  1. ;;R^"860.8:",100,3
  1. ;;D^; Q:'$G(DFN) 0 Q:'$G(DAYS) 0
  1. ;;R^"860.8:",100,4
  1. ;;D^; N ORDER S ORDER=$P($$RECENTCH^ORKRA(DFN,DAYS),U) Q:'$L(ORDER) 0
  1. ;;R^"860.8:",100,5
  1. ;;D^; N STATUS S STATUS=$P($$STATUS^ORQOR2(ORDER),U,2) Q:'$L(STATUS) 0
  1. ;;R^"860.8:",100,6
  1. ;;D^; Q 1_U_STATUS
  1. ;;EOR^
  1. ;;EOF^OCXS(860.8)^1
  1. ;;SOF^860.6 ORDER CHECK DATA CONTEXT
  1. ;;KEY^860.6:^GENERIC HL7 MESSAGE ARRAY
  1. ;;R^"860.6:",.01,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;R^"860.6:",.02,"E"
  1. ;;D^HL7
  1. ;;R^"860.6:",1,"E"
  1. ;;D^DATA DRIVEN
  1. ;;EOR^
  1. ;;KEY^860.6:^CPRS ORDER PROTOCOL
  1. ;;R^"860.6:",.01,"E"
  1. ;;D^CPRS ORDER PROTOCOL
  1. ;;R^"860.6:",.02,"E"
  1. ;;D^OERR
  1. ;;R^"860.6:",1,"E"
  1. ;;D^DATA DRIVEN
  1. ;;EOR^
  1. ;;KEY^860.6:^DGPM PATIENT MOVEMENT PROTOCOL
  1. ;;R^"860.6:",.01,"E"
  1. ;;D^DGPM PATIENT MOVEMENT PROTOCOL
  1. ;;R^"860.6:",.02,"E"
  1. ;;D^DGPM
  1. ;;R^"860.6:",1,"E"
  1. ;;D^DATA DRIVEN
  1. ;;EOR^
  1. ;;KEY^860.6:^DATABASE LOOKUP
  1. ;;R^"860.6:",.01,"E"
  1. ;;D^DATABASE LOOKUP
  1. ;;R^"860.6:",.02,"E"
  1. ;;D^DL
  1. ;;R^"860.6:",1,"E"
  1. ;;D^PACKAGE LOOKUP
  1. ;;EOR^
  1. ;;KEY^860.6:^CPRS ORDER PRESCAN
  1. ;;R^"860.6:",.01,"E"
  1. ;;D^CPRS ORDER PRESCAN
  1. ;;R^"860.6:",.02,"E"
  1. ;;D^OEPS
  1. ;;R^"860.6:",1,"E"
  1. ;;D^DATA DRIVEN
  1. ;;EOR^
  1. ;;KEY^860.6:^TIMED ORDER CHECK
  1. ;;R^"860.6:",.01,"E"
  1. ;;D^TIMED ORDER CHECK
  1. ;;R^"860.6:",.02,"E"
  1. ;;D^TIME
  1. ;;R^"860.6:",1,"E"
  1. ;;D^TIMED EVENT
  1. ;;EOR^
  1. ;;KEY^860.6:^GENERIC QUERY
  1. ;;R^"860.6:",.01,"E"
  1. ;;D^GENERIC QUERY
  1. ;;R^"860.6:",.02,"E"
  1. ;;D^QUERY
  1. ;;R^"860.6:",1,"E"
  1. ;;D^DATA DRIVEN
  1. ;;EOR^
  1. ;;EOF^OCXS(860.6)^1
  1. ;;SOF^860.5 ORDER CHECK DATA SOURCE
  1. ;;KEY^860.5:^HL7 COMMON ORDER SEGMENT
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 COMMON ORDER SEGMENT
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^HL7 OBSERVATION/RESULT SEGMENT
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 OBSERVATION/RESULT SEGMENT
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^HL7 NOTES AND COMMENTS SECTION
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 NOTES AND COMMENTS SECTION
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^DGPM MOVEMENT EVENTS PROTOCOL
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^DGPM MOVEMENT EVENTS PROTOCOL
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^DGPM PATIENT MOVEMENT PROTOCOL
  1. ;;EOR^
  1. ;;KEY^860.5:^HL7 OBSERVATION REQUEST SEGMENT
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 OBSERVATION REQUEST SEGMENT
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^OERR ORDER EVENT FLAG PROTOCOL
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^OERR ORDER EVENT FLAG PROTOCOL
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^CPRS ORDER PROTOCOL
  1. ;;EOR^
  1. ;;KEY^860.5:^DATABASE LOOKUP
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^DATABASE LOOKUP
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^DATABASE LOOKUP
  1. ;;EOR^
  1. ;;KEY^860.5:^ORDER ENTRY ORDER PRESCAN
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^ORDER ENTRY ORDER PRESCAN
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^CPRS ORDER PRESCAN
  1. ;;EOR^
  1. ;;KEY^860.5:^HL7 DIETARY SEGMENT
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 DIETARY SEGMENT
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^HL7 PHARMACY PRESCRIPTION ORDER SEGMENT
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 PHARMACY PRESCRIPTION ORDER SEGMENT
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^HL7 MESSAGE HEADER
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 MESSAGE HEADER
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^HL7 PATIENT ID SEGMENT
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^HL7 PATIENT ID SEGMENT
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC HL7 MESSAGE ARRAY
  1. ;;EOR^
  1. ;;KEY^860.5:^TIMED EVENT ORDER CHECK
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^TIMED EVENT ORDER CHECK
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^TIMED ORDER CHECK
  1. ;;EOR^
  1. ;;KEY^860.5:^GENERIC QUERY RESULTS
  1. ;;R^"860.5:",.01,"E"
  1. ;;D^GENERIC QUERY RESULTS
  1. ;;R^"860.5:",.02,"E"
  1. ;;D^GENERIC QUERY
  1. ;;EOR^
  1. ;;EOF^OCXS(860.5)^1
  1. ;;SOF^860.4 ORDER CHECK DATA FIELD
  1. ;;KEY^860.4:^CONTROL CODE
  1. ;;R^"860.4:",.01,"E"
  1. ;;D^CONTROL CODE
  1. ;;R^"860.4:",101,"E"
  1. ;1;
  1. ;