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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXKMASC1 551 printed Oct 16, 2024@18:30:07 Page 2
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
