Troubleshooting Errors in the Error Trap

Download PDF

 

 

VAH>D ^XUP

 

Setting up programmer environment

Terminal Type set to: C-VT320

 

Select OPTION NAME: XUERTRAP Error Trap Display

Error Trap Display

 

In response to the DATE prompt you can enter:

‘S’ to specify text to be matched in error or routine name

 

 

10 errors logged on 9/20/2004

10) <READ>MAIN+5^XWBTCPC 20:43:11 VAH,ROU 2060 |TCP|4497

9) U2^FHORD7 18:39:07 VAH,ROU 1056 |TNT|MS_SHELL

8) <READ>MAIN+5^XWBTCPC 14:43:34 VAH,ROU 3432 |TCP|2023

7) <READ>MAIN+5^XWBTCPC 13:51:02 VAH,ROU 3040 |TCP|1531

6) <UNDEFINED>TREE+1^LREXPD 13:48:15 VAH,ROU 3360 |TNT|nor-lab-

5) <READ>MAIN+5^XWBTCPC 13:47:25 VAH,ROU 1740 |TCP|4296

4) <UNDEFINED>TREE+1^LREXPD 13:35:57 VAH,ROU 3640 |TNT|nor-lab-

3) <READ>MAIN+5^XWBTCPC 13:30:35 VAH,ROU 3424 |TCP|1271

2) <SUBSCRIPT>PRINT+7^LRLABXOL 06:49:46 VAH,ROU 2708 |PRN|\\NOR-DC

1) <READ>MAIN+5^XWBTCPC 01:47:26 VAH,ROU 3740 |TCP|3669

 

 

No screened error

 

 

Enter ‘^’ to quit listing, <RETURN> to continue…: 9

 

 

 

Process ID: 1056 (1056) SEP 20, 2004 18:39:07

 

Username: Process Name:

 

UCI/VOL: [VAH,ROU] :

 

$ZA: 0 $ZB: –

 

Current $IO: |TNT|MS_SHELLY:1457|1056 Current $ZIO: MS_SHELLY/1457^23^79

 

CPU time: Page Faults:

 

Direct I/O: Buffered I/O:

 

$ZE= <UNDEFINED>U2^FHORD7

 

U2 I $P(^FHPT(DFN,”A”,ADM,0),”^”,2,3)=X1_”^”_X2 Q Last Global Ref: ^FHPT(1405,”A”,3110,0)

 

 

 

Which symbol? > ^L

 

$DEVICE=

$ECODE=,M7,

$ESTACK=6

$ETRAP=UNWIND^ZU

$QUIT=0

$STACK=7

$STACK(000)=

$STACK(000,”ECODE”)=

$STACK(000,”MCODE”)=

$STACK(000,”PLACE”)=logon+15^%MLOGIN +2

$STACK(001)=XECUTE

$STACK(001,”ECODE”)=

$STACK(001,”MCODE”)= D @XQZ G OUT

$STACK(001,”PLACE”)=@ +1

$STACK(002)=DO

$STACK(002,”ECODE”)=

$STACK(002,”MCODE”)= D D0 G:’DFN KIL D PROC

$STACK(002,”PLACE”)=F0+2^FHORD1 +3

$STACK(003)=DO

$STACK(003,”ECODE”)=

$STACK(003,”MCODE”)= D STR^FHORD7,^FHORDR D:D4 POST^FHORD7 Q

$STACK(003,”PLACE”)=PROC+1^FHORD1 +1

$STACK(004)=DO

$STACK(004,”ECODE”)=,M7,

$STACK(004,”MCODE”)=U2 I $P(^FHPT(DFN,”A”,ADM,0),”^”,2,3)=X1_”^”_X2 Q

$STACK(004,”PLACE”)=U2^FHORD7 +1

$STACK(005)=DO

$STACK(005,”ECODE”)=

$STACK(005,”MCODE”)= D ^%ZTER

$STACK(005,”PLACE”)=ERR2+2^ZU +1

$X $Y=23 79

$ZU(56,2)=F:/p4work5.0.10/vobs/system/common/src/symbol.c 7530

