Changeset 404 for ccr/trunk/p/C0CRPMS.m
- Timestamp:
- Mar 16, 2009, 6:08:55 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CRPMS.m
r396 r404 1 C0CRPMS 1 C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09 14:33 2 2 ;;0.1;CCDCCR;;JUL 16,2008;Build 7 3 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. 5 5 ; … … 37 37 F S G=$O(^AUPNVSIT("AA",C0CDFN,G)) Q:(G="")!(GN>C0CCNT) D ; 38 38 . S GN=GN+1 39 . W $$FMDTOUTC^C0CUTIL(9999999-G),! 39 . W $$FMDTOUTC^C0CUTIL(9999999-G),! 40 40 Q 41 41 ; 42 VISITS2(C0CDFN,C0CCNT) ;SECOND VERSION USING NEXTV 42 VISITS2(C0CDFN,C0CCNT) ;SECOND VERSION USING NEXTV 43 43 ; 44 44 N C0CG,GN … … 55 55 ; RECENT VISIT 56 56 N G 57 S G=C0CVDT 57 S G=C0CVDT 58 58 I G'="" S G=9999999-C0CVDT ;INVERT FOR INDEX 59 59 S G=$O(^AUPNVSIT("AA",C0CDFN,G))
Note:
See TracChangeset
for help on using the changeset viewer.