- 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 ---[H[J[2J[HDMSQP4 1873 printed Feb 19, 2025@00:21: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
