Changeset 508 for ccr/trunk/p/C0CRIMA.m

Timestamp:

May 21, 2009, 1:12:11 PM (15 years ago)

Author:

George Lilly

Message:

formatting for Version 1

File:

• ccr/trunk/p/C0CRIMA.m (modified) (25 diffs)

ccr/trunk/p/C0CRIMA.m

@@ -1 @@
-C0CRIMA   ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
- ;;0.1;CCDCCR;nopatch;noreleasedate
+C0CRIMA   ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
+ ;;1.0;C0C;;May 19, 2009;
  ;Copyright 2008,2009 George Lilly, University of Minnesota.
  ;Licensed under the terms of the GNU General Public License.
@@ -37 +37 @@
  ;
  ;
-ANALYZE(BEGDFN,DFNCNT,APARMS) ; RIM COHERANCE ANALYSIS ROUTINE
+ANALYZE(BEGDFN,DFNCNT,APARMS)   ; RIM COHERANCE ANALYSIS ROUTINE
     ; BEGINS AT BEGDFN AND GOES FOR DFNCNT PATIENTS
     ; TO RESUME AT NEXT PATIENT, USE BEGDFN=""
@@ -108 +108 @@
     Q
     ;
-SETATTR(SDFN) ; SET ATTRIBUTES BASED ON VARS
+SETATTR(SDFN)   ; SET ATTRIBUTES BASED ON VARS
     N SBASE,SATTR
     S SBASE=$NA(@RIMBASE@("VARS",SDFN))
@@ -150 +150 @@
     Q SATTR
     ;
-RESET ; KILL RESUME INDICATOR TO START OVER. ALSO KILL RIM TMP VALUES
+RESET   ; KILL RESUME INDICATOR TO START OVER. ALSO KILL RIM TMP VALUES
     K ^TMP("C0CRIM","RESUME")
     K ^TMP("C0CRIM")
     Q
     ;
-CLIST ; LIST THE CATEGORIES
+CLIST   ; LIST THE CATEGORIES
     ;
     I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
@@ -169 +169 @@
     Q
     ;
-CPUSH(CATRTN,CBASE,CTBL,CDFN,CATTR) ; ADD PATIENTS TO CATEGORIES
+CPUSH(CATRTN,CBASE,CTBL,CDFN,CATTR)     ; ADD PATIENTS TO CATEGORIES
     ; AND PASS BACK THE NAME OF THE CATEGORY TO WHICH THE PATIENT
     ; WAS ADDED IN CATRTN, WHICH IS PASSED BY REFERENCE
@@ -205 +205 @@
     Q
     ;
-CHKSUM(CKDFN) ; DOES A CHECKSUM AND STORES IT IN MUMPS GLOBALS
+CHKSUM(CKDFN)   ; DOES A CHECKSUM AND STORES IT IN MUMPS GLOBALS
  ; 
  S C0CCKB=$NA(^TMP("C0CRIM","CHKSUM")) ;CHECKSUM BASE
@@ -230 +230 @@
  Q CHKR
  ;
-CCOUNT ; RECOUNT THE CATEGORIES.. USE IN CASE OF RESTART OF ANALYZE
+CCOUNT  ; RECOUNT THE CATEGORIES.. USE IN CASE OF RESTART OF ANALYZE
     ;
     I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
@@ -252 +252 @@
     Q
     ;
-CNTLST(INLST) ; RETURNS THE NUMBER OF ELEMENTS IN THE LIST
+CNTLST(INLST)   ; RETURNS THE NUMBER OF ELEMENTS IN THE LIST
     ; INLST IS PASSED BY NAME
     N ZI,ZDX,ZCOUNT
@@ -264 +264 @@
     Q ZCOUNT
     ;
-XCPAT(CPATCAT,CPATPARM) ; EXPORT TO FILE ALL PATIENTS IN CATEGORY CPATCAT
+XCPAT(CPATCAT,CPATPARM) ; EXPORT TO FILE ALL PATIENTS IN CATEGORY CPATCAT
     ;
     I '$D(CPATPARM) S CPATPARM=""
@@ -276 +276 @@
     Q
     ;
-CPAT(CPATCAT) ; SHOW PATIENT DFNS FOR A CATEGORY CPATCAT
+CPAT(CPATCAT)   ; SHOW PATIENT DFNS FOR A CATEGORY CPATCAT
     ;
     I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
@@ -292 +292 @@
     Q
     ;
-PATC(DFN) ; DISPLAY THE CATEGORY FOR THIS PATIENT
+PATC(DFN)       ; DISPLAY THE CATEGORY FOR THIS PATIENT
     ;
     N ATTR S ATTR=""
@@ -305 +305 @@
     Q
     ;
-APUSH(AMAP,AVAL) ; ADD AVAL TO ATTRIBUTE MAP AMAP (AMAP PASSED BY NAME)
+APUSH(AMAP,AVAL)        ; ADD AVAL TO ATTRIBUTE MAP AMAP (AMAP PASSED BY NAME)
     ; AMAP IS FORMED FOR ARRAY ACCESS: AMAP(0) IS THE COUNT
     ; AND AMAP(N)=AVAL IS THE NTH AVAL
@@ -320 +320 @@
     Q
     ;
