Changeset 175 for ccr/trunk/p/CCRDPTT.m

Timestamp:

Oct 3, 2008, 10:57:33 PM (16 years ago)

Author:

Sam Habiel

Message:

Refactored CCRDPT and updated GPLACTOR accordingly

File:

• ccr/trunk/p/CCRDPTT.m (modified) (1 diff)

ccr/trunk/p/CCRDPTT.m

@@ -36 +36 @@
           ;
           W "You have selected patient "_Y,!!
-          D INIT^CCRDPT($P(Y,"^"))
-          ; ZWR PT
-          N I S I=165 F  S I=$O(OUT(I)) Q:I=""  D
+          N I S I=89 F  S I=$O(OUT(I)) Q:I="ALINE"  D
           . W "OUT("_I_",0)"_" is "_$P(OUT(I,0)," ")_" "
           . W "valued at "
-          . W @("$$"_$P(OUT(I,0),"()")_"^"_"CCRDPT"_"()")
+                  . W @("$$"_$P(OUT(I,0),"(DFN)")_"^"_"CCRDPT"_"("_$P(Y,"^")_")")
           . W !
           Q