Changeset 400 for ccr/trunk/p

Timestamp:

Mar 15, 2009, 8:39:55 PM (16 years ago)

Author:

Sam Habiel

Message:

Moved CCRDPTT to C0CUNIT

Location:

ccr/trunk/p

Files:

• C0CUNIT.m (modified) (1 diff)
• CCRDPTT.m (deleted)

ccr/trunk/p/C0CUNIT.m

@@ -172 +172 @@
  D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
  Q
+PAT
+ D ANALYZE^ARJTXRD("CCRDPT",.OUT) ; Analyze a routine in the directory
+ N X,Y
+ ; Select Patient
+ S DIC=2,DIC(0)="AEMQ" D ^DIC
+ ;
+ W "You have selected patient "_Y,!!
+ 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),"(DFN)")_"^"_"CCRDPT"_"("_$P(Y,"^")_")")
+ . W !
+ Q