1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
Routine,Line,RtnLine,Code
ZZCOVTST,1,0,"ZZCOVTST;OSEHRA/JPS -- Test routine for Coverage Parsing;4/28/2014"
,2,0," ; (tab) This is series of comments"
,3,0," ; (tab) it should all be not executable"
,4,0," ; (spaces) one of these sets might be a problem"
,5,0," ; (spaces) we will have to see."
,6,0,"EN ; This entry point shouldn't be found without fixing"
,7,1," N D"
,8,1," S D=1 ;An executable line"
,9,1," D T1^ZZCOVTST"
,10,1,"I '$$T5 W ""RETURNED FROM t5"",!"
,11,1," Q"
,12,0," ; This line not executable"
,13,0," ;"
,14,0,"T1 ; This line should always be found"
,15,1," N D"
,16,1," S D=2"
,17,1," W !,D,!,""This is the second entry point"",!"
,18,1," D T2^ZZCOVTST(D)"
,19,1," Q"
,20,0," ;"
,21,0,"T2(EQ) ; This is debatable"
,22,1," N D"
,23,1," S D=3"
,24,1," W !,D,!,EQ,""This is the third entry point"",!"
,25,1," D T3^ZZCOVTST"
,26,1," Q"
,27,0," ;"
,28,1,"T3 N D S D=4 W D,!,""Fourth Entry point"",! Q"
,29,0," ;"
,30,0,"T4 N D S D=5 W ""Shouldn't be executed"""
,31,0," W ""Lots to not do"""
,32,0," Q"
,33,1,"T5()"
,34,1," W ""THIS IS ONE WITH $$ NOTATION"",1"
,35,1," Q 0"
,36,0," ;"
Totals for ZZCOVTST,,19,
|
