Index: /ccr/trunk/p/GPLALERT.m
===================================================================
--- /ccr/trunk/p/GPLALERT.m	(revision 150)
+++ /ccr/trunk/p/GPLALERT.m	(revision 151)
@@ -32,5 +32,6 @@
 	  ; ORQQPP LIST
 	  ;
-
+	W "GOT TO ALERTS",!
+	M @ALTOUTXML=@ALTXML ; JUST COPY THE TEMPLATE FOR TESTING ..GPL
           Q ; QUIT
 	  ; BELOW CODE REMAINS FOR MY KNOWLEDGE AS TEMPLATE
Index: /ccr/trunk/p/GPLCCR.m
===================================================================
--- /ccr/trunk/p/GPLCCR.m	(revision 150)
+++ /ccr/trunk/p/GPLCCR.m	(revision 151)
@@ -53,5 +53,6 @@
     S G1=$NA(^TMP("GPLCCR",$J,DFN,"CCR"))
     I $D(@G1@(0)) D  ; CCR EXISTS
-    D PARY^GPLXPATH(G1)
+    . D PARY^GPLXPATH(G1)
+    E  W "CCR NOT CREATED, RUN D XPAT^GPLCCR(DFN,"""","""") FIRST",!
     Q
     ;
@@ -70,4 +71,5 @@
     S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
     I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
+    I '$D(TESTALERT) S TESTALERT=0 ; FLAG FOR TESTING ALERTS SECTION
     S TGLOBAL=$NA(^TMP("GPLCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
     S CCRGLO=$NA(^TMP("GPLCCR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
@@ -127,4 +129,5 @@
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
     I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
+    I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
     Q
     ;
@@ -214,2 +217,8 @@
  ;;>>>D ZTEST^GPLCCR("CCR")
  ;;>>>W $$TRIM^GPLXPATH(CCRGLO)
+ ;;><ALERTS>
+ ;;>>>S TESTALERT=1
+ ;;>>>K GPL S GPL=""
+ ;;>>>D CCRRPC^GPLCCR(.GPL,"2","ALERTS","","","")
+ ;;>>?@GPL@(@GPL@(0))["</Alerts>"
+