source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORSET98.m@ 1015

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