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 Oct 16, 2024@18:55:45 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
