Mumps Class 20
From VistApedia
sam@sam-desktop:~/pocn-moh$ mumps -dir GTM>zp ^KBANJOBBED KBANJOBBED ; jobbed process ; 4/3/11 1:30pm ; ; Goes through the drug file and prints stuff NEW I SET I=0 FOR SET I=$O(^PSDRUG(I)) QUIT:'I HANG .1 WRITE $P(^(I,0),"^"),! QUIT GTM>ZP ^KBANJOB KBANJOB ; Routine to start a KBANJOBBED ; 4/3/11 1:44pm ;; ; Start ^KBANJOBBED with ERROR file /tmp/samerr.txt and OUTPUT /tmp/samjobb ed.txt JOB ^KBANJOBBED:(ERROR="/tmp/samerr.txt":OUTPUT="/tmp/samjobbed.txt"):5 ; Job Parameters ; DEFAULT (directory) ; ERROR (stderr output) ; INPUT (stdin) ; OUTPUT (stdout) ; GBLDIR (Name of DB to use) ; STARTUP (optional shell script) ; ; Can pass value parameters to job, but not reference parameters QUIT GTM>D ^KBANJOB GTM>H sam@sam-desktop:~/pocn-moh$ tail -f /tmp/samjobbed.txt PROMETHAZINE 25MG/ML INJ CEFACLOR 250MG CAP,ORAL NEOSTIGMINE 0.5MG/ML (1:2000) INJ FERROUS SULFATE 75MG/0.6ML DROPS,ORAL DIGOXIN 0.05MG/ML SOLN,ORAL PROPRANOLOL HCL 1MG/ML INJ POTASSIUM CL 2MEQ/ML (10%) INJ 10ML HYDROCHLOROTHIAZIDE 25MG TAB,ORAL POVIDONE IODINE 10% SOLN,TOP SILVER SULFADIAZINE 1% CRM,TOP JAR GLYCERIN SUPP,RECTAL TOBRAMYCIN 0.3% SOLN,OPHT TOBRAMYCIN 0.3% OINT,OPHT CAPTOPRIL 25MG TAB,ORAL VERAPAMIL HCL 80MG TAB,ORAL VERAPAMIL HCL INJ 2.5MG/ML INJ 2ML FUROSEMIDE 40MG TAB,ORAL TONGUE DEPRESSORS MESALAMINE 1GM SUPP,RECTAL CLONAZEPAM 0.5MG TAB,ORAL CLONAZEPAM 2MG TAB,ORAL PHENOBARBITAL 60MG TAB,ORAL CEFOTAXIME SODIUM 1GM/VIAL INJ FACE MASK ALCOHOL PREP PADS BECLOMETHASONE DIPROP 50MCG INH,NASAL BROMOCRIPTINE MESYLATE 2.5MG TAB,ORAL ALPRAZOLAM 0.5MG TAB,ORAL DILTIAZEM HCL 60MG TAB,ORAL HYDROGEN PEROXIDE 6% SOLN,TOP 1000ML ACYCLOVIR 5% CREAM,TOP TRETINOIN 0.05% CREAM,TOP ATENOLOL 50MG TAB,ORAL ATENOLOL 100MG TAB,ORAL ERYTHROMYCIN ES 400MG TAB,ORAL SULFAMETH 200MG/TRIMETH 40MG/5ML SUSP CROTAMITON 10% CREAM,TOP CROTAMITON 10% LOTION,TOP SODIUM BICARBONATE 8.4% INJ FLUOCINOLONE ACETONIDE 0.025% OINT,TOP DOPAMINE HCL 40MG/ML INJ LIDOCAINE HCL 2% INJ HYDROCORTISONE ACETATE 1% CREAM,TOP HYDROCORTISONE ACETATE 1% OINT,TOP HYDROCORTISONE NA SUCC. 100MG/2ML INJ FAMOTIDINE 40MG TAB,ORAL VERAPAMIL HCL 240MG TAB,ORAL,SA ISOSORBIDE DINITRATE 40MG TAB,ORAL,SA IPRATROPIUM 20MCG/INH INHALER,ORAL AZATHIOPRINE 50MG TAB,ORAL AZTREONAM 1GM/VIAL INJ MICONAZOLE NITRATE 2% CREAM,VAG 20GM BLEOMYCIN SULFATE 15UNITS/VIAL INJ CYCLOPHOSPHAMIDE 500MG/VIAL INJ CIPROFLOXACIN HCL 500MG TAB,ORAL PHENYTOIN NA 50MG/ML INJ FLUOXETINE HCL 20MG CAP,ORAL ENALAPRIL MALEATE 20MG TAB,ORAL ENALAPRIL MALEATE 10MG TAB,ORAL LISINOPRIL 10MG TAB,ORAL RANITIDINE HCL 25MG/ML INJ CARBAMAZEPINE 100MG/5ML SUSP,ORAL PENICILLIN G PROCAINE 400,000 UNITS INJ FUROSEMIDE 10MG/ML SOLN,ORAL 60ML CEFUROXIME AXETIL 250MG TAB,ORAL UREA 10% LOTION,TOP MEBENDAZOLE 100MG TAB,CHEW CILASTIN 500MG/IMIPENEM 500MG/VIAL INJ DEXAMETHA 0.1%/TOBRAMYCIN 0.3% SUSP,OPHT HEPARIN NA 1000UNIT/ML INJ 1ML RANITIDINE HCL 150MG TAB,ORAL DICLOFENAC SODIUM 50MG TAB,ORAL,EC CIPROFLOXACIN HCL 250MG TAB,ORAL CYCLOSPORINE 100MG/ML SOLN,ORAL HALOPERIDOL DECANOATE 100MG/ML INJ CHLORPHENIRAMINE 2.5MG/ML SYP,ORAL AMOXICILLIN 50O/CLAVULANATE 125 TAB,ORAL CYCLOPENTOLATE HCL 1% SOLN,OPHT CALCIUM CARBONATE 500MG TAB,ORAL TRETINOIN 0.025% GEL,TOP CEFOPERAZONE 1GM/VIAL INJ ATROPINE SULFATE 1MG/ML INJ CEFUROXIME AXETIL 125MG/5ML SUSP,ORAL PENTOXIFYLLINE 400MG TAB,ORAL,SA ISOTRETINOIN 10MG CAP,ORAL MORPHINE SULFATE 10MG/ML INJ PENICILLIN G BENZATHINE 1.2 MIL UNIT INJ AMOXICILLIN 250/CLAVULANATE 125 TAB,ORAL ZINC OXIDE 10% OINT,TOP AMOXICILLIN/CLAVULANATE 250MG/5ML SUSP DIAZEPAM 10MG/2ML INJ GRISEOFULVIN 125MG/5ML SUSP,ORAL PHYTONADIONE 10MG/ML INJ CEFTRIAXONE SODIUM 1GM/VIAL INJ ACYCLOVIR 250MG/VIAL INJ EPHEDRINE 30MG/ML INJ MEPERIDINE HCL 50MG/ML INJ MEPERIDINE HCL 100MG/ML INJ FLUPHENAZINE DECANOATE 25MG/ML INJ CEPHALEXIN 250MG/5ML SUSP,ORAL DEXTROSE 5%/NACL 0.45% INJ 500ML DEXTROSE 5%/NACL 0.9% INJ 500ML BETAXOLOL HCL 0.5% SOLN,OPHT GEMFIBROZIL 600MG TAB,ORAL ENALAPRIL MALEATE 5MG TAB,ORAL LEVOBUNOLOL HCL O.5% SOLN,OPHT CLOBETASOL PROPIONATE 0.05% OINT,TOP HALOPERIDOL DECANOATE 50MG/ML INJ ACETAZOLAMIDE 250MG TAB,ORAL AMIODARONE HCL 200MG TAB,ORAL OMEPRAZOLE 20MG CAP,ORAL,EC SODIUM CHLORIDE 0.45% INJ 500ML IBUPROFEN 100MG/5ML SUSP,ORAL CALCIUM CHLORIDE 100MG/10ML (10%) INJ EPOETIN ALFA RECOMBINANT 4000U/ML INJ CLOBETASOL PROPIONATE 0.05% CREAM,TOP STREPTOKINASE 1.5MU/VIAL INJ EPOETIN ALFA RECOMBINANT 2000U/ML INJ CHLORDIAZEPOXIDE 5/CLIDINIUM 2.5 CAP TERAZOSIN 5MG TAB,ORAL FOSINOPRIL SODIUM 10MG TAB,ORAL FENTANYL TRANSDERM 25MCG/HR PATCH,TOP CLOZAPINE 25MG TAB,ORAL CLOZAPINE 100MG TAB,ORAL CLARITHROMYCIN 500MG TAB,ORAL FENTANYL TRANSDERM 50MCG/HR PATCH,TOP GOSERELIN ACETATE 3.6MG INJ,IMPLANT AMLODIPINE BESYLATE 5MG TAB,ORAL DEXAMETHA 0.1%/TOBRAMYCIN 0.3% OINT,OPHT ASPIRIN 1100MF TAB,ORAL ETOPOSIDE 50MG/VIAL INJ RANITIDINE HCL 300MG TAB,ORAL DICLOFENAC SODIUM 0.1% SOLN,OPHT RISPERIDONE 1MG TAB,ORAL CLOMIPRAMINE 25MG CAP,ORAL CLARITHROMYCIN 250MG TAB,ORAL RISPERIDONE 4MG TAB,ORAL GABAPENTIN 300MG CAP,ORAL SALMETEROL XINAFOATE 25MCG INH,ORAL LODOXAMIDE TROMETHAMINE 0.1% SOLN,OPHT INTERFERON ALFA 2B,RECOMB 3MU/VIAL INJ LORATADINE 10MG TAB,ORAL AMOXICILLIN 250/5ML SUSP,ORAL ATORVASTATIN CALCIUM 20MG TAB,ORAL CANDESARTAN CILEXETIL 16MG TAB,ORAL CARVEDILOL 6.25MG TAB,ORAL CARVEDILOL 25MG TAB,ORAL CETIRIZINE HCL 10MG TAB,ORAL CLOPIDOGREL BISULFATE 75MG TAB,ORAL EPROSARTAN MESYLATE 600MG TAB,ORAL FLUVASTATIN SODIUM 80MG TAB,ORAL,SA GABAPENTIN 400MG CAP,ORAL GLIPEPIRIDE 2MG TAB,ORAL VALACYCLOVIR HCL 500MG TAB,ORAL TOPIRAMATE 25MG TAB,ORAL TOPIRAMATE 50MG TAB,ORAL TOPIRAMATE 100MG TAB,ORAL TOPIRAMATE 200MG TAB,ORAL TAMSULOSIN HCL 0.4MG CAP,ORAL TELMISARTAN 80MG TAB,ORAL ROSUVASTATIN CALCIUM 10MG TAB,ORAL QUETIAPINE FUMARATE 200MG TAB,ORAL PERINDOPRIL ERBUMINE 4MG TAB,ORAL OLANZAPINE 10MG TAB,ORAL OLANZAPINE 5MG TAB,ORAL METOPROLOL TARTRATE 5MG/5ML INJ METFORMIN HCL 850MG TAB,ORAL LOSARTAN POTASSIUM 50MG TAB,ORAL LABETALOL HCL 5MG/ML INJ LANSOPRAZOLE 30MG CAP,ORAL,EC LATANOPROST 0.005% SOLN,OPHT AMOXICILLIN/CLAVULANATE 125MG/5ML SUSP METFORMIN HCL 500MG TAB,ORAL HCTZ 12.5MG/VALSARTAN 160MG TAB,ORAL BISOPROLOL FUMARATE 10MG TAB,ORAL BISOPROLOL FUMARATE 5MG TAB,ORAL HEPARIN NA 25,000 UNIT/ML INJ HEPARIN NA 5000 UNIT/ML INJ SOLN DALTEPARIN SUBCUTAN 5000 UNITS/0.2 ML MOMETASONE FUROATE 0.1% CREAM,TOP ACITRETIN 10MG CAP,ORAL MICONAZOLE NITRATE 2% CREAM,VAG 50GM MICONAZOLE NITRATE 400MG SUPP,VAG OXYTOCIN 10 UNITS/ML INJ CLOMIPHENE CITRATE 50MG TAB,ORAL MEDROXYPROGESTERONE ACETATE 5MG TAB,ORAL METHYLPREDNISOLONE NA SUCC. 500MG/VL INJ DESMOPRESSIN ACETATE 0.1MG TAB,ORAL DESMOPRESSIN ACETATE O.2MG TAB,ORAL CALCITONIN,SALMON 50 UNITS/VIAL INJ CALCITONIN,SALMON 200U/ML SOLN,NASAL ALENDRONATE SODIUM 70MG TAB,ORAL AMIKACIN 500MG/VIAL INJ CLARITHROMYCIN 125MG/5ML SUSP,ORAL GENTAMICIN SULF 10MG/ML INJ 2ML/VL CEFUROXIME SODIUM 750MG/VIAL INJ CEFACLOR 500MG CAP,ORAL CEFACLOR 125MG/5ML SUSP,SUSP CEFDINIR 250MG/5ML SUSP,ORAL CEFIXIME 100MG/5ML SUSP,ORAL 60ML PIPERACILLIN/TAZOBACTAM 4.5GM/VIAL INJ METRONIDAZOLE 500MG TAB,ORAL METRONIDAZOLE 500MG/VIAL INJ LAMIVUDINE 100MG TAB,ORAL PEGINTEFERON ALFA 2A 80MCG INJ INTERFERON BETA 1A 30MCG/VIAL INJ DICLOFENAC SODIUM TAB 100MG TAB,ORAL,SA INDOMETHACIN 100MG SUPP,RECTAL TIZANIDINE HCL 4MG TAB,ORAL CLONAZEPAM 2.5MG/ML DROPS,ORAL LAMOTRIGINE 25MG TAB,ORAL LAMOTRIGINE 50MG TAB,ORAL LAMOTIRGINE 100MG TAB,ORAL LEVETIRACETAM 500MG TAB,ORAL LITHIUM CARBONATE 400MG TAB,ORAL FLUVOXAMINE MALEATE 100MG TAB,ORAL CITALOPRAM HYDROBROMIDE 40MG TAB,ORAL PHENOBARBITAL 30MG/ML INJ GALANTAMINE HYDROBROMIDE 4MG TAB,ORAL ATRACURIUM BESYLATE 10MG/ML INJ PANCURONIUM BROMIDE 2MG/ML INJ VECURONIUM BROMIDE 4MG/2ML INJ ENFLURANE LIQUID INHALATION SEVOFLURANE LIQUID INHALATION KETAMINE HCL 50MG/ML INJ FLUMAZENIL 0.5MG/5ML INJ LIDOCAINE 2% JELLY,TOP FLUTICASONE PROP 50MCG INH,NASAL TIOTROPIUM BROMIDE 18MCG CAP,INH,ORAL CETIRIZINE HCL 5MG/5ML SYRUP,ORAL LORATADINE 5MG/5ML SYRUP,ORAL ANTAZOLINE 0.5/NAPHAZOLINE 0.025 SOL,OPH DORZOLAMIDE HCL 2% SOLN,OPHT BRIMONIDINE TARTRATE 0.2% SOLN,OPHT BIMATOPROST 0.3% SOLN,OPHT CYCLOSPORINE 25MG CAP,ORAL CYCLOSPORINE 50MG CAP,ORAL CYCLOSPORINE 100MG CAP,ORAL TACROLIMUS 1MG CAP,ORAL SIROLIMEU 1MG CAP,ORAL MYCOPHENOLATE MOFETIL 500MG TAB,ORAL PREGESTIMIL MILK PWDR,ORAL OSELTAMIVIR PHOSPHATE 75MG CAP,ORAL OSELTAMIVIR PHOSPHATE 60MG/5ML SUSP,ORAL ACETAZOLAMIDE NA 500MG/VIAL INJ ACITRETIN 25MG CAP,ORAL ACYCLOVIR 200MG TAB,ORAL AL HYDROXIDE/MG HYDROXIDE TAB,ORAL AMIODARONE 150MG/VIAL INJ AMOXICILLIN 1GM TAB,ORAL AZITHROMYCIN 200MG/5ML SUSP,ORAL AZITHROMYCIN 300MG/7.5ML SUSP AZITHROMYCIN 250MG CAP,ORAL BIPERIDIN 4MG TAB,ORAL BUDESONIDE 100MCG SPRAY,NASAL CALCIPOTRIENE 0.005% CREAM,TOP CALCIPOTRIENE 0.005% OINT,TOP CALCIPOTRIENE 0.005% SOLN,TOP BETAMETHASONE/CALCIPOTRIENE OINT,TOP CALCITONIN,SALMON 50 UNITS/VIAL INJ CARBAMAZEPINE 40OMG TAB,ORAL,SA CEFEPIME 1GM/VIAL INJ CEFIXIME 100MG/5ML SUSP,ORAL 30ML CEFPROZIL 125MG/5ML SUSP,ORAL CEFTAZIDIME 1GM/VIAL INJ CEFTIZOXIME 1GM/VIAL INJ CEFUROXIME SODIUM 1500MG/VIAL INJ CEFUROXIME AXETIL 500MG TAB,ORAL DINOPROSTONE 3MG TAB,VAG CIPROFLOXACIN 0.3% SOLN,OPHT CLOXACILLIN 500MG/VIAL INJ DICLOFENAC SODIUM 100MG SUPP,RECTAL DICLOFENAC SODIUM 12.5MG SUPP,RECTAL DICLOFENAC SODIUM 3% GEL,TOP DILTIAZEM HCL 25MG/VIAL INJ ENTECAVIR 1MG TAB,ORAL ETHANOLAMINE OLEATE 5% INJ 5ML MULTIVITAMIN WITH MINERALS TAB,ORAL FERROUS SULFATE 100MG TAB,ORAL FOLIC ACID 5MG TAB,ORAL GALANTAMINE HYDROBROMIDE 8MG TAB,ORAL INTERFERON BETA 1A 44MCG/VIAL INJ ISOTRETINOIN 20MG CAP,ORAL METRONIDAZOLE 125MG/5ML SUSP,ORAL MICONAZOLE NITRATE CREAM,TOP 15GM MICONAZOLE NITRATE 2% GEL,ORAL MYCOPHENOLIC ACID 360MG TAB,ORAL,EC BACITRACIN/NEOMYCIN/POLYMIXIN OINT,TOP BACITRACIN 250IU/NEOMYCIN 5MG OINT,TOP NEOSTIGMINE 2.5MG/VIAL INJ NIFEDIPINE 20MG TAB,ORAL NITROGLYCERIN 1MG/1ML INJ OMEPRAZOLE 40MG/VIAL INJ OXYTOCIN 5 UNITS/ML INJ PEGINTEFERON ALFA 2A 180MCG INJ PHYTONADIONE 2MG/ML INJ PRAVASTATIN SODIUM 40MG TAB,ORAL SILVER SULFADIAZINE/CERIUM NITRATE CRM SENNA GLYCOSIDES 12MG TAB,ORAL RIBAVIRIN 200MG CAP,ORAL SIMETHICONE 120MG TAB,CHEW SIMVASTATIN 20MG TAB,ORAL SODIUM BICARBONATE 500MG TAB,ORAL SPIRONOLACTONE 50MG TAB,ORAL TAMOXIFEN CITRATE 20MG TAB,ORAL TERBINAFINE 1% CREAM,TOP TERBINAFINE 1% SPRAY,TOP TERBINAFINE 125MG TAB,OARL TERBINAFINE 250MG TAB,ORAL TIROFIBAN HCL 250MCG/ML INJ GRAMCID/NEOMYCIN/NYSTATIN/TAC CREAM,TOP ECONAZOLE 1%/TAC 0.1% CREAM,TOP 30GM VITAMIN B COMPLEX SYRUP,ORAL VITAMIN B COMPLEX TAB,ORAL FENTANYL CITRATE 100MCG/2ML INJ MORPHINE SULFATE 10MG TAB,ORAL REMIFENTANIL HCL 2MG/VIAL INJ CARBOPLATIN 50MG/VIAL INJ CARBOPLATIN 450MG/VIAL INJ CISPLATIN 50MG/VIAL INJ ASPARAGENASE 10,000UNITS/VIAL INJ CYTARABINE 500MG/VIAL INJ EPIRUBICIN HCL 50MG/VIAL INJ ETOPOSIDE 100MG/VIAL INJ FLUOROURACIL 250MG/VIAL INJ FLUOROURACIL 500MG/VIAL INJ FLUOROURACIL 1000MG/VIAL INJ IFOSFAMIDE 1GM/VIAL INJ MESNA 400MG/4ML INJ METHOTREXATE 50MG/VIAL INJ MERCAPTOPUINE 50MG TAB,ORAL IDARUBICIN HCL 10MG/VIAL INJ FILGRASTIM 0.3MG/VIAL INJ PACLITAXEL 300MG/VIAL INJ PACLITAXEL 30MG/VIAL INJ PACLITAXEL 50MG/VIAL INJ GEMCITABINE 1GM/VIAL INJ FLUDARABINE 50MG/VIAL INJ ANASTROZOLE 1MG TAB,ORAL LETROZOLE 2.5MG TAB,ORAL IMATINIB 100MG CAP,ORAL OXALIPLATIN 50MG/VIAL INJ BICALUTAMIDE 50MG TAB,ORAL EXEMESTANE 25MG TAB,ORAL ZOLEDRONIC ACID 4MG/VIAL INJ CAPECITAB ORALINE 500MG TAB,ORAL RITUXIMAB 100MG/VIAL INJ RITUXIMAB 500MG/VIAL INJ TRASTUZUMAB 440MG/VIAL INJ DOCETAXEL 20MG/VIAL INJ ALPROSTADIL 20MCG/VIAL INJ TRIPTORELIN PAMOATE 11.25MG/VIAL INJ GOSERELIN ACETATE 10.8MG INJ,IMPLANT IRINOTECAN HCL 40MG/VIAL INJ IRINOTECAN HCL 100MG/VIAL INJ VINORELBINE TARTRATE 10MG/VIAL INJ TEMOZOLOMIDE 100MG CAP,ORAL TEMOZOLOMIDE 250MG CAP,ORAL LAMIVUDINE 150/ZIDOVUDINE 3OO TAB,ORAL LOPINAVIR 80MG/RITONAVIR 20MG/ML SOLN ^C sam@sam-desktop:~/pocn-moh$ mumps -dir GTM>S DUZ=111 D ^XUP Setting up programmer environment This is a TEST account. Terminal Type set to: C-VT102 You have 2 new messages. Select OPTION NAME: GTM>; How to launch a job in Taskman GTM>; Variables GTM>; ZTDESC -> Name of the Job GTM>; ZTRTN -> What Entry Point to Execute GTM>; ZTSAVE(var) -> Variable name to save GTM>; ZTH -> Optional Start Time GTM>; then run ^%ZTLOAD GTM>ZP ^KBANJOBBED KBANJOBBED ; jobbed process ; 4/3/11 1:30pm ; ; Goes through the drug file and prints stuff NEW I SET I=0 FOR SET I=$O(^PSDRUG(I)) QUIT:'I HANG .1 WRITE $P(^(I,0),"^"),! QUIT GTM>SET ZTDESC="Sam's Jobbed Process" GTM>SET ZTRTN="^KBANJOBBED" GTM>; ZTSAVE is empty GTM>; ZTH is empty -> means start now GTM>; Open a device for taskman to use GTM>D ^%ZIS DEVICE: HOME// HFS Host File Server (GT.M) HOST FILE NAME: /tmp/hfs.dat///tmp/taskman.txt ADDRESS/PARAMETERS: newversion// GTM>zwrite IO IO="/tmp/taskman.txt" IO(0)="/dev/pts/0" IO(1,"/dev/pts/0")="" IO(1,"/tmp/taskman.txt")="" IO("ERROR")="" IO("HOME")="50^/dev/pts/0" IO("IP")="172.16.16.56" IO("ZIO")="/dev/pts/0" GTM>D ^%ZTLOAD Requested Start Time: NOW// (APR 06, 2011@10:17:41) GTM>ZWRITE %L=41 DILOCKTM=3 DISYS=19 DT=3110406 DTIME=3600 DUZ=111 DUZ(0)="#" DUZ(1)="" DUZ(2)=68 DUZ("AG")="E" DUZ("BUF")=1 DUZ("LANG")="" IO="/tmp/taskman.txt" IO(0)="/dev/pts/0" IO(1,"/dev/pts/0")="" IO(1,"/tmp/taskman.txt")="" IO("ERROR")="" IO("HOME")="50^/dev/pts/0" IO("IP")="172.16.16.56" IO("ZIO")="/dev/pts/0" IOBS="$C(8)" IOF="#" IOHG="" IOM=132 ION="HFS" IOPAR="(newversion)" IOS=48 IOSL=64 IOST="P-OTHER" IOST(0)=16 IOT="HFS" IOUPAR="" IOXY="" POP=0 U="^" X="21;DIC(4.2," XPARSYS="21;DIC(4.2," XQXFLG="^^XUP" ZTSK=6722 ZTSK("D")="62187,37061" GTM>H sam@sam-desktop:~/pocn-moh$ cd /tmp sam@sam-desktop:/tmp$ ls acroread_1000_1000 gtm_mutex00004701 orbit-sam bmx_0230.k gtm_mutex00004722 pulse-IIjN7fmb39j4 bmx_0400.k gtm_mutex0000484A samerr.txt bmx_0400.zip gtm_mutex0000486B samjobbed.txt bmx_040u.pdf gtm_mutex000048DE ssh-Wjdesr1141 bsdx0150.v3.k gtm_mutex00004A59 taskman.txt fis-gtm gtm_mutex00004ABD vistaprint_1467048521.txt gedit.sam.214023122 haze-y01geQ vistaprint_1735024255.txt gtm_mutex00001A91 hfs.dat vistaprint_2263877717.txt gtm_mutex00001AAA keyring-lKbb7L vistaprint_4057892024.txt gtm_mutex00001AD7 md-sam-socket vistaprint_981620509.txt gtm_mutex000046B3 orbit-root sam@sam-desktop:/tmp$ tail -f taskman.txt ^@^C sam@sam-desktop:/tmp$ tail -f hfs.dat PLASTER TENSO 7.5CM X 4.5M ROLL POVIDINE IODINE 7.5% SURGICAL SCRUB,TOP GLOVES DISPOSABLE POLYETHYLENE (MEDIUM) GLOVES DISPOSABLE POLYETHYLENE (LARGE) GLOVES LATEX NON-STERILE (MEDIUM) GLOVES LATEX NON STERILE (LARGE) OXYGEN MASK DISPOSABLE COMPLETE (INFANT) OXYGEN MASK DISPOSABLE COMPLETE (CHILD) OXYGEN MASK DISPOSABLE COMPLETE (ADULT) OXYGEN MASK W/NEBULIZER JAR (INFANT) OXYGEN MASK W/NEBULIZER (CHILD) OXYGEN MASK W/NEBULIZER (ADULT) SPINAL NEEDLE G20 SPINAL NEEDLE G22 DOSE REGULATOR IN PEEL BACK,STERILE AIR WAY DISPOSABLE SIZE 00 AIR WAY DISPOSABLE SIZE 0 AIR WAY DISPOSABLE SIZE 1 AIR WAY DISPOSABLE SIZE 2 AIR WAY DISPOSABLE SIZE 3 COVER CANNULA NASAL CANNULA - CHILD NASAL CANNULA - ADULT MASK VENTURE DISPOSABLE EPIDURAL W/TOUY NEEDLE DISPOSABLE G16 EPIDURAL W/TOUY NEEDLE DISPOSABLE G18 PATIENT CIRCUIT AYRES T PIECE PATIENT CIRCUIT MAGILL CIRCUITS PATIENT CIRCUIT BAIN CIRCUITS LARYNGEAL MASK NASO-PHARYNGEAL AIR WAY BREATHING SYSTEM FILTER CANNULA INFUSION REUSABLE 4MM CANNULA INFUSION REUSABLE 6MM FLUORESCEIN PAPER SINGLES EYE PAD VACUUM TREPHINE RECEPIENT 7.5 VACUUM TREPHINE DONOR 7.75 EYE SHIELD CLEAR,UNIVERSAL CANNULA LACRIMAL ADAPTER TITANIUM SYRINGE W/NEEDLE 29Gx1/2IN 1ML INSULIN SYRINGE W/NEEDLE 23Gx1IN 2ML SYRINGE W/NEEDLE 22Gx1.5IN 5ML SYRINGE W/NEEDLE 21Gx1.5IN 10ML SYRINGE W/NEEDLE 21Gx1.5IN 10ML SYRINGE W/NEEDLE 19Gx1.5IN 20ML SYRINGE W/NEEDLE 50ML SYRINGE IRRIGATION 50-60ML SUCTION TUBE SIZE 8 SUCTION TUBE SIZE 10 SUCTION TUBE SIZE 12 SUCTION TUBE SIZE 14 FOLEY CATHETER 2WAY SIZE 6 FOLEY CATHETER 2WAY SIZE 8 FOLEY CATHETER 2WAY SIZE 10 FOLEY CATHETER 2WAY SIZE 12 FOLEY CATHETER 2WAY SIZE 14 FOLEY CATHETER 2WAY SIZE 16 FOLEY CATHETER 2WAY SIZE 20 FOLEY CATHETER 2WAY SIZE 18 FOLEY CATHETER 2WAY SIZE 22 SURGICAL GLOVE SIZE 7 SURGICAL GLOVE SIZE 7.5 SURGICAL GLOVE SIZE 8 SUCTION TUBE SIZE 16 SUCTION TUBE SIZE 18 STOPCOCK 3-WAY THERMOMETER ORAL THERMOMETER RECTAL IDENTIFICATION BAND ADULT ID BAND CHILD NEBULIZER KIT DRAW SHEET DIAPERS ADULT LARGE DEXTROSE 10% INJ 1000ML SYRINGE 60ML SYRINGE 20ML SYRINGE 10ML SYRINGE 5ML SYRINGE 2ML SYRINGE 1ML SURGICAL GLOVE SIZE 6.5 SURGICAL GLOVE SIZE 8.5 LATEX GLOVE, SMALL LATEX GLOVE, MEDIUM LATEX GLOVE LARGE CANNULA SIZE 18 CANNULA SIZE 20 CANNULA SIZE 22 CANNULA SIZE 24 MICRO-DROPPER 150ML SHAVING SET E.C.G. ELECTRODE ADULT DISPOSABLE CONDOM EXTRA LARGE HOLLOW FIBER DIALIZER 650 DISPOSABLE CONDOM LARGE OPERATING GOWN PATIENT OPERATING HEAD CAP URINE BAG ADULT CATHETER FOLEY 3WAY SIZE 20 CATHETER FOLEY 3WAY SIZE 22 FOLEY CATHETER 3WAY SIZE 24 E.C.G. ROLL 10 EXTERNAL DRAIN SET EPIDURAL CATHETER ENDOTRACHEAL TUBE 8.5 ENDOTRACHEAL TUBE DOUBLE LUMEN SYRINGE 50ML BODY LOTION,TOP (SARNOL) NEBULIZER KIT CHILD SUCTION TUBE SIZE 6 HOLLOW FIBER DIALIZER 1.6 C.V.P. LINE 18 COLOSTOMY BASE 50 COLOSTOMY BASE 80 SYRINGE 50ML TIP COTTON SWAB DOUBLE-J CATHETER DYNA CAST BANDAGE DOSE FLOW FACE MASK SURGICAL COVER FOR SHOES SURGICAL BLADE SIZE 18 CONNECTION T TUBE CALCIUM ALGINATE SACHET CENTRAL LINE GROMMET T TUBE ADULT SHARP BOX SUCTION MACHINE VASCULAR GRAFT POLYESTER D-14x7MM,L-40CM VASCULAR GRAFT POLYESTER D-12x7MM,L-40CM VASCULAR GRAFT POLYESTER D-6MM,L-60CM,ST VASCULAR GRAFT POLYSTER D-14MM,L-60CM,ST VASCULAR GRAFT POLYESTER D-8MM,L-60CM,ST VASCULAR GRAFT POLYSTER D-8MM,L-100CM,ST RUBBER REBREATHING BAG 0.5 LITER RUBBER REBREATHING BAG 1.0 LITER RUBBER REBREATHING BAG 1.5 LITER RUBBER REBREATHING BAG 2.0 LITER SUCTION TUBE BLACK W/YEL LINE 6.35x12.75 SUCTION TUBE TRANSPARENT 7MM x 9MM ENDOTRACHEAL TUBE 3.0 ENDOTRACHEAL TUBE 3.5 ENDOTRACHEAL TUBE 4.0 ENDOTRACHEAL TUBE 4.5 ENDOTRACHEAL TUBE 2.0 ENDOTRACHEAL TUBE 2.5 ENDOTRACHEAL TUBE 6.0 ENDOTRACHEAL TUBE 5.0 ENDOTRACHEAL TUBE 5.5 ENDOTRACHEAL TUBE UNKINKABLE 6.5 ENDOTRACHEAL TUBE 6.5 ENDOTRACHEAL TUBE 7.0 ENDOTRACHEAL TUBE 7.5 ENDOTRACHEAL TUBE 8.0 ENDOBRONCHIAL TUBE DBL LUMEN 37 LEFT ENDOBRONCHIAL TUBE DBL LUMEN 37 RIGHT ENDOBRONCHIAL TUBE DBL LUMEN 39 LEFT ENDOBRONCHIAL TUBE DBL LUMEN 39 RIGHT POSTERIOR CHAMBER INTRAOCULAR LENS CYSTOTOME IRRIGATING ANGLED 40x12.5 CYCTOTOME N0N-IRRIGATING KNIFE,CRESCENT ANGLED BEVEL UP 2.25MM KNIFE,IOL ANGLED 5.5MM KNIFE,MVR ANGLED G20 KNIFE,MVR STRAIGHT G20 EYE SPONGE MICROSURGICAL 5/PACK MANIPULATING HOOK IOL ANGLED REUSABLE CANNULA MICRO J SHAPED CATHETER,DBL LUMEN HEMODIALYSIS 9-11CM CATHETER,DBL LUMEN HEMODIALYSIS 13-14CM CATHETER,DBL LUMEN HEMODIALYSIS 15-16CM SCISSORS,CLAMP PLASTIC CATHETER STYLET PERITONEAL NEONATE CATHETER STYLET PERITONEAL PEDIATRIC CATHETER STYLET PERITONEAL ADULT CATHETER TENKOFF PEDIATRIC CATHETER TENKOFF ADULT MINICAP COVER CATHETER ADAPTER (BAXTER ABDUCTION SPLINT WITH SS BAR SMALL ABDUCTION SPLINT WITH SS BAR MEDIUM ABDUCTION SPLINT WITH SS BAR LARGE CATHETER SUCTION CH-6 CATHETER SUCTION CH-8 CATHETER SUCTION CH-10 CATHETER SUCTION CH-14 CATHETER SUCTION CH-12 CATHETER SUCTION CH-16 CATHETER SUCTION CH-18 ECG CHEST ELECTRODE ADULT URINE COLLECTOR MALE/FEMALE 100/PKT URINE BAG CHILD IDENTIFICATION BAND CHILD IDENTIFICATION BAND MOTHER/CHILD RECTAL TUBE SIZE 25-35 DORMIA BASKET CHEMICAL INDICATOR STEAM STERILIZER CHEMICAL INDICATOR ETHYLENE O2 STERLIZER SURGICAL BLADE SIZE 10 SURGICAL BLADE SIZE 11 SURGICAL BLADE SIZE 12 SURGICAL BLADE SIZE 15 SURGICAL BLADE SIZE 20 SURGICAL BLADE SIZE 22 SURGICAL BLADE SIZE 24 FEEDING TUBE CH-4 FEEDING TUBE CH-5 FEEDING TUBE CH-6 ^C sam@sam-desktop:/tmp$ cd - /home/sam/pocn-moh sam@sam-desktop:~/pocn-moh$ mumps -dir GTM>; Transaction commands GTM>; - Used to save values simultaneous to the DB GTM>; - Do not do locking for you!!! GTM>; (except if you include the SERIAL keyword) GTM>; Syntax GTM>; TSTART () - To start a transaction GTM>; TCOMMIT - To end a transaction GTM>K ^ZSAM GTM>TSTART () GTM>WRITE $TLEVEL 1 GTM>S ^ZSAM=1 GTM>S ^XSAM=1 GTM>TCOMMIT GTM>; In order to enforce some kind of synchronization between GTM>; different processes... GTM>; TSTART ():SERIAL GTM>; What this does is that only 1 process can do a transaction at a time GTM>; If this is not good enough (e.g. when making appointments for the same slot, where it is really necessary for only one person to touch the slot at a time) GTM>; Implement locking GTM>; LOCK ^SC(4,3101123.1) -> At 10 am, nobody can make appointments GTM>; except this process GTM>; which is tied to a user GTM>; TSTART () GTM>; ETC ETC ETC GTM>; TCOMMIT GTM>; LOCK -^SC(4,3101123.1) GTM>LOCK +SAM GTM>LOCK +BLAHBLAHBLAH GTM>S DPT=1 GTM>S DFN=33 GTM>L +^DPT(DFN) GTM>ZSHOW "L" MLG:3,MLT:0 LOCK ^DPT(33) LEVEL=1 LOCK BLAHBLAHBLAH LEVEL=1 LOCK SAM LEVEL=1 GTM>L GTM>; $TLEVEL is useful to know if a transaction is taking place GTM>WRITE $TLEVEL 0 GTM>; TROLLBACK - Rollback the transaction GTM>; TRESTART - Restart the transaction GTM>; TSTART takes several parameters GTM>; TSTART just by itself starts a non-restartable transaction GTM>; never USE THAT in GT.M GTM>; b/c GT.M always restarts transactions if somebody else is editing the globals GTM>; If you intend to use TSTART, use TSTART () GTM>; paren make the transaction restartable GTM>zed "UJOPTREG" GTM>; What do these parens mean???? GTM>; () - Don't restore any variables when restarting GTM>; (*) - Restore all variables when restarting GTM>; (X,Y) - Restore just X, and Y, not Z. GTM>; TSTART ():SERIAL:TRANSACTIONID="UJOPTREG" GTM>; Be careful between Transactions and the Error Trap GTM>; %ZTER rolls back the transaction AFTER it records the data GTM>; - which means ^XTER shows absolutely nothing!!! GTM>zed "KBANTRAN" GTM>zl GTM>k ^ZSAM GTM>ZP ^KBANTRAN KBANTRAN ; Transactions Test ; 4/6/11 10:57am ;; ;N $ETRAP S $ETRAP="GOTO ERR" N $ESTACK,$ETRAP S $ETRAP="D ERR^ZU Q:$QUIT -9 Q" ;;test error ;W 1/0 ;;end test TSTART ():SERIAL ;;test error in transaction ;W 1/0 ; --> NOT LOGGED. VISTA Error Trap doesn't behave well with Transact ions ;This causes big big problems. Can't know what error happened. ;;end test SET ^ZSAM=1 ; Only in this process ^ZSAM is 1 SET ^ZSAM(1)=1 ; Still only in this process READ "In the middle of the transaction.",X,! TCOMMIT ; Save Data QUIT ERR BREAK GTM>D ^KBANTRAN In the middle of the transaction. GTM>ZED GTM>zl GTM>D ^KBANTRAN sam@sam-desktop:~/pocn-moh$ mumps -dir GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 4 errors logged on 4/6/2011 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: 4 Process ID: 19150 (19150) APR 06, 2011 10:58:44 UCI/VOL: [EHR,EHR] $ZA: 0 $ZB: \013 Current $IO: /dev/pts/0 Current $ZIO: ^0^4^/dev/pts/0 $ZE= KBANTRAN+5^KBANTRAN, Attempt to divide by zero,150373210,-%GTM-E-DIVZERO W 1/0 Last Global Ref: ^ZSAM(1) Which symbol? > ^L $DEVICE= $ECODE=,M9,Z150373210, $ESTACK=3 $ETRAP=D UNWIND^ZU $QUIT=0 $STACK=4 $STACK(000)=-dir $STACK(000,"ECODE")= $STACK(000,"PLACE")=+1^GTM$DMOD $STACK(000,"MCODE")= $STACK(001)=DO $STACK(001,"ECODE")=,M9,Z150373210, $STACK(001,"PLACE")=KBANTRAN+5^KBANTRAN $STACK(001,"MCODE")= W 1/0 $STACK(002)=DO $STACK(002,"ECODE")= $STACK(002,"PLACE")=ERR2+6^ZU $STACK(002,"MCODE")= D ^%ZTER K %ZT ; Capture symbol table first! $X $Y=0 4 Enter '^' to quit listing, <RETURN> to continue...: $ZV=GT.M V5.4-001 Linux x86 %ZT("^XUTL(""XQ"",$J)")= %ZTER11I=EHR,EHR %ZTER11N=4 %ZTER11S= %ZTER11Z=0 %ZTER12A=0 %ZTER12B=\\013 %ZTERCNT=28 %ZTERH1=62187 %ZTERROR= %ZTERRT=^%ZTER(1,62187,1,4) %ZTERSUB=%ZTER11S) %ZTERVAP=%ZT( %ZTERVAR=%ZTERVAR %ZTERZE=KBANTRAN+5^KBANTRAN, Attempt to divide by zero,150373210,-%GTM-E-DIVZERO DFN=33 DPT=1 X= $ZE= KBANTRAN+5^KBANTRAN, Attempt to divide by zero,150373210,-%GTM-E-DIVZERO W 1/0 Last Global Ref: ^ZSAM(1) Which symbol? > Which error? > Which date? > GTM>ZED %GTM-E-ZEDFILSPEC, Illegal ZEDIT file specification: GTM>ZED "KBANTRAN" GTM>zl GTM>ZP ^KBANTRAN KBANTRAN ; Transactions Test ; 4/6/11 10:59am ;; ;N $ETRAP S $ETRAP="GOTO ERR" N $ESTACK,$ETRAP S $ETRAP="D ERR^ZU Q:$QUIT -9 Q" ;;test error ;W 1/0 ;;end test TSTART ():SERIAL ;;test error in transaction W 1/0 ; --> NOT LOGGED. VISTA Error Trap doesn't behave well with Transactions ;This causes big big problems. Can't know what error happened. ;;end test SET ^ZSAM=1 ; Only in this process ^ZSAM is 1 SET ^ZSAM(1)=1 ; Still only in this process READ "In the middle of the transaction.",X,! TCOMMIT ; Save Data QUIT ERR BREAK GTM>D ^KBANTRAN RECORDING THAT AN ERROR OCCURRED --- Sorry 'bout that $STACK=3 $ECODE= $ZSTATUS=150373210,KBANTRAN+9^KBANTRAN,%GTM-E-DIVZERO, Attempt to divi de by zerosam@sam-desktop:~/pocn-moh$ mumps -dir GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 4 errors logged on 4/6/2011 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: Which error? > Which date? > GTM>ZED %GTM-E-ZEDFILSPEC, Illegal ZEDIT file specification: GTM>ZED "KBANTRAN" GTM>zl GTM>zp ^KBANTRAN KBANTRAN ; Transactions Test ; 4/6/11 11:01am ;; ;N $ETRAP S $ETRAP="GOTO ERR" N $ESTACK,$ETRAP S $ETRAP="GOTO ERR^KBANTRAN" ;;test error ;W 1/0 ;;end test TSTART ():SERIAL ;;test error in transaction W 1/0 ; --> NOT LOGGED. VISTA Error Trap doesn't behave well with Transactions ;This causes big big problems. Can't know what error happened. ;;end test SET ^ZSAM=1 ; Only in this process ^ZSAM is 1 SET ^ZSAM(1)=1 ; Still only in this process READ "In the middle of the transaction.",X,! TCOMMIT ; Save Data QUIT ERR D ^%ZTER BREAK HALT GTM>D ^KBANTRAN %GTM-I-BREAK, Break instruction encountered At M source location ERR+2^KBANTRAN GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 5 errors logged on 4/6/2011 5) <(DIVZERO)>KBANTRAN+9^KBANTRAN 11:01:55 EHR,EHR 19297 /dev/pts/0 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: ^ Which error? > Which date? > GTM>ZC sam@sam-desktop:~/pocn-moh$ mumps -dir GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 4 errors logged on 4/6/2011 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: Which error? > Which date? > GTM>ZED %GTM-E-ZEDFILSPEC, Illegal ZEDIT file specification: GTM>ZED "KBANTRAN" GTM>zl GTM>zp ^KBANTRAN KBANTRAN ; Transactions Test ; 4/6/11 11:03am ;; ;N $ETRAP S $ETRAP="GOTO ERR" N $ESTACK,$ETRAP S $ETRAP="GOTO ERR^KBANTRAN" ;;test error ;W 1/0 ;;end test TSTART ():SERIAL ;;test error in transaction W 1/0 ; --> NOT LOGGED. VISTA Error Trap doesn't behave well with Transactions ;This causes big big problems. Can't know what error happened. ;;end test SET ^ZSAM=1 ; Only in this process ^ZSAM is 1 SET ^ZSAM(1)=1 ; Still only in this process READ "In the middle of the transaction.",X,! TCOMMIT ; Save Data QUIT ERR TROLLBACK D ^%ZTER BREAK HALT GTM>D ^KBANTRAN %GTM-I-BREAK, Break instruction encountered At M source location ERR+3^KBANTRAN GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 5 errors logged on 4/6/2011 5) <(DIVZERO)>KBANTRAN+9^KBANTRAN 11:03:37 EHR,EHR 19305 /dev/pts/0 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: Which error? > Which date? > GTM>ZC sam@sam-desktop:~/pocn-moh$ mumps -dir GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 5 errors logged on 4/6/2011 5) <(DIVZERO)>KBANTRAN+9^KBANTRAN 11:03:37 EHR,EHR 19305 /dev/pts/0 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: Which error? > Which date? > GTM>ZED %GTM-E-ZEDFILSPEC, Illegal ZEDIT file specification: GTM>ZED "KBANTRAN" GTM>zl GTM>zp ^KBANTRAN KBANTRAN ; Transactions Test ; 4/6/11 11:04am ;; ;N $ETRAP S $ETRAP="GOTO ERR" N $ESTACK,$ETRAP S $ETRAP="GOTO ERR^KBANTRAN" ;;test error W 1/0 ;;end test TSTART ():SERIAL ;;test error in transaction W 1/0 ; --> NOT LOGGED. VISTA Error Trap doesn't behave well with Transactions ;This causes big big problems. Can't know what error happened. ;;end test SET ^ZSAM=1 ; Only in this process ^ZSAM is 1 SET ^ZSAM(1)=1 ; Still only in this process READ "In the middle of the transaction.",X,! TCOMMIT ; Save Data QUIT ERR TROLLBACK D ^%ZTER BREAK HALT GTM>D ^KBANTRAN %GTM-E-TLVLZERO, Transaction is not in progress GTM>ZED GTM>zl GTM>zp ^KBANTRAN KBANTRAN ; Transactions Test ; 4/6/11 11:06am ;; ;N $ETRAP S $ETRAP="GOTO ERR" N $ESTACK,$ETRAP S $ETRAP="GOTO ERR^KBANTRAN" ;;test error W 1/0 ;;end test TSTART ():SERIAL ;;test error in transaction W 1/0 ; --> NOT LOGGED. VISTA Error Trap doesn't behave well with Transactions ;This causes big big problems. Can't know what error happened. ;;end test SET ^ZSAM=1 ; Only in this process ^ZSAM is 1 SET ^ZSAM(1)=1 ; Still only in this process READ "In the middle of the transaction.",X,! TCOMMIT ; Save Data QUIT ERR IF $TLEVEL>0 TROLLBACK ; if there's a transaction in progress D ^%ZTER BREAK HALT GTM>D ^KBANTRAN %GTM-I-BREAK, Break instruction encountered At M source location ERR+3^KBANTRAN GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 6 errors logged on 4/6/2011 6) <(DIVZERO)>KBANTRAN+5^KBANTRAN 11:06:54 EHR,EHR 19313 /dev/pts/0 5) <(DIVZERO)>KBANTRAN+9^KBANTRAN 11:03:37 EHR,EHR 19305 /dev/pts/0 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: ^ Which error? > Which date? > GTM>ZC sam@sam-desktop:~/pocn-moh$ mumps -dir GTM>D ^XTER In response to the DATE prompt you can enter: 'S' to specify text to be matched in error or routine name 6 errors logged on 4/6/2011 6) <(DIVZERO)>KBANTRAN+5^KBANTRAN 11:06:54 EHR,EHR 19313 /dev/pts/0 5) <(DIVZERO)>KBANTRAN+9^KBANTRAN 11:03:37 EHR,EHR 19305 /dev/pts/0 4) <(DIVZERO)>KBANTRAN+5^KBANTRAN 10:58:44 EHR,EHR 19150 /dev/pts/0 3) <(SOCKWRITE)>SNDERR+4^BMXMON 09:59:26 EHR,EHR 18862 0 2) <(SOCKWRITE)>SNDERR+4^BMXMON 09:26:17 EHR,EHR 18581 0 1) <(UNDEF)>DO+2^%XUCI 01:30:01 EHR,EHR 17277 0 No screened error Enter '^' to quit listing, <RETURN> to continue...: Which error? > Which date? > GTM>ZED %GTM-E-ZEDFILSPEC, Illegal ZEDIT file specification: GTM>ZED "KBANTRAN" GTM>zl GTM>zp ^KBANTRAN KBANTRAN ; Transactions Test ; 4/6/11 11:08am ;; ;N $ETRAP S $ETRAP="GOTO ERR" N $ESTACK,$ETRAP S $ETRAP="GOTO ERR^KBANTRAN" ;;test error W 1/0 ;;end test TSTART ():SERIAL ;;test error in transaction W 1/0 ; --> NOT LOGGED. VISTA Error Trap doesn't behave well with Transactions ;This causes big big problems. Can't know what error happened. ;;end test SET ^ZSAM=1 ; Only in this process ^ZSAM is 1 SET ^ZSAM(1)=1 ; Still only in this process READ "In the middle of the transaction.",X,! TCOMMIT ; Save Data QUIT ERR TROLLBACK ; if there's a transaction in progress D ^%ZTER W "ERROR" GTM>D ^KBANTRAN %GTM-E-TLVLZERO, Transaction is not in progress GTM>ZED GTM>zl GTM>