source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DMSQP4.m@ 1446

Last change on this file since 1446 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1DMSQP4 ;ISCSF/EZ-POINTER COUNTS CONTINUED ;7/28/97 11:09
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4PRT2 ;
5 S DIC="1.5215",L=0,FLDS=DMFLDS
6 S DHD="SQLI WORD-PROCESSING TABLE "_DMDHD_" - SUBSET OF SUBFILES"
7 S BY(0)="^TMP(""DMFQ2"",$J,",L(0)=3
8 S DISPAR(0,2)="+^;""WORD-PROCESSING? "";S;C1"
9 S DISPAR(0,2,"OUT")="S Y=$S(+Y:""YES"",1:""NO"")"
10 D EN1^DIP Q
11PRT3 ;
12 S DIC="1.5215",L=0,FLDS=DMFLDS
13 S DHD="SQLI POINTING TABLE "_DMDHD_" - SELF-REFERENTIAL POINTERS"
14 S BY(0)="^TMP(""DMFQ3"",$J,",L(0)=3
15 S DISPAR(0,2)="+^;""TIMES POINTED-TO BY ITSELF: "";S;C1"
16 D EN1^DIP Q
17PRT4 ;
18 S DIC="1.5215",L=0,FLDS=DMFLDS
19 S DHD="SQLI POINTING TABLE "_DMDHD_" - UPWARD FROM THIS SUBFILE LEVEL"
20 S BY(0)="^TMP(""DMFQ4"",$J,",L(0)=4
21 ;S DISPAR(0,1)="+^;""WORD-PROCESSING? "";S;C8"
22 ;S DISPAR(0,1,"OUT")="S Y=$S(+Y:""YES"",1:""NO"")"
23 S DISPAR(0,3)="+^;""TIMES POINTING UPWARD (SUBFILE LEVELS): "";S;C1"
24 D EN1^DIP Q
25PRT5 ;
26 S DIC="1.5215",L=0,FLDS=DMFLDS
27 S DHD="SQLI POINTED-TO TABLE "_DMDHD_" - UP FROM ONE OR MORE SUBFILE LEVELS"
28 S BY(0)="^TMP(""DMFQ5"",$J,",L(0)=3
29 S DISPAR(0,2)="+^;""TIMES POINTED-TO FROM BELOW: "";S;C1"
30 D EN1^DIP Q
31PRT6 ;
32 S DIC="1.5215",L=0,FLDS=DMFLDS
33 S DHD="SQLI POINTING TABLE "_DMDHD_" (EXCLUDES SUBFILE POINTERS)"
34 S BY(0)="^TMP(""DMFQ6"",$J,",L(0)=3
35 S DISPAR(0,2)="+^;""TIMES POINTING (GOING OUTWARD): "";S;C1"
36 D EN1^DIP Q
37PRT7 ;
38 S DIC="1.5215",L=0,FLDS=DMFLDS
39 S DHD="SQLI POINTED-TO TABLE "_DMDHD_" (EXCLUDES SUBFILE POINTERS)"
40 S BY(0)="^TMP(""DMFQ7"",$J,",L(0)=3
41 S DISPAR(0,2)="+^;""TIMES POINTED-TO (COMING INWARD): "";S;C1"
42 D EN1^DIP Q
Note: See TracBrowser for help on using the repository browser.