This the screen shot. I can't make anything out of it. GTM>ZWRITE ^DD(200,"B",*) ^DD(200,"B","ACCESS CODE",2)="" ^DD(200,"B","ACCESS CODE",2.1)=1 ^DD(200,"B","ACCESSIBLE FILE",32)="" ^DD(200,"B","ALERT DATE/TIME",19.4)="" ^DD(200,"B","ALIAS",10)="" ^DD(200,"B","ALIEN VISA",747.12)="" ^DD(200,"B","ALLOW ARA ACCESS",11.6)="" ^DD(200,"B","ALLOW VERIFYING OF OTHERS",71)="" ^DD(200,"B","ALLOWABLE NEW MENU PREFIX",19.6)="" ^DD(200,"B","ALLOWED TO USE SPOOLER",41)="" ^DD(200,"B","ALWAYS SHOW SECONDARIES",200.11)="" ^DD(200,"B","APPOINTMENT DATE",747.4)="" ^DD(200,"B","APPOINTMENT STATUS",747.11)="" ^DD(200,"B","ARA VALUE",11.7)="" ^DD(200,"B","ASK DEVICE TYPE AT SIGN-ON",200.05)="" ^DD(200,"B","ASK TERMINAL TYPE AT LM ENTRY",8983.12)="" ^DD(200,"B","AUTHORIZED TO WRITE MED ORDERS",53.1)="" ^DD(200,"B","AUTO MENU",200.06)="" ^DD(200,"B","AUTO SIGN-ON",200.18)="" ^DD(200,"B","BADGE NUMBER",910.1)="" ^DD(200,"B","BOARD ELIGIBLE",747.6)="" ^DD(200,"B","BRIGHT CHARS AT EXIT FROM LM",8983.15)="" ^DD(200,"B","BYLAWS AGREEMENT DATE",747.29)="" ^DD(200,"B","CAN MAKE INTO A MAIL MESSAGE",41.2)="" ^DD(200,"B","CITY",.114)="" ^DD(200,"B","CLIN PRIVILEGES CHALLENGES ?",747.18)="" ^DD(200,"B","CLINICAL BACKGROUND",747.13)="" ^DD(200,"B","CLINICAL PRIVILEGES",747.17)="" ^DD(200,"B","COMMERCIAL PHONE",.135)="" ^DD(200,"B","CONTINUING EDUCATION PROGRAM",747.36)="" ^DD(200,"B","CONTROL/SUBSTANCE CERT (Y/N)",747.45)="" ^DD(200,"B","CPRS TAB",101.13)="" ^DD(200,"B","CREATOR",31)="" ^DD(200,"B","CURRENT DEGREE LEVEL",12.1)="" ^DD(200,"B","DATE ACCESS CODE LAST CHANGED",2.2)="" ^DD(200,"B","DATE E-SIG LAST CHANGED",20.1)="" ^DD(200,"B","DATE ENTERED",30)="" ^DD(200,"B","DATE EXCLUSIONARY LIST CHECKED",53.94)="" ^DD(200,"B","DATE LAST ACCESSED LM WP",8983.16)="" ^DD(200,"B","DATE REAPPRAISAL IS DUE",747.35)="" ^DD(200,"B","DATE REC'D FROM NPDB",747.381)="" ^DD(200,"B","DATE REFERENCE RECEIVED",747.28)="" ^DD(200,"B","DATE SENT TO NPDB ?",747.38)="" ^DD(200,"B","DATE VERIFY CODE LAST CHANGED",11.2)="" ^DD(200,"B","DEA EXPIRATION DATE",747.44)="" ^DD(200,"B","DEA#",53.2)="" ^DD(200,"B","DEFAULT TERMINAL TYPE FOR LM",8983.13)="" ^DD(200,"B","DEFINED FORMATS FOR LM",8983.51)="" ^DD(200,"B","DEFINED PHRASES FOR LM",8983.52)="" ^DD(200,"B","DEGREE",10.6)="" ^DD(200,"B","DELEGATE OF",19)="" ^DD(200,"B","DELEGATED KEYS",52)="" ^DD(200,"B","DELEGATED OPTIONS",19.5)="" ^DD(200,"B","DELEGATION DATE",19.1)="" ^DD(200,"B","DELEGATION LEVEL",19.2)="" ^DD(200,"B","DELETE ALL MAIL ACCESS",9.21)="" ^DD(200,"B","DELETE KEYS AT TERMINATION",9.22)="" ^DD(200,"B","DIGITAL PAGER",.138)="" ^DD(200,"B","DISPLAY HELP AT ENTRY TO LM",8983.11)="" ^DD(200,"B","DISPLAY LM COMMANDS",8983.14)="" ^DD(200,"B","DISUSER",7)="" ^DD(200,"B","DIVISION",16)="" ^DD(200,"B","DMMS UNITS",720)="" ^DD(200,"B","DOB",5)="" ^DD(200,"B","DUZ(0)",3)=1 ^DD(200,"B","ECFMG COMPLETED",747.24)="" ^DD(200,"B","ECFMG VERIFICATION",747.241)="" ^DD(200,"B","EFFECTIVE DATE",747.112)="" ^DD(200,"B","ELECTRONIC SIGNATURE CODE",20.4)="" ^DD(200,"B","EMAIL ADDRESS",.151)="" ^DD(200,"B","END DATE OF TEMP ADDRESS",.1218)="" ^DD(200,"B","END OF PROBATIONARY PERIOD",747.23)="" ^DD(200,"B","EXCLUSIONARY CHECK PERFORMED",53.93)="" ^DD(200,"B","EXCLUSIONARY CHECKED BY",53.96)="" ^DD(200,"B","Entry Last Edit Date",202.04)="" ^DD(200,"B","FAX NUMBER",.136)="" ^DD(200,"B","FILE MANAGER ACCESS CODE",3)="" ^DD(200,"B","FILE RANGE",31.1)="" ^DD(200,"B","FY assigned",8932.31)="" ^DD(200,"B","FYear",8932.3)="" ^DD(200,"B","GENERAL PRIVILEGE",747.114)="" ^DD(200,"B","HEALTH STATEMENT, APPLICANT",747.26)="" ^DD(200,"B","HEALTH STATEMENT, COLLEAGUE",747.27)="" ^DD(200,"B","HINQ EMPLOYEE NUMBER",14.9)="" ^DD(200,"B","HONORS/OFFICES HELD",747.8)="" ^DD(200,"B","IMMEDIATE SUPERVISOR",654.1)="" ^DD(200,"B","INACTIVE DATE",53.4)="" ^DD(200,"B","INITIAL",1)="" ^DD(200,"B","INTERNSHIP/RESIDENCY",747.43)="" ^DD(200,"B","KEY DELEGATION LEVEL",50.1)="" ^DD(200,"B","KEYS",51)="" ^DD(200,"B","KEYSTROKES FROM LM WP",8983.18)="" ^DD(200,"B","LANGUAGE",200.07)="" ^DD(200,"B","LAST OPTION ACCESSED",202.1)="" ^DD(200,"B","LAST OPTION MAIN MENU",202.2)="" ^DD(200,"B","LAST SIGN-ON DATE/TIME",202)="" ^DD(200,"B","LAST TRAINING YEAR",12.3)="" ^DD(200,"B","LICENSE CHECK",747.19)="" ^DD(200,"B","LICENSE VERIFICATION",747.21)="" ^DD(200,"B","LICENSING STATE",54.1)="" ^DD(200,"B","LICENSURE CHALLENGE ?",747.16)="" ^DD(200,"B","LM LIMIT WP FIELDS TO EDIT",8983.6)="" ^DD(200,"B","MAIL CODE",28)="" ^DD(200,"B","MANDATORY TRAINING",747.2)="" ^DD(200,"B","MENU TEMPLATE",19.8)="" ^DD(200,"B","MULTI-DEVICE DESPOOLING",41.1)="" ^DD(200,"B","MULTIPLE SIGN-ON",200.04)="" ^DD(200,"B","MULTIPLE SIGN-ON LIMIT",200.19)="" ^DD(200,"B","Multiple Sign-on Limit",200.19)=1 ^DD(200,"B","NAME",.01)="" ^DD(200,"B","NAME COMPONENTS",10.1)="" ^DD(200,"B","NETWORK ADDRESS",500)="" ^DD(200,"B","NICK NAME",13)="" ^DD(200,"B","NON-VA PRESCRIBER",53.91)="" ^DD(200,"B","NPDB QUERIED ?",747.37)="" ^DD(200,"B","OFFICE PHONE",.132)="" ^DD(200,"B","ON EXCLUSIONARY LIST",53.95)="" ^DD(200,"B","PAC",14)="" ^DD(200,"B","PAID EMPLOYEE",450)="" ^DD(200,"B","PATIENT SELECTION LIST",101.02)="" ^DD(200,"B","PERSON CLASS",8932.1)="" ^DD(200,"B","PERSON FILE POINTER",8980.16)="" ^DD(200,"B","PERSONAL DIAGNOSES LIST",351)="" ^DD(200,"B","PERTINENT CLINICAL INFORMATION",747.32)="" ^DD(200,"B","PGY assigned",8932.21)="" ^DD(200,"B","PGYear",8932.2)="" ^DD(200,"B","PHONE #3",.133)="" ^DD(200,"B","PHONE #4",.134)="" ^DD(200,"B","PHONE (HOME)",.131)="" ^DD(200,"B","PLACE OF BIRTH",747.41)="" ^DD(200,"B","POSITION/TITLE",654.15)="" ^DD(200,"B","PREFERRED EDITOR",31.3)="" ^DD(200,"B","PRIMARY DEGREE",747.33)="" ^DD(200,"B","PRIMARY MENU OPTION",201)="" ^DD(200,"B","PRIMARY WINDOW",201.1)="" ^DD(200,"B","PROBLEM LIST PRIMARY VIEW",125)="" ^DD(200,"B","PROBLEM SELECTION LIST",125.1)="" ^DD(200,"B","PROFESSIONAL ORGANIZATION",747.7)="" ^DD(200,"B","PROGRAM OF STUDY",12.2)="" ^DD(200,"B","PROHIBITED TIMES FOR SIGN-ON",15)="" ^DD(200,"B","PROVIDER CLASS",53.5)="" ^DD(200,"B","PROVIDER KEY",8932.001)="" ^DD(200,"B","PROVIDER TYPE",53.6)="" ^DD(200,"B","RAD/NUC MED CLASSIFICATION",72)="" ^DD(200,"B","RAD/NUC MED INACTIVE DATE",73)="" ^DD(200,"B","RAD/NUC MED LOCATION ACCESS",74)="" ^DD(200,"B","RANK",910.2)="" ^DD(200,"B","RECOMMENDATION SIGNATURES",747.31)="" ^DD(200,"B","REMARKS",53.9)=1 ^DD(200,"B","RENEW DATE",747.113)="" ^DD(200,"B","REQUIRES COSIGNER",53.7)="" ^DD(200,"B","RESERVED",200.08)="" ^DD(200,"B","RESTRICT PATIENT SELECTION",101.01)="" ^DD(200,"B","RESULTS OF QUERY ?",747.39)="" ^DD(200,"B","ROOM",.141)="" ^DD(200,"B","SCHOOL ATTENDED",747.34)="" ^DD(200,"B","SECONDARY MENU OPTIONS",203)="" ^DD(200,"B","SERVICE",747.1)="" ^DD(200,"B","SERVICE COMPUTATION DATE",747.22)="" ^DD(200,"B","SERVICE/SECTION",29)="" ^DD(200,"B","SEX",4)="" ^DD(200,"B","SIGNATURE BLOCK PRINTED NAME",20.2)="" ^DD(200,"B","SIGNATURE BLOCK TITLE",20.3)="" ^DD(200,"B","SOCIAL WORKER ?",654)="" ^DD(200,"B","SOCIAL WORKER'S NUMBER",654.2)="" ^DD(200,"B","SPECIALTY",747.111)="" ^DD(200,"B","SPELLING EXCEPTION DICTIONARY",8983.5)="" ^DD(200,"B","SSN",9)="" ^DD(200,"B","STAFF REVIEW REQUIRED",70)="" ^DD(200,"B","START DATE OF TEMP ADDRES",.1217)="" ^DD(200,"B","STARTUP DEFAULT",201.2)="" ^DD(200,"B","STATE",.115)="" ^DD(200,"B","STATE ISSUING DEA NUMBER",54.2)="" ^DD(200,"B","STREET ADDRESS 1",.111)="" ^DD(200,"B","STREET ADDRESS 2",.112)="" ^DD(200,"B","STREET ADDRESS 3",.113)="" ^DD(200,"B","SUPPLY EMPLOYEE",400)="" ^DD(200,"B","SURROGATE",654.3)="" ^DD(200,"B","TAX ID",53.92)="" ^DD(200,"B","TEMPORARY ADDRESS 1",.1211)="" ^DD(200,"B","TEMPORARY ADDRESS 2",.1212)="" ^DD(200,"B","TEMPORARY ADDRESS 3",.1213)="" ^DD(200,"B","TEMPORARY CITY",.1214)="" ^DD(200,"B","TEMPORARY STATE",.1215)="" ^DD(200,"B","TEMPORARY ZIP CODE",.1216)="" ^DD(200,"B","TERMINAL TYPE LAST USED",9.3)="" ^DD(200,"B","TERMINATION DATE",9.2)="" ^DD(200,"B","TEXT TERMINATOR",31.2)="" ^DD(200,"B","TIMED READ (# OF SECONDS)",200.1)="" ^DD(200,"B","TIMEFRAME TO RENEW PRIVILEGES?",747.25)="" ^DD(200,"B","TIMESTAMP",203.1)="" ^DD(200,"B","TITLE",8)="" ^DD(200,"B","TOTAL MINUTES USING LM WP",8983.17)="" ^DD(200,"B","TYPE OF APPOINTMENT",747.3)="" ^DD(200,"B","TYPE-AHEAD",200.09)="" ^DD(200,"B","Termination Reason",9.4)="" ^DD(200,"B","UCI",20)="" ^DD(200,"B","USUAL COSIGNER",53.8)="" ^DD(200,"B","VA CAUTIONARY LIST CHECKED?",747.42)="" ^DD(200,"B","VA Person Identification Code",9000)=1 ^DD(200,"B","VA#",53.3)="" ^DD(200,"B","VAF 10-2850 COMPLETION (Y/N)",747.9)="" ^DD(200,"B","VAF 10-2850 LICENSE DATA (Y/N)",747.15)="" ^DD(200,"B","VAF 10-2850 SIGNED/COS (Y/N)",747.14)="" ^DD(200,"B","VERIFY CODE",11)="" ^DD(200,"B","VERIFY CODE",11.1)=1 ^DD(200,"B","VERIFY CODE never expires",7.2)="" ^DD(200,"B","VISITED FROM",8910)="" ^DD(200,"B","VOICE PAGER",.137)="" ^DD(200,"B","VPID",9000)="" ^DD(200,"B","Want to edit ACCESS CODE (Y/N)",2.1)="" ^DD(200,"B","Want to edit VERIFY CODE (Y/N)",11.1)="" ^DD(200,"B","XUS Active User",202.03)="" ^DD(200,"B","XUS Logon Attempt Count",202.02)="" ^DD(200,"B","ZIP CODE",.116)=""
GTM> Usha ----- Original Message ----- From: "Jim Self" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, June 02, 2005 3:18 AM Subject: Re: [Hardhats-members] Another GTM error > Generally, this kind of problem requires looking at data structures rather than code > tracing. You often need to look only a little bit at the code to find the relevant > variables and then use ZWRITE or other tools to view the data values. > > Looping like Usha reports generally comes from a stepping algorithm that trips over > a non-canonic number where a canonic number was assumed. For example: > > s test("ted","1.1")="",test("ben",".01")="",test("joe","1.0")="",name="" > f n=0:0 s name=$o(test(name)) q:name="" d > . f i=0:0 s i=$o(test(name,i)) q:'i s n=n+1 w !,n,?5,name,?10,i q:n>9 > > > > It may be too late now to see the data that caused the problem, but what do you get from > ZWRITE ^DD(200,"B",*)? > ------------------------------------------------------- This SF.Net email is sponsored by Yahoo. Introducing Yahoo! Search Developer Network - Create apps using Yahoo! Search APIs Find out how you can build Yahoo! directly into your own Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005 _______________________________________________ Hardhats-members mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/hardhats-members
