Changeset 28 for ccr/trunk/p/GPLCCR.m
- Timestamp:
- Jul 1, 2008, 11:26:13 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCR.m
r27 r28 7 7 ; Select a patient for real. 8 8 S DIC=2,DIC(0)="AEMQ" D ^DIC 9 I Y<1 Q ; EXIT 9 10 S DFN=$P(Y,U,1) ; SET THE PATIENT 10 11 N CCRGLO … … 26 27 ; 27 28 ; DELETE THE BODY, ACTORS AND SIGNATURES SECTIONS FROM THE CCR GLOBAL 28 ; THESE WILL BE POPULATED WITHCALLS TO THE XPATH PROCESSING ROUTINES29 ; THESE WILL BE POPULATED AFTER CALLS TO THE XPATH PROCESSING ROUTINES 29 30 D REPLACE^GPLXPATH(CCRGLO,"","//ContinuityOfCareRecord/Body") 30 31 D REPLACE^GPLXPATH(CCRGLO,"","//ContinuityOfCareRecord/Actors") … … 50 51 . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body") 51 52 . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),! 52 . ; D QOPEN^GPLXPATH("CCRBLD",CCRGLO,"//ContinuityOfCareRecord/Body")53 . ; D QUEUE^GPLXPATH("CCRBLD",OXML,1,@OXML@(0))54 . ; D QCLOSE^GPLXPATH("CCRBLD",CCRGLO,"//ContinuityOfCareRecord/Body")55 . ; I DEBUG W "GOING TO BUILD CCR",!56 . ; N CCRTMP57 . ; D BUILD^GPLXPATH("CCRBLD","CCRTMP")58 . ; I DEBUG F GPLI=1:1:CCRTMP(0) W CCRTMP(GPLI),!59 . ; D CP^GPLXPATH("CCRTMP",CCRGLO)60 53 Q 61 54 ; … … 68 61 ; 69 62 TEST ; RUN ALL THE TEST CASES 70 N ZTMP 71 D ZLOAD^GPLUNIT("ZTMP","GPLCCR") 72 D ZTEST^GPLUNIT(.ZTMP,"ALL") 73 W ! 74 ; W "THE TESTS!",! 75 ; ZWR ZTMP 63 ;D TESTALL^GPLUNIT("GPLCCR") 64 D ZTEST^GPLCCR("PROBLEMS") 65 W "TESTING TESTING 123",! 66 D ZTEST^GPLCCR("CCR") 76 67 Q 77 68 ; … … 89 80 ; 90 81 ;;><TEST> 91 ;;>< INIT>82 ;;><PROBLEMS> 92 83 ;;>>>K GPL S GPL="" 84 ;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS") 85 ;;>>?@GPL@(@GPL@(0))="</Problems>" 86 ;;><CCR> 87 ;;>>>K GPL S GPL="" 88 ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR") 89 ;;>>?@GPL@(@GPL@(0))="</ContinutiyOfCareRecord>" 93 90 ;;></TEST>
Note:
See TracChangeset
for help on using the changeset viewer.