Return to DICF5.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DICF5.m, revision 1.1

1.1     ! snw         1: DICF5  ;SEA/TOAD-VA FileMan: Finder, Part 5 (Ptr Indexes) ;11/4/94  10:59 ;
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        
        !             5: PREPP(DIFLAGS,DINDEX,DITYPE,DISKIP,DILIST)     
        !             6:        ; PREPIX^DICF2--transform value for indexed pointer field
        !             7:        ; proc, DINDEX passed by ref
        !             8:        N DIF,DINODE,DIPFILE,DIPLIST,DIPVAL,DISAVE
        !             9:        S DIF=$TR(DIFLAGS,$TR(DIFLAGS,"Xg"))
        !            10:        S DIPVAL=@DILIST("LVA")@("V")
        !            11:        S DILIST("SAVE")=DILIST("LVA")
        !            12:        S DILIST("LVA")="^TMP(""DILVA"",$J,"_DILIST(0)_")"
        !            13:        S DIPLIST=$NA(@DILIST("LVA")@("V"))
        !            14: 90     S DIPLIST(0)=DILIST(0)+1
        !            15:        S DIPLIST("LVA")=DILIST("SAVE")
        !            16:        S DISAVE=@DILIST("SAVE")@("S")
        !            17:        I DISAVE'="" S @DILIST("SAVE")@("S")=""
        !            18:        F DINODE="1","2","0,5","0,6" D
        !            19:        . S @("DISAVE("_DINODE_")=$G(@DILIST(""SAVE"")@(""S"","_DINODE_"))")
        !            20:        . I @("DISAVE("_DINODE_")'=""""") D
        !            21:        . . S @("@DILIST(""SAVE"")@(""S"","_DINODE_")=""""")
        !            22: 91     I DITYPE="P" D
        !            23:        . S DIPFILE=+$P($P(DINDEX(0,"DEF"),U,2),"P",2)
        !            24:        . D FIND^DICF(DIPFILE,"","","Mp"_DIF,"","","","","",.DIPLIST,DIPLIST)
        !            25:        . S DISKIP=DIPLIST("C")=0
        !            26:        I DISKIP Q
        !            27: 92     I DITYPE="VP" D
        !            28:        . N DIFIELD,DIFILE,DIOUT
        !            29:        . S DIPLIST("C")=0
        !            30:        . S DIFILE=DINDEX(0,"FILE")
        !            31:        . S DIFIELD=DINDEX(0,"FIELD")
        !            32:        . S DIPFILE=0,DIOUT=0 F  D  Q:DIOUT
        !            33:        . . S DIPFILE=$O(^DD(DIFILE,DIFIELD,"V","B",DIPFILE))
        !            34:        . . I DIPFILE="" S DIOUT=1 Q
        !            35:        . . D FIND^DICF(DIPFILE,"","","Mpv"_DIF,"","","","","",.DIPLIST,DIPLIST)
        !            36:        . . S DISKIP=DIPLIST("C")=0&DISKIP
        !            37: 93     . I DIPVAL["." D PIECES(DIFILE,DIFIELD,DIF,DIPVAL,.DISKIP,.DIPLIST)
        !            38:        I 'DISKIP S @DILIST("LVA")@("S")=@DILIST("SAVE")@("S")
        !            39:        I DISAVE'="" S @DILIST("SAVE")@("S")=DISAVE
        !            40:        F DINODE="1","2","0,5","0,6" D
        !            41:        . I @("DISAVE("_DINODE_")'=""""") D
        !            42:        . . S @("@DILIST(""SAVE"")@(""S"","_DINODE_")=DISAVE("_DINODE_")")
        !            43:        Q
        !            44:        
        !            45: PIECES(DIFILE,DIFIELD,DIFLAGS,DIPVAL,DISKIP,DIPLIST)   
        !            46:        ; proc, add file.value lookups to index's LVA
        !            47:        N DILOWER S DILOWER="abcdefghijklmnopqrstuvwxyz"
        !            48:        N DIUPPER S DIUPPER="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        !            49:        N DIFILEN S DIFILEN=$TR($P(DIPVAL,"."),DILOWER,DIUPPER)
        !            50:        N DIFILES D VPFILES^DIEV1(DIFILE,DIFIELD,DIFILEN,.DIFILES)
        !            51:        K DIPLIST("LVA")
        !            52:        N DIVALN S DIVALN=$P(DIPVAL,".",2,9999)
        !            53:        S DIFILE="" F  S DIFILE=$O(DIFILES(DIFILE)) Q:DIFILE=""  D
        !            54:        .  D FIND^DICF(DIFILE,"","","Mlpv"_DIFLAGS,DIVALN,"","","","",.DIPLIST,DIPLIST)
        !            55:        S DISKIP=DIPLIST("C")=0&DISKIP
        !            56:        Q