208 lines
5.1 KiB
Mathematica
208 lines
5.1 KiB
Mathematica
OCXDI028 ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
|
|
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|
;
|
|
S ;
|
|
;
|
|
D DOT^OCXDIAG
|
|
;
|
|
;
|
|
K REMOTE,LOCAL,OPCODE,REF
|
|
F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
|
|
.S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
|
|
;
|
|
G ^OCXDI029
|
|
;
|
|
Q
|
|
;
|
|
DATA ;
|
|
;
|
|
;;D^
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^LAB TEST PRINT NAME
|
|
;;R^"863.3:",.06,"E"
|
|
;;D^997
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^PRINTNAM^ORQQLR1(|LAB TEST ID|)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;EOR^
|
|
;;KEY^863.3:^ORDER FLAGGED FOR RESULTS
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^ORDER FLAGGED FOR RESULTS
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.04,"E"
|
|
;;D^99
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^ORDER FLAGGED
|
|
;;R^"863.3:",.06,"E"
|
|
;;D^99
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RSLTFLG^ORQOR2(|ORDER NUMBER|)
|
|
;;EOR^
|
|
;;KEY^863.3:^CURRENT_DATE/TIME
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^CURRENT_DATE/TIME
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^DATE/TIME
|
|
;;R^"863.3:",.06,"E"
|
|
;;D^999
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^INT2DT($$DT2INT("N"),0)
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.REC_CREATININE_RESULT
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.REC_CREATININE_RESULT
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^SERUM CREATININE VALUE
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECCREAT(|PATIENT IEN|,60)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^3
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.REC_CREATININE_TEXT
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.REC_CREATININE_TEXT
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^SERUM CREATININE TEXT
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECCREAT(|PATIENT IEN|,60)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^2
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.REC_CREATININE_FLAG
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.REC_CREATININE_FLAG
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^CREATININE FLAG
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECCREAT(|PATIENT IEN|,60)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^1
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.WBC_W/IN_13_DAYS
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.WBC_W/IN_13_DAYS
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECWBC(|PATIENT IEN|,13)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^2
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.WBC_W/IN_13_DAYS_FLAG
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.WBC_W/IN_13_DAYS_FLAG
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^WBC W/IN 13 DAYS
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECWBC(|PATIENT IEN|,13)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^1
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.RECENT WBC RESULT
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.RECENT WBC RESULT
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^RECENT WBC RESULT
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECWBC(|PATIENT IEN|,"")
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^2
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.REC_BAR_ORDER_STATUS
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.REC_BAR_ORDER_STATUS
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^BARIUM ORDER STATUS
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECBARST(|PATIENT IEN|,48)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^2
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.REC_CHOLEC_ORD_STATUS
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.REC_CHOLEC_ORD_STATUS
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^CHOLECYSTOGRAM ORDER STATUS
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^RECCHST(|PATIENT IEN|,7)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^2
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.POLYPHARMACY
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.POLYPHARMACY
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^POLYPHARMACY
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^POLYRX^ORKPS(|PATIENT IEN|)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^1
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.GLUCOPHAGE_CREAT_FLAG
|
|
;;R^"863.3:",.01,"E"
|
|
;1;
|
|
;
|