LIST^DIC stuff

This will contain investigations of newer features of LIST^DIC

Example search: S TMGFILE=22702 K TMGRSLT DO LIST^DIC(TMGFILE,,TMGFLDS,"PX","*",,,TMGSRCH,,,"TMGRSLT","TMGMSG") ZWR TMGRSLT SET TMGSRCH="(UPPERCASE(#1000)[""REMOTE"")" ASTRON>x x TMGRSLT("DILIST",0)="3^*^0^" TMGRSLT("DILIST",0,"MAP")="IEN^.01" TMGRSLT("DILIST",1,0)="1^KILLTHIS -- SAFE" TMGRSLT("DILIST",2,0)="4^KILLTHIS -- SAFE" TMGRSLT("DILIST",3,0)="7^KILLTHIS -- SAFE"

Partial stack trace 1. LIST^DIC ...  4.  BADQ+3^DICL   Code: D IDENTS^DICU1(DIFLAGS,.DIFILE,DIFIELDS,DIWRITE,.DIDENT,.DINDEX) 5. ID3+4^DICU1   Code: F  D  Q:$G(DIERR)!DIOUTI 6. ID4C+5^DICU1   Code:. I DIDS=";;",DIFLAGS[4,DIUSEKEY'="F",DIDENT=.01 Q   7.  IXNAME+2^DICL   Code: I DIFLAGS["X" D DICL^DICLGFT G BADQ ;NOTE: A CROSS-REF MUS...       (Note: here is branch into DICGFT, the recent customization of FIND^DIC) 8. BACKWARD+2^DICLGFT   Code: E  D               9.  BACKWARD+3^DICLGFT   Code: .S X=$$SORT(DIFILE,DINDEX,DIGFTEMP,.DIFROM) 10. DIP^DICLGFT   Code: DIP D EN1^DIP ;HERE IS THE BIG CALL TO FILEMAN'S PRINT MODULE! %="" %TMG="" %Y="" BY="(UPPERCASE(#1000)[""REMOTE"")" DD=22702 DEBUG=0 DHD="@@" DHIT="S @DICLARAY@($S($G(DIOO1)]"""":DIOO1,1:1),D0)=""""" DIC="^TMG(22702," DICLARAY="^TMP(""DICLB"",22702,3903)"  DICLERR=""  DICLGFT=1  DICLGFTX=""  DICODE="$P(DI0NODE,U,1)"  DICOUNT=0  DICRSR=3  DIDEF="DOCUMENT TYPE^RP8925.1'Oa^TIU(8925.1,^0;1^Q" DIDEFALT="E" DIDS=";;" DIDS("FID")="" DIDS("WID")="" DIFIELDS="@;.01" DIFIEN="," DIFILE=22702 DIFIXPT=1 DIFLAGS="PX3" DIFM=1 DIFORMAT="" DIFROM=", , , , , , , , , , , ," ;* DIFROM(1)="" DIFROM("IEN")="" DIGFTEMP="^TMP(""DICLB"",22702,3903)" DILENGTH=3 DILIST="TMGRSLT(""DILIST"")" DILIST("ORDER")=0 DILOCKTM=3 DIMSGA="TMGMSG" DINDEX="(UPPERCASE(#1000)[""REMOTE"")" DINDEX("WAY")=1 DINUMBER="*" DIOBEG="K ^UTILITY($J,""H"") S DISH=1,IOT="""",$X=0,$Y=0" DIOSL=9999999 DIOUT=0 DIOUTI=0 DIPART(1)="" DIQUIET=1 DISCREEN("F")="" DISCREEN("S")="" DISUPNO=1 DISYS=19 DITEMP="^TMP(""DICLB"",22702,3903"    DITYPE="RP8925.1'Oa"  DIUSEKEY=0  DIWRITE=""  DT=3131104  DTIME=9600  DUZ=168  DUZ(0)="@"  DUZ(1)=""  DUZ(2)=69  DUZ("AG")="E"  DUZ("AUTO")=1  DUZ("BUF")=1  DUZ("LANG")=""  FLDS="X ""QUIT"";X"  *FR=DIFROM  Forced=0  IO="/dev/pts/4"  IO(0)="/dev/pts/4"  IO(1,"/dev/pts/4")=""  IO("HOME")="50^/dev/pts/4"  IO("IP")="99.121.54.165"  IO("ZIO")="/dev/pts/4"  IOBS="$C(8)"  IOF="#,$C(27,91,50,74,27,91,72)"  IOM=80  ION="TELNET"  IOS=50  IOSL=24  IOST="C-VT102"  IOST(0)=60  IOT=""  IOX=0  IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(102)"  IOY=0  L=0  Pos=""  SCRN="(#1000[""emote"")"  SCRN(1)="(UPPERCASE(#1000)[""REMOTE"")"  TIUFPRIV=1  TMGFILE=22702  TMGFLDS="@;.01"  TMGSRCH="(UPPERCASE(#1000)[""REMOTE"")"  TO=",,,,,,,,,,"  U="^"  X="DIOO1"  XGRT="CR"  XPARSYS="5;DIC(4.2," XQDIC=10974 XQPSM="P10974" XQVOL="EHR" cAbort=0 cFalse=0 cOKToCont=1 cTrue=1 x="K TMGRSLT DO LIST^DIC(TMGFILE,,TMGFLDS,""PX"",""*"",,,TMGSRCH,,,""TMGRSLT"",""TMGMSG"") ZWR TMGRSLT" With further debugging I get to point where DPP has been created. 10. DIP^DICLGFT   Code: DIP D EN1^DIP ;HERE IS THE BIG CALL TO FILEMAN'S PRINT MODULE! 11. 2^DIO1   Code: 2 K D,%,I D 2^DIO D  I $G(DIERR) G IXK^DIO 12. XDY+1^DIO2   Code: X DY(DN) G XDY:DN 13. PASS^DIO2   Code: PASS S:'$D(DPQ) DIPASS=1 14. @"N/A"   Code: 15. IXNAME+2^DICL   Code: I DIFLAGS["X" D DICL^DICLGFT G BADQ ;NOTE: A CROSS-REF MUS...   16. BACKWARD+2^DICLGFT  Code: E  D              17. BACKWARD+3^DICLGFT  Code: .S X=$$SORT(DIFILE,DINDEX,DIGFTEMP,.DIFROM) 18. DIP^DICLGFT   Code: DIP D EN1^DIP ;HERE IS THE BIG CALL TO FILEMAN'S PRINT MODULE! 19. LEVELS^DIP   Code: LEVELS F DJ=DJ:1:7 D DJ Q:$G(X)=""!($D(DTOUT))!($D(DUOUT))!'$...   20. DJ^DIP  Code: DJ K DPP(DJ),DL,DV,I,J S I(0)=DI,(DL,J(0))=S,(N,DU)=0,Y=.01

%="" %TMG="" BY="" C="," D="NUMBER" DA="DPP(1,""OVF0""," DC=0  DCC="^TMG(22702," DD=22702 DE="Sort" DEBUG=0 DHD="@@" DHIT="S @DICLARAY@($S($G(DIOO1)]"""":DIOO1,1:1),D0)=""""" DI="^TMG(22702," DIC="^DD(DL," DIC(0)="Z" DICLARAY="^TMP(""DICLB"",22702,3903)" DICLERR="" DICLGFT=1 DICLGFTX="" DIFIELDS="@;.01" DIFIEN="," DIFIXPT=1 DIFLAGS="PX3"DIFM=0 DIFROM=", , , , , , , , , , , ," ;* DIFROM(1)=""DIFROM("IEN")="" DIGFTEMP="^TMP(""DICLB"",22702,3903)" DIJ=0 DIL(22702)="^" DILIST="TMGRSLT(""DILIST"")" DILIST("ORDER")=0 DILOCKTM=3 DIMSGA="TMGMSG" DINDEX="(UPPERCASE(#1000)[""REMOTE"")" DINDEX("WAY")=1 DINUMBER="*" DIOBEG="K ^UTILITY($J,""H"") S DISH=1,IOT="""",$X=0,$Y=0" DIOSL=9999999 DIOUT=0 DIPART(1)="" DIQUIET=1 DISCREEN("F")="" DISCREEN("S")="" DISUPNO=1 DISYS=19 DITEMP="^TMP(""DICLB"",22702,3903" DIWRITE=""  DJ=2  DL=22702  DM="(UPPERCASE(#1000)[""REMOTE"")"  DNP=""  DPP="(UPPERCASE(#1000)[""REMOTE"")"  DPP(1)="22702^^(UPPERCASE(#1000)[""REMOTE"")^""@B^;L1^^^^^4"  DPP(1,"CM")="S Y(1)=$S($D(^TMG(22702,D0,4)):^(4),1:"""") S X=$P(Y(1),U,1),X=$$UP^DILIBF(X) S X=X[""REMOTE"" I D0>0 S DISX(1)=X"  DPP(1,"F")=0  DPP(1,"GET")="S Y(1)=$S($D(^TMG(22702,D0,4)):^(4),1:"""") S X=$P(Y(1),U,1),X=$$UP^DILIBF(X) S X=X[""REMOTE"" I D0>0 S DISX(1)=X"  DPP(1,"QCON")="I DISX(1)"  DPP(1,"T")=1  DPP(1,"TXT")="(UPPERCASE(#1000)[""""REMOTE"""")"  DQI="Y(" DT=3131104 DTIME=9600 DU=.01