Changeset 562 for ccr/trunk/p/C0CCCR.m
- Timestamp:
- Sep 15, 2009, 1:48:00 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CCCR.m
r556 r562 121 121 . X CALL 122 122 . ; NOW INSERT THE RESULTS IN THE CCR BUFFER 123 . I @OXML@(0)'=0 D ; THERE IS A RESULT123 . I $G(@OXML@(0))>0 D ; THERE IS A RESULT 124 124 . . D INSERT^C0CXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body") 125 125 . . I DEBUG F C0CI=1:1:@OXML@(0) W @OXML@(C0CI),!
Note:
See TracChangeset
for help on using the changeset viewer.