ORSET98.m

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

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