iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

checksum processing

This commit is contained in:
george 2009-04-03 16:02:41 +00:00
parent 717776c2a3
commit f38ae80000
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CRIMA.m
View File

@ -207,7 +207,7 @@ CHKSUM(CKDFN) ; DOES A CHECKSUM AND STORES IT IN MUMPS GLOBALS
S C0CGLB=$NA(^TMP("C0CRIM","VARS")) ;CCR VARIABLE BASE S C0CGLB=$NA(^TMP("C0CRIM","VARS")) ;CCR VARIABLE BASE
S C0CI="" S C0CI=""
F S C0CI=$O(@C0CGLB@(CKDFN,C0CI)) Q:C0CI="" D ;FOR EACH DOMAIN F S C0CI=$O(@C0CGLB@(CKDFN,C0CI)) Q:C0CI="" D ;FOR EACH DOMAIN
. ;W "DFN:",DFN," DOMAIN:",C0CI,! . ;W "DFN:",CKDFN," DOMAIN:",C0CI,!
. S C0CJ=$NA(@C0CGLB@(CKDFN,C0CI)) . S C0CJ=$NA(@C0CGLB@(CKDFN,C0CI))
. I C0CI="HEADER" D ; HAVE TO TAKE OUT THE "DATE GENERATED" . I C0CI="HEADER" D ; HAVE TO TAKE OUT THE "DATE GENERATED"
. . S C0CDT=@C0CGLB@(CKDFN,C0CI,1,"DATETIME") . . S C0CDT=@C0CGLB@(CKDFN,C0CI,1,"DATETIME")