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

Timestamp:

Jun 30, 2008, 12:50:31 AM (16 years ago)

Author:

Sam Habiel

Message:

Updated the patient demographics extraction routine (CCRDPT), fixing bugs and improving documentation. Most bugs consisted of undefined errors; thus $Get was added to everything.

Run the unit tester by "D ^CCRDPTT".

File:

• ccr/trunk/p/CCRDPTT.m (modified) (2 diffs)

ccr/trunk/p/CCRDPTT.m

@@ -13 +13 @@
         
         ; Load Routine Entry points; We get a sweeeeeet array
-        N OUT
         D ANALYZE^ARJTXRD("CCRDPT",.OUT) ; Analyze a routine in the directory
-        ZWR OUT(,0)
-        
         N X,Y
         ; Select Patient
@@ -24 +21 @@
         D INIT^CCRDPT($P(Y,"^"))
         ZWR PT
-        N I S I=160 F  S I=$O(OUT(I)) Q:I=""  D
+        N I S I=165 F  S I=$O(OUT(I)) Q:I=""  D
         . W "OUT("_I_",0)"_" is "_$P(OUT(I,0)," ")_" "
         . W "valued at "