$ZV=Cache for Windows NT (Intel/P4) 5.0.10 (Build 5300) Mon Jun 28 2004 11:45:48

EDT

%DT=T

%X=ORBADUZ(

%Y=^%ZTSK(ZTSK,.3,ZT1,

%ZT(“^XUTL(“XQ”,$J)”)=

A1=3040920.183907

A2=

ADM=3110

ALL=1

BID=8071

C=-

COM=

CORD=

CT=0

D0=

D1=3040920.183907

D2=0

D3=0

D4=0

DA=1405

DFN=1405

DI(“4”)=14^LIBERAL ADA^LIBERAL^N^4^3^N^LIBERAL

DISYS=18

DP=6

DT=3040920

DTE=

DTIME=900

DUZ=334

DUZ(“0”)=

DUZ(“1”)=

DUZ(“2”)=71

DUZ(“AG”)=O

DUZ(“AUTO”)=1

DUZ(“BUF”)=1

DUZ(“LANG”)=

FHDU=6

FHEVTX=, LIBERAL

FHLD=

FHNEW=D;3110;1;3040920.183907;0;;;T;0;14;;;;

FHOR=14^^^^

FHORD=1

FHPV=334

FHSTS=6

FHWF=1

FLG=0

I=0

IO=|TNT|MS_SHELLY:1457|1056

IO(“0”)=|TNT|MS_SHELLY:1457|1056

IO(“1″,”|TNT|MS_SHELLY:1457|1056”)=

IO(“ERROR”)=

IO(“HOME”)=22^|TNT|MS_SHELLY:1457|1056

IO(“ZIO”)=MS_SHELLY/1457

IOBS=$C(8)

IOF=#,$C(27,91,50,74,27,91,72)

IOM=80

ION=TELNET

IOPAR=

IOS=22

IOSL=24

IOST=C-VT102

IOST(“0”)=60

IOT=VTRM

IOUPAR=

IOXY=W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(102)

J=

K=

K1=31

KK=

L=

N1=1

NOW=3040920.183907

OCXSEG=ODS

ORPC=1

ORVARY=

PDFLG=0

PID=447-18-8071

POP=0

PREC=4

SVC=T

TF=

TYP=T

U=^

VAERR=0

WARD=

WRD=

X1=1 X2=

XMDUZ=334

XPARSYS=3;DIC(4.2,

XQDIC=P539

XQFLAG=1

XQM=3

XQONSTK=4^

XQPSM=P539

XQSV=617^539^FHSPM^Standing Orders^^M^^^^^^^^^^

XQT=R

XQVOL=ROU

XQXFLG=0^0

XQXFLG(“GUI”)=^

XQY=547

XQY0=FHORD1^Order Diet^^R^^^^^^^^^^

XQZ=^FHORD1

Y=Q:$G(A7RNDBI) S:’$D(OCXDUCT) OCXDUCT=”” D SILENT^OCXOHL7(.XQORMSG,.OCXDUCT) K

OCXDUCT

Y(“1″,”1”)=2179^^1

Y(“1002″,”2”)=2252

Z=1

^XUTL(“XQ”,$J,”DUZ”)=334

^XUTL(“XQ”,$J,”DUZ(0)”)=

^XUTL(“XQ”,$J,”DUZ(1)”)=

^XUTL(“XQ”,$J,”DUZ(2)”)=71

^XUTL(“XQ”,$J,”DUZ(AG)”)=O

^XUTL(“XQ”,$J,”DUZ(AUTO)”)=1

^XUTL(“XQ”,$J,”DUZ(BUF)”)=1

^XUTL(“XQ”,$J,”DUZ(LANG)”)=

^XUTL(“XQ”,$J,”IO”)=|TNT|MS_SHELLY:1457|1056

^XUTL(“XQ”,$J,”IOBS”)=$C(8)

^XUTL(“XQ”,$J,”IOF”)=#,$C(27,91,50,74,27,91,72)

^XUTL(“XQ”,$J,”IOM”)=80

^XUTL(“XQ”,$J,”ION”)=TELNET

^XUTL(“XQ”,$J,”IOS”)=22

^XUTL(“XQ”,$J,”IOSL”)=24

^XUTL(“XQ”,$J,”IOST”)=C-VT102

^XUTL(“XQ”,$J,”IOST(0)”)=60

^XUTL(“XQ”,$J,”IOT”)=VTRM

^XUTL(“XQ”,$J,”IOXY”)=W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(102)

^XUTL(“XQ”,$J,”T”)=5

^XUTL(“XQ”,$J,”XQM”)=539

^XUTL(“XQ”,$J,”XQVOL”)=ROU

^XUTL(“XQ”,$J,”XQW”)=

^XUTL(“XQ”,$J,0)=3040920.15433501

^XUTL(“XQ”,$J,1)=539P539^FHMGR^Dietetics Management^^M^.5^^^^^^^9^y^1

^XUTL(“XQ”,$J,2)=605P539^FHMGRC^Clinical Management^^M^^^^^^^^9^^1

^XUTL(“XQ”,$J,3)=540P539^FHDIET^Clinical Dietetics^^M^^^^^^^^9^^1

^XUTL(“XQ”,$J,4)=553P539^FHORDM^Diet Orders^^M^.5^^^^^^^^^1

^XUTL(“XQ”,$J,5)=547P539^FHORD1^Order Diet^^R^^^^^^^^^^

 

 

$ZE= <UNDEFINED>U2^FHORD7

 

 

U2 I $P(^FHPT(DFN,”A”,ADM,0),”^”,2,3)=X1_”^”_X2 Q

 

Last Global Ref: ^FHPT(1405,”A”,3110,0)

 

 

Which symbol? >

 

Which error? >

 

Which date? >

VAH>D ^%G

 

Device: Right margin: 80=>

Global ^

 

VAH>ZP

FHORD7 ; HISC/REL/NCA/JH – Diet Order Utilities ;4/5/96 11:27

;;5.0;Dietetics;**2,6,21,36**;Oct 11, 1995

CUR ; Get Diet

S X1=$G(^FHPT(DFN,”A”,ADM,0)),FHORD=$P(X1,”^”,2),X1=$P(X1,”^”,3),(FHLD,FHOR,X,Y)=””

Q:’FHORD Q:’$D(^FHPT(DFN,”A”,ADM,”DI”,FHORD,0))

C2 ; Set FHOR & FHLD variables & Y = diet text

S X=^FHPT(DFN,”A”,ADM,”DI”,FHORD,0),FHOR=$P(X,”^”,2,6),FHLD=$P(X,”^”,7),Y=””

I FHLD’=”” S FHDU=”;”_$P(^DD(115.02,6,0),”^”,3),%=$F(FHDU,”;”_FHLD_”:”) S:%>0 Y=$P($E(FHDU,%,999),”;”,1) K % Q

C3 S Y=”” F A1=1:1:5 S D3=$P(FHOR,”^”,A1) I D3 S:Y’=”” Y=Y_”, ” S Y=Y_$P(^FH(111,D3,0),”^”,7)

Q

NOW D NOW^%DTC S NOW=% Q

POST ; Generate bulletin

 

S WRD=$P($G(^FHPT(DFN,”A”,ADM,0)),”^”,8) Q:WRD<1

 

S XMKK=$P($G(^FH(119.6,WRD,0)),”^”,2) Q:XMKK<1

 

S XMB=”FHDIORD”,XMY(XMKK)=””

S XMB(1)=$P(^DPT(DFN,0),”^”,1),XMB(2)=$P(^FH(119.6,WRD,0),”^”,1) D C3 S XMB(3)=Y

 

S XMB(5)=$S($D(^DPT(DFN,.101)):^(.101),1:”unknown”)

 

S DTP=D1 D DTP^FH S XMB(4)=DTP D ^XMB K XMB,XMY,XMM,XMDT Q

STR ; Store new diet order

D ORD,NOW

S X=FHORD_”^”_FHOR_”^”_FHLD_”^”_TYP_”^”_D1_”^”_$S(D2:D2,1:””)_”^”_DUZ_”^”_NOW,FHNOW=NOW

S ^FHPT(DFN,”A”,ADM,”DI”,FHORD,0)=X S:COM’=”” ^(1)=COM I FHWF D OE^FHORD71 S NOW=FHNOW

S0 G:’D2 S1 S X2=D2+.000001

S01 S A2=0 F A1=0:0 S A1=$O(^FHPT(DFN,”A”,ADM,”AC”,A1)) Q:A1<1!(A1′<X2) S A2=A1

I A2 S X2=A2,A2=$P(^FHPT(DFN,”A”,ADM,”AC”,A2,0),”^”,2),X1=$P(^FHPT(DFN,”A”,ADM,”DI”,A2,0),”^”,10) I X1’=””,X1′>D2 G S01

F A1=D1:0 S A1=$O(^FHPT(DFN,”A”,ADM,”AC”,A1)) Q:A1<1!(A1′<D2) D SK

 

S Z6=D1_”^”_FHORD D ACR^FHORD71

I ‘A2 D ORD S A2=FHORD,^FHPT(DFN,”A”,ADM,”DI”,FHORD,0)=FHORD_”^^^^^^X^^”_D2_”^^”_DUZ_”^”_NOW

E D OE3

 

S Z6=D2_”^”_A2 D ACR^FHORD71 G S2

S1 I FHLD’=”P” F A1=D1:0 S A1=$O(^FHPT(DFN,”A”,ADM,”AC”,A1)) Q:A1=”” D SK

 

S Z6=D1_”^”_FHORD D ACR^FHORD71

S2 S X1=””,A1=0 G S4

S3 S A1=$O(^FHPT(DFN,”A”,ADM,”AC”,A1)) G:A1=”” S4 S X2=$P(^(A1,0),”^”,2)

I X2<1 D SK G S3

I ‘$D(^FHPT(DFN,”A”,ADM,”DI”,X2,0)) D SK G S3

S X2=^FHPT(DFN,”A”,ADM,”DI”,X2,0) I $P(X2,”^”,2,8)’=$P(X1,”^”,2,8) S X1=X2 G S3

I $P(X1,”^”,10)=”” D SK G S3

I $P(X2,”^”,10),$P(X2,”^”,10)’>$P(X1,”^”,10) D SK G S3

S X1=X2 G S3

S4 D OEU^FHORD71 S NOW=FHNOW K FHNOW G U1

UPD ; Get time & update diet

D NOW I $D(ZTQUEUED),$D(Z6) I NOW<Z6 S NOW=Z6+.0002

U1 ; Update diet

S A1=0 F K=0:0 S K=$O(^FHPT(DFN,”A”,ADM,”AC”,K)) Q:K<1!(K>NOW) S A1=K

G:’A1 U3 S X1=$P(^FHPT(DFN,”A”,ADM,”AC”,A1,0),”^”,2) G S2:X1<1,S2:’$D(^FHPT(DFN,”A”,ADM,”DI”,X1,0))

S X2=$O(^FHPT(DFN,”A”,ADM,”AC”,A1)) S:X2<1 X2=””

U2 I $P(^FHPT(DFN,”A”,ADM,0),”^”,2,3)=X1_”^”_X2 Q

S FHYES=0 I $P(^FHPT(DFN,”A”,ADM,0),”^”,2)=X1 S FHYES=1

S $P(^FHPT(DFN,”A”,ADM,0),”^”,2,3)=X1_”^”_X2,X9=”” I X1 S X9=$P(^FHPT(DFN,”A”,ADM,”DI”,X1,0),”^”,8) I ‘FHYES S EVT=”D^O^”_X1 D ^FHORX

I X9’=””,X9’=$P(^FHPT(DFN,”A”,ADM,0),”^”,5) S $P(^(0),”^”,5)=X9

K X9 D ^FHORD72 K FHYES Q

U3 S (X1,X2)=”” G U2

SK K ^FHPT(DFN,”A”,ADM,”AC”,A1) S Z6=-1 G ACR^FHORD71

ORD ; Get next order #

L +^FHPT(DFN,”A”,ADM,”DI”,0)

I ‘$D(^FHPT(DFN,”A”,ADM,”DI”,0)) S ^FHPT(DFN,”A”,ADM,”DI”,0)=”^115.02A^^”

S X=^FHPT(DFN,”A”,ADM,”DI”,0),FHORD=$P(X,”^”,3)+1,^(0)=$P(X,”^”,1,2)_”^”_FHORD_”^”_($P(X,”^”,4)+1)

L -^FHPT(DFN,”A”,ADM,”DI”,0) Q:’$D(^FHPT(DFN,”A”,ADM,”DI”,FHORD)) G ORD

OE3 ; Enter New Re-enstated Order

Q:$$VERSION^XPDUTL(“OR”)=2.5

D ORD^FHORR S FHNO1=$G(^FHPT(DFN,”A”,ADM,”DI”,A2,0)),FHNO2=$G(^(1)),FHNO3=$G(^(2))

S ^FHPT(DFN,”A”,ADM,”DI”,FHORD1,0)=FHORD1_”^”_$P(FHNO1,”^”,2,8)_”^”_D2_”^”_$P(FHNO1,”^”,10)_”^”_DUZ_”^”_NOW_”^”_$P(FHNO1,”^”,13) S:FHNO2’=”” ^(1)=FHNO2

S:FHNO3 ^(2)=FHNO3,^(3)=DUZ_”^”_NOW S A2=FHORD1 I FHWF D OE^FHORR S NOW=FHNOW

K FHNO1,FHNO2,FHNO3,FHORD1 Q

 

 

 

 

VAH>D Q^DI

 

 

 

VA FileMan 22.0

Select OPTION: DATA DICTIONARY UTILITIES

Select DATA DICTIONARY UTILITY OPTION: LIST FILE ATTRIBUTES

START WITH WHAT FILE: LAB ORDER ENTRY// DIETETICS PATIENT (784 entries)

GO TO WHAT FILE: DIETETICS PATIENT//

Select SUB-FILE:

Select LISTING FORMAT: STANDARD// GLOBAL MAP

DEVICE: TELNET

GLOBAL MAP DATA DICTIONARY #115 — DIETETICS PATIENT FILE

SEP 22,2004@14:18:16 PAGE 1

STORED IN ^FHPT( (784 ENTRIES) SITE: ODVA UCI: VAH,ROU (VERSION 5.0)

——————————————————————————-

This file contains all dietetic orders for each admission of a patient. It

includes diet orders, consult requests, supplemental feedings, early/late tray

requests, and tubefeedings. It also contains any food allergies entered for the

patient.

 

 

 

 

CROSS

REFERENCED BY: EARLY/LATE TRAY(ADLT), DATE/TIME ENTERED(ADR),

CLINICIAN(ADRU), STATUS(ADRV), CURRENT TF ORDER(ADTF),

ISOLATION/PRECAUTION(AIS), STATUS(AOO), ORDER(ASP),

DATE/TIME CANCELLED(ASP1), DIETETIC WARD(AW)

 

 

 

 

 

 

^FHPT(D0,0)= (#.01) NAME [1P:2] ^

^FHPT(D0,A,0)=^115.01D^^ (#1) ADMISSION

^FHPT(D0,A,D1,0)= (#.01) ADMISSION [1D] ^ (#1.1) CURRENT DIET ORDER [2N] ^ ==>(#1.2) DIET ORDER EXPIRATION [3D] ^ ^

 

 

 

 

 

In the example above, here are the steps:

 

1. Check the Error Trap Display paying attention to the line of code and last global reference the error is referencing.
2. List the variables from the error paying attention to the variables referenced in the line of code and last global reference.
3. Look at the program and the global reference.
4. Do a Data Dictionary, List File Attributes in the Global view to find out what is supposed to be in the missing data.
5. In the case above, the missing data was the actual admission data for the Dietetics Patient which did not come across from the PIMS admission.