| [613] | 1 | MCOR1 ;WISC/TJK-OERR/MEDICINE PACKAGE LINKS (PART 2) ;4/27/98 15:20
|
|---|
| 2 | ;;2.3;Medicine;**17,18**;09/13/1996
|
|---|
| 3 | S MCBRANCH=$S(MCFILE=698.3:"SURV",MCFILE=699.5:"GEN",1:"PACE") D @MCBRANCH
|
|---|
| 4 | EXIT Q
|
|---|
| 5 | SET S MCK=MCK+1,^TMP("MC",$J,MCC,MCK)=MCM_U_MCHEAD Q
|
|---|
| 6 | GEN ;
|
|---|
| 7 | W !!,"Full Generalized Procedure report not available through Consults."
|
|---|
| 8 | W !,"See the 'Generalized Procedure Report' option."
|
|---|
| 9 | S MCK=0
|
|---|
| 10 | S MCC="D",MCNODE=0,MCPIECE=8,MCFILE1=697.2,MCHEAD="PROCEDURE" D POINT^MCOREX
|
|---|
| 11 | S MCC="D",MCNODE=0,MCPIECE=6,MCFILE1=697.2,MCHEAD="SUBSPECIALTY" D POINT^MCOREX
|
|---|
| 12 | S MCC="D",MCM=699.534,MCHEAD="ASSESSMENT/FINDINGS;W" D WP^MCOREX
|
|---|
| 13 | Q
|
|---|
| 14 | PACE ;
|
|---|
| 15 | S MCC="D",MCNODE=0,MCPIECE=3,MCFILE1=698.4
|
|---|
| 16 | S MCARCODE=$S(MCFILE=698:"PACEMAKER",MCFILE=698.1:"V LEAD",MCFILE=698.2:"A LEAD",1:"")
|
|---|
| 17 | I MCARCODE="" W !!,"Full Procedure report not available through Consults." Q
|
|---|
| 18 | S MCHEAD=MCARCODE_" MODEL" D POINT^MCOREX
|
|---|
| 19 | S MCPIECE=4,MCFILE1=698.6,MCHEAD=MCARCODE_" MANUFACTURER" D POINT^MCOREX
|
|---|
| 20 | S MCPIECE=5,MCHEAD=MCARCODE_" SERIAL NUMBER" D FREE^MCOREX
|
|---|
| 21 | Q
|
|---|
| 22 | SURV S MCC="D",MCNODE=4,MCPIECE=4,MCHEAD="FOLLOWUP COMMENT" D FREE^MCOREX
|
|---|
| 23 | S MCM=698.31,MCHEAD="COMMENTS;W" D SET
|
|---|
| 24 | Q
|
|---|
| 25 | ENDO S MCC="I",MCNODE=2,MCFILE1=699.6,MCPIECE=1,MCHEAD="INDICATED THERAPY" D MPOINT^MCOREX
|
|---|
| 26 | S MCNODE=3,MCFILE1=695.5,MCHEAD="SIGNS AND SYMPTOMS" D MPOINT^MCOREX
|
|---|
| 27 | S MCNODE=5,MCFILE1=699.84,MCHEAD="DISEASE "_$S(MCARCODE="G":"FOLLOWUP",1:"EVALUATION") D MPOINT^MCOREX
|
|---|
| 28 | S MCNODE=6,MCFILE1=699.85,MCHEAD="FOLLOWUP DEVICE OR THERAPY" D MPOINT^MCOREX
|
|---|
| 29 | I MCARCODE="P" S MCNODE=12,MCPIECE=1,MCHEAD="OTHER FOLLOWUP DEVICE/THERAPY" D FREE^MCOREX
|
|---|
| 30 | S MCNODE=7,MCFILE1=699.86,MCHEAD="SURVEILLANCE" D MPOINT^MCOREX
|
|---|
| 31 | I MCARCODE="G" S MCNODE=31 F MCPIECE=1,2,3 S MCHEAD=$S(MCPIECE=1:"PROTOCOL",MCPIECE=2:"EGD SIMPLE PRIMARY EXAM",1:"LAB OR XRAY") D FREE^MCOREX
|
|---|
| 32 | I MCARCODE="G" S MCNODE=32 F MCPIECE=1,2 S MCHEAD=$S(MCPIECE=1:"OCCULT BLOOD",1:"SPECIMEN COLLECTION") D FREE^MCOREX
|
|---|
| 33 | S MCNODE=0,MCPIECE=6,MCHEAD="INDICATION COMMENT" D FREE^MCOREX
|
|---|
| 34 | S MCC="D",MCNODE=204,MCPIECE=1,MCFILE1=697.5,MCHEAD="PRIMARY DIAGNOSIS" D POINT^MCOREX
|
|---|
| 35 | S MCNODE=205,MCPIECE=1,MCHEAD="PRIMARY DIAGNOSIS IMPRESSION" D FREE^MCOREX
|
|---|
| 36 | S MCNODE=27,MCFILE1=697.5,MCPIECE=1,MCHEAD="SECONDARY DIAGNOSIS" D MPOINT^MCOREX
|
|---|
| 37 | S MCPIECE=2,MCHEAD="SECONDARY DIAGNOSIS IMPRESSION" D MFREE^MCOREX
|
|---|
| 38 | S MCNODE=19 F MCPIECE=1,2,MCHEAD=$S(MCPIECE=1:"DIAGNOSIS/DIAGNOSIS SUPPLEMENT",1:"REVISED DIAGNOSIS") D FREE^MCOREX
|
|---|
| 39 | Q
|
|---|
