DMSQP4.m

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

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DMSQP4   1873     printed  Apr 09, 2024@21:47:27                                                                                                                                                                                                      Page 2

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

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

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