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

support for checksums

This commit is contained in:
george 2009-04-03 16:11:29 +00:00
parent f38ae80000
commit 545a72701b
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CCCR.m
View File

@ -40,7 +40,7 @@ XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR") D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")
S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1)) S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
S ONAM=UFN S ONAM=UFN
I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_20.xml" I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_21.xml"
S ODIRGLB=$NA(^TMP("C0CCCR","ODIR")) S ODIRGLB=$NA(^TMP("C0CCCR","ODIR"))
I $D(^TMP("GPLCCR","ODIR")) S @ODIRGLB=^TMP("GPLCCR","ODIR") I $D(^TMP("GPLCCR","ODIR")) S @ODIRGLB=^TMP("GPLCCR","ODIR")
I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET

3
p/C0CRNF.m
View File

@ -36,7 +36,8 @@ FIELDS(C0CFRTN,C0CF) ; RETURNS AN ARRAY OF THE FIELDS IN FILE C0CF,
. . ;W "N: ",C0CFN,! . . ;W "N: ",C0CFN,!
. . ;I C0CFN="STR" W C0CFN," ",C0CFJ,! . . ;I C0CFN="STR" W C0CFN," ",C0CFJ,!
. . I $D(@C0CFRTN@(C0CFN)) D ; IS THIS A DUPLICATE? . . I $D(@C0CFRTN@(C0CFN)) D ; IS THIS A DUPLICATE?
. . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),! . . . I DEBUG D ;
. . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
. . . S @C0CFRTN@(C0CFN_"_"_C0CFJ)=C0CFJ_"^"_C0CFI . . . S @C0CFRTN@(C0CFN_"_"_C0CFJ)=C0CFJ_"^"_C0CFI
. . E S @C0CFRTN@(C0CFN)=C0CFJ_"^"_C0CFI . . E S @C0CFRTN@(C0CFN)=C0CFJ_"^"_C0CFI
. S C0CFJ=$O(^DD(C0CFJ)) ; NEXT SUBFILE . S C0CFJ=$O(^DD(C0CFJ)) ; NEXT SUBFILE