-ASETUP ; SET UP GLOBALS AND VARS RIMBASE AND RIMTBL
+ASETUP  ; SET UP GLOBALS AND VARS RIMBASE AND RIMTBL
       I '$D(RIMBASE) S RIMBASE=$NA(^TMP("C0CRIM"))
       I '$D(@RIMBASE) S @RIMBASE=""
@@ -327 +327 @@
       Q
       ;
-AINIT ; INITIALIZE ATTRIBUTE TABLE
+AINIT   ; INITIALIZE ATTRIBUTE TABLE
       I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
       K @RIMTBL
@@ -358 +358 @@
       Q
       ;
-APOST(PRSLT,PTBL,PVAL) ; POST AN ATTRIBUTE PVAL TO PRSLT USING PTBL
+APOST(PRSLT,PTBL,PVAL)  ; POST AN ATTRIBUTE PVAL TO PRSLT USING PTBL
     ; PSRLT AND PTBL ARE PASSED BY NAME. PVAL IS A STRING
     ; PTBL IS THE NAME OF A TABLE IN @RIMBASE@("TABLES") - "RIMTBL"=ALL VALUES
@@ -369 +369 @@
     S $P(@PRSLT,U,@USETBL@(PVAL))=PVAL
     Q
-GETPA(RTN,DFN,ISEC,IVAR) ; RETURNS ARRAY OF RIM VARIABLES FOR PATIENT DFN
+GETPA(RTN,DFN,ISEC,IVAR)        ; RETURNS ARRAY OF RIM VARIABLES FOR PATIENT DFN
     ; EXAMPLE: D GETPA(.RT,2,"MEDS","MEDSSTATUSTEXT")
     ; RETURNS AN ARRAY RT OF VALUES OF MEDSTATUSTEXT FOR PATIENT 2 IN P2
@@ -392 +392 @@
     Q
     ;
-PATD(DFN,ISEC,IVAR) ; DISPLAY FOR PATIENT DFN THE VARIABLE IVAR
+PATD(DFN,ISEC,IVAR)     ; DISPLAY FOR PATIENT DFN THE VARIABLE IVAR
     ;
     N ZR
@@ -400 +400 @@
     Q
     ;
-CAGET(RTN,IATTR) ;
+CAGET(RTN,IATTR)        ;
     ; GETPA LOOKS AT RIMTBL TO FIND PATIENTS WITH ATTRIBUTE IATTR
     ; IT DOES NOT SEARCH ALL PATIENTS, ONLY THE ONES WITH THE ATTRIBUTE
@@ -406 +406 @@
     Q
     ;
-PCLST(LSTRTN,IATTR) ; RETURNS ARRAY OF PATIENTS WITH ATTRIBUTE IATTR
+PCLST(LSTRTN,IATTR)     ; RETURNS ARRAY OF PATIENTS WITH ATTRIBUTE IATTR
     ;
     I '$D(RIMBASE) D AINIT ; INITIALIZE GLOBAL NAMES AND TABLES
@@ -431 +431 @@
     Q
     ;
-DCPAT(CATTR) ; DISPLAY LIST OF PATIENTS WITH ATTRIBUTE CATTR
+DCPAT(CATTR)    ; DISPLAY LIST OF PATIENTS WITH ATTRIBUTE CATTR
     ;
     N ZR
@@ -442 +442 @@
     Q
     ;
-RPCGV(RTN,DFN,WHICH) ; RPC GET VARS
+RPCGV(RTN,DFN,WHICH)    ; RPC GET VARS
  ; RETURNS IN RTN (PASSED BY REFERENCE) THE VARS AND VALUES
  ; FOUND AT INARY RTN(X)="VAR^VALUE" RTN(0) IS THE COUNT
@@ -460 +460 @@
  Q
  ;
-ZGVWRK(ZWHICH) ; DO ONE SECTION FOR RPCGV
+ZGVWRK(ZWHICH)  ; DO ONE SECTION FOR RPCGV
     ;
     N ZZGN ; NAME FOR SECTION VARIABLES
@@ -477 +477 @@
     Q
     ;
-DPATV(DFN,IWHICH) ; DISPLAY VARS FOR PATIENT DFN THAT ARE MAINTAINED IN C0CRIM
+DPATV(DFN,IWHICH)       ; DISPLAY VARS FOR PATIENT DFN THAT ARE MAINTAINED IN C0CRIM
     ; ALONG WITH SAMPLE VALUES.
     ; IWHICH IS "ALL","MEDS","VITALS","PROBLEMS","ALERTS","RESULTS","HEADER"
@@ -488 +488 @@
     Q
     ;
-RIM2RNF(R2RTN,DFN,RWHICH) ; CONVERTS RIM VARIABLES TO RNF2 FORMAT
+RIM2RNF(R2RTN,DFN,RWHICH)       ; CONVERTS RIM VARIABLES TO RNF2 FORMAT
  ; RETURN IN R2RTN, WHICH IS PASSED BY NAME
  ; RWHICH IS RIM SECTION TO RETURN, DEFAULTS TO "ALL"
@@ -514 +514 @@
  Q
  ;
-RIM2CSV(DFN) ; WRITE THE RIM VARIABLES FOR A PATIENT TO A CSV FILE
+RIM2CSV(DFN)    ; WRITE THE RIM VARIABLES FOR A PATIENT TO A CSV FILE
  ;
  N R2CTMP,R2CARY