PXKMASC1.m

PXKMASC1 ;ISL/JVS - SECOND ROUTINE ;5/21/96  13:20

 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 ;

OUT ;

 N SUB,REF

 K ^TMP("PXKMASC1",$J)

 S SUB=1

 F REF="PXKAV","PXKBV","PXSDOE","VSIT","PXCA" D

 .Q:'$D(@REF)

 .F  S REF=$Q(@REF) Q:REF=""  D  K @REF

 ..S ^TMP("PXKMASC1",$J,SUB,1)=REF

 ..S ^TMP("PXKMASC1",$J,SUB,2)=@REF

 ..S SUB=SUB+1

 Q

IN ;

 N SUB,RESTOR

 S SUB=0

 F  S SUB=$O(^TMP("PXKMASC1",$J,SUB)) Q:SUB=""  D

 .S RESTOR=$G(^TMP("PXKMASC1",$J,SUB,1))

 .S @RESTOR=$G(^TMP("PXKMASC1",$J,SUB,2))

 K ^TMP("PXKMASC1",$J)

 Q

PXKMASC1  ;ISL/JVS - SECOND ROUTINE ;5/21/96  13:20

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 +2       ;

OUT       ;

 +1        NEW SUB,REF

 +2        KILL ^TMP("PXKMASC1",$JOB)

 +3        SET SUB=1

 +4        FOR REF="PXKAV","PXKBV","PXSDOE","VSIT","PXCA"

               Begin DoDot:1

 +5                IF '$DATA(@REF)

                       QUIT 

 +6                FOR 

                       SET REF=$QUERY(@REF)

                       IF REF=""

                           QUIT 

                       Begin DoDot:2

 +7                        SET ^TMP("PXKMASC1",$JOB,SUB,1)=REF

 +8                        SET ^TMP("PXKMASC1",$JOB,SUB,2)=@REF

 +9                        SET SUB=SUB+1

                       End DoDot:2

                       KILL @REF

               End DoDot:1

 +10       QUIT 

IN        ;

 +1        NEW SUB,RESTOR

 +2        SET SUB=0

 +3        FOR 

               SET SUB=$ORDER(^TMP("PXKMASC1",$JOB,SUB))

               IF SUB=""

                   QUIT 

               Begin DoDot:1

 +4                SET RESTOR=$GET(^TMP("PXKMASC1",$JOB,SUB,1))

 +5                SET @RESTOR=$GET(^TMP("PXKMASC1",$JOB,SUB,2))

               End DoDot:1

 +6        KILL ^TMP("PXKMASC1",$JOB)

 +7        QUIT