source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMFFAT.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1PXRMFFAT ;SLC/PKR - Function Finding argument type routines. ;09/11/2007
2 ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
3 ;
4 ;============================================
5ARGTYPE(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 ;============================================
19COUNT(AN) ;
20 Q $S(AN=1:"F",1:"U")
21 ;
22 ;===========================================
23DIFFDATE(AN) ;
24 Q $S(AN=1:"F",AN=2:"F",1:"U")
25 ;
26 ;===========================================
27DUR(AN) ;
28 Q $S(AN=1:"F",1:"U")
29 ;
30 ;============================================
31FI(AN) ;
32 Q $S(AN=1:"F",1:"U")
33 ;
34 ;============================================
35MAXDATE(AN) ;
36 I AN>0,AN<100 Q "F"
37 E Q "U"
38 ;
39 ;============================================
40MINDATE(AN) ;
41 I AN>0,AN<100 Q "F"
42 E Q "U"
43 ;
44 ;============================================
45MRD(AN) ;
46 I AN>0,AN<100 Q "F"
47 E Q "U"
48 ;
49 ;============================================
50NUMERIC(AN) ;
51 Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
52 ;
53 ;============================================
54VALUE(AN) ;
55 Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
56 ;
Note: See TracBrowser for help on using the repository browser.