| [613] | 1 | PXKFSK1 ;ISL/JVS - SKIN TESTS ROUTINE #2 ;11/5/96 14:29
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**11**;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | CPT ;
|
|---|
| 6 | N PXKSEQ1
|
|---|
| 7 | I PXKFGAD=1 D CPTADD
|
|---|
| 8 | I PXKFGDE=1 D CPTDEL
|
|---|
| 9 | Q
|
|---|
| 10 | CPTADD ;
|
|---|
| 11 | S PXKSEQ1=PXKSEQ+PXKXX
|
|---|
| 12 | S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,0,"AFTER")=$P($P(PXKPXD(PXKX),"^",2),";")_"^"_$G(PXKAV(0,2))_"^"_$G(PXKAV(0,3))
|
|---|
| 13 | S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,12,"AFTER")=$G(PXKAFT(12))
|
|---|
| 14 | S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,812,"AFTER")=$G(PXKAFT(812))
|
|---|
| 15 | S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,"IEN")=""
|
|---|
| 16 | Q
|
|---|
| 17 | CPTDEL ;
|
|---|
| 18 | S PXKSEQ1=PXKSEQ+PXKXX
|
|---|
| 19 | S (XPFG,XP)=0 F Q:XPFG S XP=$O(^AUPNVSK("AD",PXKVST,XP)) Q:XP="" D
|
|---|
| 20 | .I $P(^AUPNVSK(XP,0),"^",1)=$P($P(PXKPXD(PXKX),"^",2),";") D
|
|---|
| 21 | ..S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,0,"BEFORE")=$G(^AUPNVSK(XP,0))
|
|---|
| 22 | ..S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,12,"BEFORE")=$G(^AUPNVSK(XP,12))
|
|---|
| 23 | ..S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,812,"BEFORE")=$G(^AUPNVSK(XP,812))
|
|---|
| 24 | ..S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,"IEN")=XP
|
|---|
| 25 | ..S XPFG=1
|
|---|
| 26 | I '$G(XPFG) Q
|
|---|
| 27 | S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,0,"AFTER")="@"
|
|---|
| 28 | S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,12,"AFTER")=""
|
|---|
| 29 | S ^TMP("PXKSAVE",$J,"SK",PXKSEQ1,812,"AFTER")=""
|
|---|
| 30 | K XPFG,XP
|
|---|
| 31 | Q
|
|---|
