DMSQP4.m

DMSQP4 ;ISCSF/EZ-POINTER COUNTS CONTINUED ;7/28/97  11:09

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

PRT2 ;

 S DIC="1.5215",L=0,FLDS=DMFLDS

 S DHD="SQLI WORD-PROCESSING TABLE "_DMDHD_" - SUBSET OF SUBFILES"

 S BY(0)="^TMP(""DMFQ2"",$J,",L(0)=3

 S DISPAR(0,2)="+^;""WORD-PROCESSING? "";S;C1"

 S DISPAR(0,2,"OUT")="S Y=$S(+Y:""YES"",1:""NO"")"

 D EN1^DIP Q

PRT3 ;

 S DIC="1.5215",L=0,FLDS=DMFLDS

 S DHD="SQLI POINTING TABLE "_DMDHD_" - SELF-REFERENTIAL POINTERS"

 S BY(0)="^TMP(""DMFQ3"",$J,",L(0)=3

 S DISPAR(0,2)="+^;""TIMES POINTED-TO BY ITSELF: "";S;C1"

 D EN1^DIP Q

PRT4 ;

 S DIC="1.5215",L=0,FLDS=DMFLDS

 S DHD="SQLI POINTING TABLE "_DMDHD_" - UPWARD FROM THIS SUBFILE LEVEL"

 S BY(0)="^TMP(""DMFQ4"",$J,",L(0)=4

 ;S DISPAR(0,1)="+^;""WORD-PROCESSING? "";S;C8"

 ;S DISPAR(0,1,"OUT")="S Y=$S(+Y:""YES"",1:""NO"")"

 S DISPAR(0,3)="+^;""TIMES POINTING UPWARD (SUBFILE LEVELS): "";S;C1"

 D EN1^DIP Q

PRT5 ;

 S DIC="1.5215",L=0,FLDS=DMFLDS

 S DHD="SQLI POINTED-TO TABLE "_DMDHD_" - UP FROM ONE OR MORE SUBFILE LEVELS"

 S BY(0)="^TMP(""DMFQ5"",$J,",L(0)=3

 S DISPAR(0,2)="+^;""TIMES POINTED-TO FROM BELOW: "";S;C1"

 D EN1^DIP Q

PRT6 ;

 S DIC="1.5215",L=0,FLDS=DMFLDS

 S DHD="SQLI POINTING TABLE "_DMDHD_" (EXCLUDES SUBFILE POINTERS)"

 S BY(0)="^TMP(""DMFQ6"",$J,",L(0)=3

 S DISPAR(0,2)="+^;""TIMES POINTING (GOING OUTWARD): "";S;C1"

 D EN1^DIP Q

PRT7 ;

 S DIC="1.5215",L=0,FLDS=DMFLDS

 S DHD="SQLI POINTED-TO TABLE "_DMDHD_" (EXCLUDES SUBFILE POINTERS)"

 S BY(0)="^TMP(""DMFQ7"",$J,",L(0)=3

 S DISPAR(0,2)="+^;""TIMES POINTED-TO (COMING INWARD): "";S;C1"

 D EN1^DIP Q

DMSQP4    ;ISCSF/EZ-POINTER COUNTS CONTINUED ;7/28/97  11:09

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

PRT2      ;

 +1        SET DIC="1.5215"

           SET L=0

           SET FLDS=DMFLDS

 +2        SET DHD="SQLI WORD-PROCESSING TABLE "_DMDHD_" - SUBSET OF SUBFILES"

 +3        SET BY(0)="^TMP(""DMFQ2"",$J,"

           SET L(0)=3

 +4        SET DISPAR(0,2)="+^;""WORD-PROCESSING? "";S;C1"

 +5        SET DISPAR(0,2,"OUT")="S Y=$S(+Y:""YES"",1:""NO"")"

 +6        DO EN1^DIP

           QUIT 

PRT3      ;

 +1        SET DIC="1.5215"

           SET L=0

           SET FLDS=DMFLDS

 +2        SET DHD="SQLI POINTING TABLE "_DMDHD_" - SELF-REFERENTIAL POINTERS"

 +3        SET BY(0)="^TMP(""DMFQ3"",$J,"

           SET L(0)=3

 +4        SET DISPAR(0,2)="+^;""TIMES POINTED-TO BY ITSELF: "";S;C1"

 +5        DO EN1^DIP

           QUIT 

PRT4      ;

 +1        SET DIC="1.5215"

           SET L=0

           SET FLDS=DMFLDS

 +2        SET DHD="SQLI POINTING TABLE "_DMDHD_" - UPWARD FROM THIS SUBFILE LEVEL"

 +3        SET BY(0)="^TMP(""DMFQ4"",$J,"

           SET L(0)=4

 +4       ;S DISPAR(0,1)="+^;""WORD-PROCESSING? "";S;C8"

 +5       ;S DISPAR(0,1,"OUT")="S Y=$S(+Y:""YES"",1:""NO"")"

 +6        SET DISPAR(0,3)="+^;""TIMES POINTING UPWARD (SUBFILE LEVELS): "";S;C1"

 +7        DO EN1^DIP

           QUIT 

PRT5      ;

 +1        SET DIC="1.5215"

           SET L=0

           SET FLDS=DMFLDS

 +2        SET DHD="SQLI POINTED-TO TABLE "_DMDHD_" - UP FROM ONE OR MORE SUBFILE LEVELS"

 +3        SET BY(0)="^TMP(""DMFQ5"",$J,"

           SET L(0)=3

 +4        SET DISPAR(0,2)="+^;""TIMES POINTED-TO FROM BELOW: "";S;C1"

 +5        DO EN1^DIP

           QUIT 

PRT6      ;

 +1        SET DIC="1.5215"

           SET L=0

           SET FLDS=DMFLDS

 +2        SET DHD="SQLI POINTING TABLE "_DMDHD_" (EXCLUDES SUBFILE POINTERS)"

 +3        SET BY(0)="^TMP(""DMFQ6"",$J,"

           SET L(0)=3

 +4        SET DISPAR(0,2)="+^;""TIMES POINTING (GOING OUTWARD): "";S;C1"

 +5        DO EN1^DIP

           QUIT 

PRT7      ;

 +1        SET DIC="1.5215"

           SET L=0

           SET FLDS=DMFLDS

 +2        SET DHD="SQLI POINTED-TO TABLE "_DMDHD_" (EXCLUDES SUBFILE POINTERS)"

 +3        SET BY(0)="^TMP(""DMFQ7"",$J,"

           SET L(0)=3

 +4        SET DISPAR(0,2)="+^;""TIMES POINTED-TO (COMING INWARD): "";S;C1"

 +5        DO EN1^DIP

           QUIT