ORSET98 ; slc/KCM - Set up display group file ;10/25/97 15:11
;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
PRE ; -- Pre-init to rename RAD entry in Display Group file
N X,Y,DA,DR,DIE
S DA=$O(^ORD(100.98,"B","RAD",0))
I DA S DIE="^ORD(100.98,",DR=".01///GENERAL RADIOLOGY" D ^DIE
Q
;
POST ; -- Post-init to setup Display Group file
N X,ORSEQ,ORADG,ORIMG,ORDG,ORI
F ORSEQ=1:1 S X=$T(TOP+ORSEQ) Q:X["ZZZZZ" D ATOP ; add Def Dlg
S ORADG=+$O(^ORD(100.98,"B","RAD",0)),ORIMG=+$O(^ORD(100.98,"B","XRAY",0))
F ORI="ALL","SUM" S ORDG=+$O(^ORD(100.98,"B",ORI,0)) D ; RAD -> XRAY
. N DA S DA=$O(^ORD(100.98,"AD",ORADG,ORDG,0)) Q:'DA
. S ^ORD(100.98,ORDG,1,DA,0)=ORIMG,^ORD(100.98,ORDG,1,"B",ORIMG,DA)=""
. S ^ORD(100.98,"AD",ORIMG,ORDG,DA)=""
. K ^ORD(100.98,"AD",ORADG,ORDG),^ORD(100.98,ORDG,1,"B",ORADG)
F ORSEQ=1:1 S X=$T(SUB+ORSEQ) Q:X["ZZZZZ" D ASUB ; add members
Q
;
ATOP ; Top level - Add Default Dialog ptr
N DA,DLG S DA=+$O(^ORD(100.98,"B",$P(X,";",5),0)) Q:'DA
S DLG=$P(X,";",6) Q:'$L(DLG) S DLG=+$O(^ORD(101.41,"AB",DLG,0))
S:DLG $P(^ORD(100.98,DA,0),U,4)=DLG
Q
ASUB ; Add members
Q:'$O(^ORD(100.98,"B",$P(X,";",4),0))
N DA,DIC,DLAYGO,Y
S DA(1)=$O(^ORD(100.98,"B",$P(X,";",3),0)) I 'DA(1) K DA Q
S:'$D(^ORD(100.98,DA(1),1,0)) ^(0)="^100.981P^^"
S DIC="^ORD(100.98,"_DA(1)_",1,",DIC(0)="NLX",DLAYGO=100.98
S X=$P(X,";",4) D ^DIC
Q
TOP ;;NAME;Mixed Name;SHORT NAME;DIALOG
;;ALL SERVICES;All;ALL
;;PHARMACY;Meds;RX
;;SUPPLIES/DEVICES;Supplies;SPLY;PSO SUPPLY
;;INPATIENT MEDICATIONS;Inpt. Meds;I RX;PSJ OR PAT OE
;;UNIT DOSE MEDICATIONS;Inpt. Meds;UD RX;PSJ OR PAT OE
;;IV MEDICATIONS;IV Fluids;IV RX;PSJI OR PAT FLUID OE
;;PARENTERAL NUTRITION;TPN;TPN
;;OUTPATIENT MEDICATIONS;Out. Meds;O RX;PSO OERR
;;LABORATORY;Lab;LAB;LR OTHER LAB TESTS
;;CHEMISTRY;Chemistry;CH
;;HEMATOLOGY;Hematology;HEMA
;;MICROBIOLOGY;Microbiology;MI
;;BLOOD BANK;Blood Bank;BB
;;ANATOMIC PATHOLOGY;Anat. Path.;AP
;;IMAGING;Imaging;XRAY;RA OERR EXAM
;;GENERAL RADIOLOGY;Radiology;RAD
;;CT SCAN;CT Scan;CT
;;MAGNETIC RESONANCE IMAGING;MRI;MRI
;;ANGIO/NEURO/INTERVENTIONAL;Angio/Neuro;ANI
;;CARDIOLOGY STUDIES (NUC MED);Cardiology;CARD
;;NUCLEAR MEDICINE;Nuclear Med;NM
;;ULTRASOUND;Ultrasound;US
;;VASCULAR LAB;Vascular Lab;VAS
;;MAMMOGRAPHY;Mammography;MAM
;;DIETETICS;Diet;DIET
;;DIET ORDERS;Diet;DO;FHW1
;;TUBEFEEDINGS;Tubefeeding;TF;FHW8
;;DIET ADDITIONAL ORDERS;Diet Add'l;D AO;FHW7
;;EARLY/LATE TRAYS;Early/Late Trays;E/L T;FHW2
;;CONSULTS;Consults;CSLT;GMRCOR CONSULT
;;PROCEDURES;Procedures;PROC;GMRCOR REQUEST
;;VITALS/MEASUREMENTS;Vitals;V/M;GMRVOR
;;NURSING;Nursing;NURS;OR GXMISC GENERAL
;;ACTIVITY;Activity;ACT;OR GXACTV OTHER ACTIVITY ORDER
;;SURGERY;Surgery;SURG
;;SUMMARY ORDER;;SUM
;;M.A.S.;A/D/T;ADT
;;OTHER HOSPITAL SERVICES;Other;OTHER
;;ALLERGIES;Allergy;ALG;GMRAOR ALLERGY ENTER/EDIT
;;DIAGNOSIS;Diagnosis;DX;OR GWDIAG DIAGNOSIS
;;CONDITION;Condition;COND;OR GWCOND CONDITION
;;PRECAUTIONS;Precautions;PREC;FHW3
;;ORDER ENTRY/RESULTS REPORTING;OE/RR;OE/RR
;;ZZZZZ
SUB ;;PARENT;MEMBER
;;ALL;RX
;;ALL;LAB
;;ALL;XRAY
;;ALL;DIET
;;ALL;CSLT
;;ALL;PROC
;;ALL;V/M
;;ALL;NURS
;;ALL;SURG
;;ALL;ADT
;;ALL;OTHER
;;ALL;ALG
;;ALL;SPLY
;;SUM;ADT
;;SUM;V/M
;;SUM;DO
;;SUM;D AO
;;SUM;TF
;;SUM;E/L T
;;SUM;D CON
;;SUM;DIET
;;SUM;UD RX
;;SUM;IV RX
;;SUM;I RX
;;SUM;CH
;;SUM;HEMA
;;SUM;MI
;;SUM;LAB
;;SUM;XRAY
;;SUM;CSLT
;;SUM;OTHER
;;RX;I RX
;;RX;O RX
;;I RX;UD RX
;;I RX;IV RX
;;IV RX;TPN
;;LAB;CH
;;LAB;HEMA
;;LAB;MI
;;LAB;BB
;;LAB;AP
;;XRAY;RAD
;;XRAY;CT
;;XRAY;MRI
;;XRAY;ANI
;;XRAY;CARD
;;XRAY;NM
;;XRAY;US
;;XRAY;VAS
;;XRAY;MAM
;;DIET;DO
;;DIET;TF
;;DIET;D AO
;;DIET;E/L T
;;DIET;PREC
;;NURS;ACT
;;ADT;DX
;;ADT;COND
;;ZZZZZ
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORSET98 3885 printed Apr 09, 2024@21:27:42 Page 2
ORSET98 ; slc/KCM - Set up display group file ;10/25/97 15:11
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
PRE ; -- Pre-init to rename RAD entry in Display Group file
+1 NEW X,Y,DA,DR,DIE
+2 SET DA=$ORDER(^ORD(100.98,"B","RAD",0))
+3 IF DA
SET DIE="^ORD(100.98,"
SET DR=".01///GENERAL RADIOLOGY"
DO ^DIE
+4 QUIT
+5 ;
POST ; -- Post-init to setup Display Group file
+1 NEW X,ORSEQ,ORADG,ORIMG,ORDG,ORI
+2 ; add Def Dlg
FOR ORSEQ=1:1
SET X=$TEXT(TOP+ORSEQ)
if X["ZZZZZ"
QUIT
DO ATOP
+3 SET ORADG=+$ORDER(^ORD(100.98,"B","RAD",0))
SET ORIMG=+$ORDER(^ORD(100.98,"B","XRAY",0))
+4 ; RAD -> XRAY
FOR ORI="ALL","SUM"
SET ORDG=+$ORDER(^ORD(100.98,"B",ORI,0))
Begin DoDot:1
+5 NEW DA
SET DA=$ORDER(^ORD(100.98,"AD",ORADG,ORDG,0))
if 'DA
QUIT
+6 SET ^ORD(100.98,ORDG,1,DA,0)=ORIMG
SET ^ORD(100.98,ORDG,1,"B",ORIMG,DA)=""
+7 SET ^ORD(100.98,"AD",ORIMG,ORDG,DA)=""
+8 KILL ^ORD(100.98,"AD",ORADG,ORDG),^ORD(100.98,ORDG,1,"B",ORADG)
End DoDot:1
+9 ; add members
FOR ORSEQ=1:1
SET X=$TEXT(SUB+ORSEQ)
if X["ZZZZZ"
QUIT
DO ASUB
+10 QUIT
+11 ;
ATOP ; Top level - Add Default Dialog ptr
+1 NEW DA,DLG
SET DA=+$ORDER(^ORD(100.98,"B",$PIECE(X,";",5),0))
if 'DA
QUIT
+2 SET DLG=$PIECE(X,";",6)
if '$LENGTH(DLG)
QUIT
SET DLG=+$ORDER(^ORD(101.41,"AB",DLG,0))
+3 if DLG
SET $PIECE(^ORD(100.98,DA,0),U,4)=DLG
+4 QUIT
ASUB ; Add members
+1 if '$ORDER(^ORD(100.98,"B",$PIECE(X,";",4),0))
QUIT
+2 NEW DA,DIC,DLAYGO,Y
+3 SET DA(1)=$ORDER(^ORD(100.98,"B",$PIECE(X,";",3),0))
IF 'DA(1)
KILL DA
QUIT
+4 if '$DATA(^ORD(100.98,DA(1),1,0))
SET ^(0)="^100.981P^^"
+5 SET DIC="^ORD(100.98,"_DA(1)_",1,"
SET DIC(0)="NLX"
SET DLAYGO=100.98
+6 SET X=$PIECE(X,";",4)
DO ^DIC
+7 QUIT
TOP ;;NAME;Mixed Name;SHORT NAME;DIALOG
+1 ;;ALL SERVICES;All;ALL
+2 ;;PHARMACY;Meds;RX
+3 ;;SUPPLIES/DEVICES;Supplies;SPLY;PSO SUPPLY
+4 ;;INPATIENT MEDICATIONS;Inpt. Meds;I RX;PSJ OR PAT OE
+5 ;;UNIT DOSE MEDICATIONS;Inpt. Meds;UD RX;PSJ OR PAT OE
+6 ;;IV MEDICATIONS;IV Fluids;IV RX;PSJI OR PAT FLUID OE
+7 ;;PARENTERAL NUTRITION;TPN;TPN
+8 ;;OUTPATIENT MEDICATIONS;Out. Meds;O RX;PSO OERR
+9 ;;LABORATORY;Lab;LAB;LR OTHER LAB TESTS
+10 ;;CHEMISTRY;Chemistry;CH
+11 ;;HEMATOLOGY;Hematology;HEMA
+12 ;;MICROBIOLOGY;Microbiology;MI
+13 ;;BLOOD BANK;Blood Bank;BB
+14 ;;ANATOMIC PATHOLOGY;Anat. Path.;AP
+15 ;;IMAGING;Imaging;XRAY;RA OERR EXAM
+16 ;;GENERAL RADIOLOGY;Radiology;RAD
+17 ;;CT SCAN;CT Scan;CT
+18 ;;MAGNETIC RESONANCE IMAGING;MRI;MRI
+19 ;;ANGIO/NEURO/INTERVENTIONAL;Angio/Neuro;ANI
+20 ;;CARDIOLOGY STUDIES (NUC MED);Cardiology;CARD
+21 ;;NUCLEAR MEDICINE;Nuclear Med;NM
+22 ;;ULTRASOUND;Ultrasound;US
+23 ;;VASCULAR LAB;Vascular Lab;VAS
+24 ;;MAMMOGRAPHY;Mammography;MAM
+25 ;;DIETETICS;Diet;DIET
+26 ;;DIET ORDERS;Diet;DO;FHW1
+27 ;;TUBEFEEDINGS;Tubefeeding;TF;FHW8
+28 ;;DIET ADDITIONAL ORDERS;Diet Add'l;D AO;FHW7
+29 ;;EARLY/LATE TRAYS;Early/Late Trays;E/L T;FHW2
+30 ;;CONSULTS;Consults;CSLT;GMRCOR CONSULT
+31 ;;PROCEDURES;Procedures;PROC;GMRCOR REQUEST
+32 ;;VITALS/MEASUREMENTS;Vitals;V/M;GMRVOR
+33 ;;NURSING;Nursing;NURS;OR GXMISC GENERAL
+34 ;;ACTIVITY;Activity;ACT;OR GXACTV OTHER ACTIVITY ORDER
+35 ;;SURGERY;Surgery;SURG
+36 ;;SUMMARY ORDER;;SUM
+37 ;;M.A.S.;A/D/T;ADT
+38 ;;OTHER HOSPITAL SERVICES;Other;OTHER
+39 ;;ALLERGIES;Allergy;ALG;GMRAOR ALLERGY ENTER/EDIT
+40 ;;DIAGNOSIS;Diagnosis;DX;OR GWDIAG DIAGNOSIS
+41 ;;CONDITION;Condition;COND;OR GWCOND CONDITION
+42 ;;PRECAUTIONS;Precautions;PREC;FHW3
+43 ;;ORDER ENTRY/RESULTS REPORTING;OE/RR;OE/RR
+44 ;;ZZZZZ
SUB ;;PARENT;MEMBER
+1 ;;ALL;RX
+2 ;;ALL;LAB
+3 ;;ALL;XRAY
+4 ;;ALL;DIET
+5 ;;ALL;CSLT
+6 ;;ALL;PROC
+7 ;;ALL;V/M
+8 ;;ALL;NURS
+9 ;;ALL;SURG
+10 ;;ALL;ADT
+11 ;;ALL;OTHER
+12 ;;ALL;ALG
+13 ;;ALL;SPLY
+14 ;;SUM;ADT
+15 ;;SUM;V/M
+16 ;;SUM;DO
+17 ;;SUM;D AO
+18 ;;SUM;TF
+19 ;;SUM;E/L T
+20 ;;SUM;D CON
+21 ;;SUM;DIET
+22 ;;SUM;UD RX
+23 ;;SUM;IV RX
+24 ;;SUM;I RX
+25 ;;SUM;CH
+26 ;;SUM;HEMA
+27 ;;SUM;MI
+28 ;;SUM;LAB
+29 ;;SUM;XRAY
+30 ;;SUM;CSLT
+31 ;;SUM;OTHER
+32 ;;RX;I RX
+33 ;;RX;O RX
+34 ;;I RX;UD RX
+35 ;;I RX;IV RX
+36 ;;IV RX;TPN
+37 ;;LAB;CH
+38 ;;LAB;HEMA
+39 ;;LAB;MI
+40 ;;LAB;BB
+41 ;;LAB;AP
+42 ;;XRAY;RAD
+43 ;;XRAY;CT
+44 ;;XRAY;MRI
+45 ;;XRAY;ANI
+46 ;;XRAY;CARD
+47 ;;XRAY;NM
+48 ;;XRAY;US
+49 ;;XRAY;VAS
+50 ;;XRAY;MAM
+51 ;;DIET;DO
+52 ;;DIET;TF
+53 ;;DIET;D AO
+54 ;;DIET;E/L T
+55 ;;DIET;PREC
+56 ;;NURS;ACT
+57 ;;ADT;DX
+58 ;;ADT;COND
+59 ;;ZZZZZ
