Changeset 623 for WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMFFAT.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMFFAT.m (modified) (1 diff)

WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMFFAT.m

@@ -1 @@
-PXRMFFAT        ;SLC/PKR - Function Finding argument type routines. ;09/11/2007
-        ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
-        ;
-        ;============================================
-ARGTYPE(FUNCTION,AN)    ;Given a FUNCTION and argument number return the
-        ;corresponding argument type. Possible argument types are:
-        ; F - finding
-        ; N - number
-        ; S - string
-        ; U - undefined
-        N ROUTINE
-        ;The routine for any function is the same as the name of the
-        ;function except for functions with "_" in the name. In that
-        ;case the "_" is removed.
-        S ROUTINE="$$"_$TR(FUNCTION,"_","")_"(AN)"
-        Q @ROUTINE
-        ;
-        ;============================================
-COUNT(AN)       ;
-        Q $S(AN=1:"F",1:"U")
-        ;
-        ;===========================================
-DIFFDATE(AN)    ;
-        Q $S(AN=1:"F",AN=2:"F",1:"U")
-        ;
-        ;===========================================
-DUR(AN) ;
-        Q $S(AN=1:"F",1:"U")
-        ;
-        ;============================================
-FI(AN)  ;
-        Q $S(AN=1:"F",1:"U")
-        ;
-        ;============================================
-MAXDATE(AN)     ;
-        I AN>0,AN<100 Q "F"
-        E  Q "U"
-        ;
-        ;============================================
-MINDATE(AN)     ;
-        I AN>0,AN<100 Q "F"
-        E  Q "U"
-        ;
-        ;============================================
-MRD(AN) ;
-        I AN>0,AN<100 Q "F"
-        E  Q "U"
-        ;
-        ;============================================
-NUMERIC(AN)     ;
-        Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
-        ;
-        ;============================================
-VALUE(AN)       ;
-        Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
-        ;
+PXRMFFAT ;SLC/PKR - Function Finding argument type routines. ;08/03/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
+ ;
+ ;============================================
+ARGTYPE(FUNCTION,AN) ;Given a FUNCTION and argument number return the
+ ;corresponding argument type. Possible argument types are:
+ ; F - finding
+ ; N - number
+ ; S - string
+ ; U - undefined
+ N ROUTINE
+ ;The routine for any function is the same as the name of the
+ ;function except for functions with "_" in the name. In that
+ ;case the "_" is removed.
+ S ROUTINE="$$"_$TR(FUNCTION,"_","")_"(AN)"
+ Q @ROUTINE
+ ;
+ ;============================================
+COUNT(AN) ;
+ Q $S(AN=1:"F",1:"U")
+ ;
+ ;===========================================
+DIFFDATE(AN) ;
+ Q $S(AN=1:"F",AN=2:"F",1:"U")
+ ;
+ ;===========================================
+DUR(AN) ;
+ Q $S(AN=1:"F",1:"U")
+ ;
+ ;============================================
+FI(AN) ;
+ Q $S(AN=1:"F",1:"U")
+ ;
+ ;============================================
+MAXDATE(AN) ;
+ I AN>0,AN<100 Q "F"
+ E  Q "U"
+ ;
+ ;============================================
+MINDATE(AN) ;
+ I AN>0,AN<100 Q "F"
+ E  Q "U"
+ ;
+ ;============================================
+MRD(AN) ;
+ I AN>0,AN<100 Q "F"
+ E  Q "U"
+ ;
+ ;============================================
+VALUE(AN) ;
+ Q $S(AN=1:"F",AN=2:"N",AN=3:"S",1:"U")
+ ;