Last change
on this file since 691 was 623, checked in by George Lilly, 15 years ago |
revised back to 6/30/08 version
|
File size:
1.3 KB
|
Line | |
---|
1 | PXRMFFAT ;SLC/PKR - Function Finding argument type routines. ;08/03/2006
|
---|
2 | ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
|
---|
3 | ;
|
---|
4 | ;============================================
|
---|
5 | ARGTYPE(FUNCTION,AN) ;Given a FUNCTION and argument number return the
|
---|
6 | ;corresponding argument type. Possible argument types are:
|
---|
7 | ; F - finding
|
---|
8 | ; N - number
|
---|
9 | ; S - string
|
---|
10 | ; U - undefined
|
---|
11 | N ROUTINE
|
---|
12 | ;The routine for any function is the same as the name of the
|
---|
13 | ;function except for functions with "_" in the name. In that
|
---|
14 | ;case the "_" is removed.
|
---|
15 | S ROUTINE="$$"_$TR(FUNCTION,"_","")_"(AN)"
|
---|
16 | Q @ROUTINE
|
---|
17 | ;
|
---|
18 | ;============================================
|
---|
19 | COUNT(AN) ;
|
---|
20 | Q $S(AN=1:"F",1:"U")
|
---|
21 | ;
|
---|
22 | ;===========================================
|
---|
23 | DIFFDATE(AN) ;
|
---|
24 | Q $S(AN=1:"F",AN=2:"F",1:"U")
|
---|
25 | ;
|
---|
26 | ;===========================================
|
---|
27 | DUR(AN) ;
|
---|
28 | Q $S(AN=1:"F",1:"U")
|
---|
29 | ;
|
---|
30 | ;============================================
|
---|
31 | FI(AN) ;
|
---|
32 | Q $S(AN=1:"F",1:"U")
|
---|
33 | ;
|
---|
34 | ;============================================
|
---|
35 | MAXDATE(AN) ;
|
---|
36 | I AN>0,AN<100 Q "F"
|
---|
37 | E Q "U"
|
---|
38 | ;
|
---|
39 | ;============================================
|
---|
40 | MINDATE(AN) ;
|
---|
41 | I AN>0,AN<100 Q "F"
|
---|
42 | E Q "U"
|
---|
43 | ;
|
---|
44 | ;============================================
|
---|
45 | MRD(AN) ;
|
---|
46 | I AN>0,AN<100 Q "F"
|
---|
47 | E Q "U"
|
---|
48 | ;
|
---|
49 | ;============================================
|
---|
50 | VALUE(AN) ;
|
---|
51 | Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
|
---|
52 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.