211 lines
5.1 KiB
Mathematica
211 lines
5.1 KiB
Mathematica
OCXDI029 ;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 ^OCXDI02A
|
|
;
|
|
Q
|
|
;
|
|
DATA ;
|
|
;
|
|
;;D^PATIENT.GLUCOPHAGE_CREAT_FLAG
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^GLUCO-CREATININE FLAG
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^GLCREAT^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_TEXT
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.GLUCOPHAGE_CREAT_TEXT
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^GLUCO-CREATININE TEXT
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^GLCREAT^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^2
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.GLUCOPHAGE_CREAT_RSLT
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.GLUCOPHAGE_CREAT_RSLT
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^GLUCO-CREATININE RESULT
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^GLCREAT^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^3
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.GLUCOPHAGE_CREAT_DAYS
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.GLUCOPHAGE_CREAT_DAYS
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^GLUCO_CREATININE DAYS
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^GCDAYS^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.CLOZ_LABS_W/IN_6_DAYS
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.CLOZ_LABS_W/IN_6_DAYS
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^CLOZAPINE LABS W/IN 6 DAYS
|
|
;;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^CLOZLABS^ORKLR(|PATIENT IEN|,6,|DISP DRUG 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.ANC_W/IN_6_DAYS_FLAG
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.ANC_W/IN_6_DAYS_FLAG
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^ANC W/IN 6 DAYS
|
|
;;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^RECNTANC^ORKLR(|PATIENT IEN|,6)
|
|
;;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 ANC RESULT
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.RECENT ANC RESULT
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^RECENT ANC
|
|
;;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^RECNTANC^ORKLR(|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.CLOZ_LAB_RESULTS
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.CLOZ_LAB_RESULTS
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^CLOZAPINE LAB RESULTS
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^CLOZLABS^ORKLR(|PATIENT IEN|,"",|DISP DRUG IEN|)
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^4
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.OPS_DRUG_ID
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.OPS_DRUG_ID
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^DISPENSE DRUG
|
|
;;R^"863.3:",.06,"E"
|
|
;;D^33
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO VARIABLE NAME
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^OCXPSD
|
|
;;R^"863.3:","863.32:2",.01,"E"
|
|
;;D^OCXO VT-BAR PIECE NUMBER
|
|
;;R^"863.3:","863.32:2",1,"E"
|
|
;;D^2
|
|
;;R^"863.3:","863.32:3",.01,"E"
|
|
;;D^OCXO UP-ARROW PIECE NUMBER
|
|
;;R^"863.3:","863.32:3",1,"E"
|
|
;;D^4
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.CLOZAPINE MED
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^PATIENT.CLOZAPINE MED
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^CLOZAPINE MED
|
|
;;R^"863.3:",.06,"E"
|
|
;;D^3555
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO EXTERNAL FUNCTION CALL
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG 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:^QUERY.MODE
|
|
;;R^"863.3:",.01,"E"
|
|
;;D^QUERY.MODE
|
|
;;R^"863.3:",.02,"E"
|
|
;;D^PATIENT
|
|
;;R^"863.3:",.04,"E"
|
|
;;D^QUERY
|
|
;;R^"863.3:",.05,"E"
|
|
;;D^QUERY MODE
|
|
;;R^"863.3:",.06,"E"
|
|
;;D^999
|
|
;;R^"863.3:","863.32:1",.01,"E"
|
|
;;D^OCXO VARIABLE NAME
|
|
;;R^"863.3:","863.32:1",1,"E"
|
|
;;D^OCXGNM
|
|
;;EOR^
|
|
;;KEY^863.3:^PATIENT.WBC_W/IN_7_DAYS_FLAG
|
|
;1;
|
|
;
|