Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCHPC4

ONCHPC4.m

Go to the documentation of this file.
  1. ONCHPC4 ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/10/00
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;First Course of Treatment
  1. K TABLE,HTABLE
  1. S TABLE("29. DATE OF FIRST COURSE OF TREATMENT")="DFCT^ONCHPC4"
  1. S TABLE("30. DATE OF INPATIENT ADMISSION")="DIA^ONCHPC4"
  1. S TABLE("31. DATE OF INPATIENT DISCHARGE")="DID^ONCHPC4"
  1. S TABLE("SURGERY")="S^ONCHPC4"
  1. S TABLE("32. DATE OF NON CANCER-DIRECTED SURGERY")="DNCDS^ONCHPC4"
  1. S TABLE("33. NON CANCER-DIRECTED SURGERY")="NCDS^ONCHPC4"
  1. S TABLE("34. DATE OF CANCER-DIRECTED SURGERY")="DCDS^ONCHPC4"
  1. S TABLE("35. SURGICAL APPROACH")="SA^ONCHPC4"
  1. S TABLE("36. SURGERY OF PRIMARY SITE")="SPS^ONCHPC4"
  1. S TABLE("37. RADIO-FREQUENCY DESTRUCTION OF TUMOR")="RFDT^ONCHPC4"
  1. S TABLE("38. ABLATION & RESECTION")="AR^ONCHPC4"
  1. S TABLE("39. SURGICAL MARGINS")="SM^ONCHPC4"
  1. S TABLE("40. DISTANCE OF TUMOR TO CLOSEST MARGIN")="DTCM^ONCHPC4"
  1. S TABLE("41. SURGERY OF REGIONAL SITE(S), DISTANT SITE(S), OR DISTANT LYMPH NODE(S)")="SORS^ONCHPC4"
  1. S TABLE("42. SURGICAL TREATMENT OF RESIDUAL PRIMARY TUMOR")="STRPT^ONCHPC4"
  1. S TABLE("43. RECONSTRUCTION/RESTORATION-FIRST COURSE")="RR^ONCHPC4"
  1. S TABLE("RADIATION THERAPY")="R^ONCHPC4A"
  1. S TABLE("44. DATE RADIATION STARTED")="DRS^ONCHPC4A"
  1. S TABLE("45. RADIATION THERAPY")="RT^ONCHPC4A"
  1. S TABLE("CHEMOTHERAPY")="C^ONCHPC4A"
  1. S TABLE("46. DATE CHEMOTHERAPY STARTED")="DCS^ONCHPC4A"
  1. S TABLE("47. CHEMOTHERAPY")="CT^ONCHPC4A"
  1. S TABLE("48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED")="TCAA^ONCHPC4A"
  1. S TABLE("49. ROUTE CHEMOTHERAPY ADMINISTERED")="RCA^ONCHPC4A"
  1. S TABLE("50. CHEMOTHERAPY/SURGERY SEQUENCE")="CSS^ONCHPC4A"
  1. S TABLE("OTHER THERAPY")="O^ONCHPC4A"
  1. S TABLE("51. DATE OTHER TREATMENT STARTED")="DOTS^ONCHPC4A"
  1. S TABLE("52. OTHER TREATMENT")="OT^ONCHPC4A"
  1. S TABLE("53. ARTERIAL EMBOLIZATION")="AE^ONCHPC4A"
  1. S TABLE("54. DEATH WITHIN30 DAYS OF START OF INTIIAL COURSE OF THERAPY")="DWTD^ONCHPC4A"
  1. S HTABLE(1)="29. DATE OF FIRST COURSE OF TREATMENT"
  1. S HTABLE(2)="30. DATE OF INPATIENT ADMISSION"
  1. S HTABLE(3)="31. DATE OF INPATIENT DISCHARGE"
  1. S HTABLE(4)=""
  1. S HTABLE(5)="SURGERY"
  1. S HTABLE(6)=""
  1. S HTABLE(7)="32. DATE OF NON CANCER-DIRECTED SURGERY"
  1. S HTABLE(8)="33. NON CANCER-DIRECTED SURGERY"
  1. S HTABLE(9)="34. DATE OF CANCER-DIRECTED SURGERY"
  1. S HTABLE(10)="35. SURGICAL APPROACH"
  1. S HTABLE(11)="36. SURGERY OF PRIMARY SITE"
  1. S HTABLE(12)="37. RADIO-FREQUENCY DESTRUCTION OF TUMOR"
  1. S HTABLE(13)="38. ABLATION & RESECTION"
  1. S HTABLE(14)="39. SURGICAL MARGINS"
  1. S HTABLE(15)="40. DISTANCE OF TUMOR TO CLOSEST MARGIN"
  1. S HTABLE(16)="41. SURGERY OF REGIONAL SITE(S), DISTANT SITE(S), OR DISTANT LYMPH NODE(S)"
  1. S HTABLE(17)="42. SURGICAL TREATMENT OF RESIDUAL PRIMARY TUMOR"
  1. S HTABLE(18)="43. RECONSTRUCTION/RESTORATION-FIRST COURSE"
  1. S HTABLE(19)=""
  1. S HTABLE(20)="RADIATION THERAPY"
  1. S HTABLE(21)=""
  1. S HTABLE(22)="44. DATE RADIATION STARTED"
  1. S HTABLE(23)="45. RADIATION THERAPY"
  1. S HTABLE(24)=""
  1. S HTABLE(25)="CHEMOTHERAPY"
  1. S HTABLE(26)=""
  1. S HTABLE(27)="46. DATE CHEMOTHERAPY STARTED"
  1. S HTABLE(28)="47. CHEMOTHERAPY"
  1. S HTABLE(29)="48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED"
  1. S HTABLE(30)="49. ROUTE CHEMOTHERAPY ADMINISTERED"
  1. S HTABLE(31)="50. CHEMOTHERAPY/SURGERY SEQUENCE"
  1. S HTABLE(32)=""
  1. S HTABLE(33)="OTHER THERAPY"
  1. S HTABLE(34)=""
  1. S HTABLE(35)="51. DATE OTHER TREATMENT STARTED"
  1. S HTABLE(36)="52. OTHER TREATMENT"
  1. S HTABLE(37)="53. ARTERIAL EMBOLIZATION"
  1. S HTABLE(38)="54. DEATH WITHIN30 DAYS OF START OF INTIIAL COURSE OF THERAPY"
  1. S CHOICES=38
  1. S IE=ONCONUM
  1. W @IOF D HEAD^ONCHPC0
  1. W !," FIRST COURSE OF TREATMENT"
  1. W !," -------------------------"
  1. S DIE="^ONCO(165.5,",DA=ONCONUM
  1. S CDS=$$GET1^DIQ(165.5,IE,58.2)
  1. S RAD=$$GET1^DIQ(165.5,IE,51.2,"I")
  1. S CHE=$$GET1^DIQ(165.5,IE,53.2,"I")
  1. DFCT W !," 29. DATE OF FIRST COURSE OF"
  1. W !," TREATMENT....................: ",$$GET1^DIQ(165.5,IE,49)
  1. DIA S DR="1 30. DATE OF INPATIENT ADMISSION..." D ^DIE G:$D(Y) JUMP
  1. DID S DR="1.1 31. DATE OF INPATIENT DISCHARGE..." D ^DIE G:$D(Y) JUMP
  1. S W @IOF D HEAD^ONCHPC0
  1. W !," SURGERY",!
  1. W " -------"
  1. DNCDS W !," 32. DATE OF NON CANCER-DIRECTED"
  1. W !," SURGERY......................: ",$$GET1^DIQ(165.5,IE,58.3)
  1. NCDS S NCDS=$$GET1^DIQ(165.5,IE,58.1)
  1. S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<43 S NCDS1=NCDS G NCDS1
  1. S NOP=$L($E(NCDS,1,43)," ")
  1. S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
  1. NCDS1 W !," 33. NON CANCER-DIRECTED SURGERY...: ",NCDS1 W:NCDS2'="" !,?37,NCDS2
  1. DCDS W !," 34. DATE OF CANCER-DIRECTED"
  1. W !," SURGERY......................: ",$$GET1^DIQ(165.5,IE,50)
  1. SA S SA=$$GET1^DIQ(165.5,IE,74)
  1. S (SA1,SA2)="",LOS=$L(SA) I LOS<43 S SA1=SA G SA1
  1. S NOP=$L($E(SA,1,43)," "),SA1=$P(SA," ",1,NOP-1),SA2=$P(SA," ",NOP,999)
  1. SA1 W !," 35. SURGICAL APPROACH.............: ",SA1 W:SA2'="" !,?37,SA2
  1. SPS S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<43 S CDS1=CDS G SPS1
  1. S NOP=$L($E(CDS,1,43)," "),CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
  1. SPS1 W !," 36. SURGERY OF PRIMARY SITE.......: ",CDS1 W:CDS2'="" !,?37,CDS2
  1. RFDT I $E(CDS,1,2)=99 D G AR
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,57)=9
  1. .W !," 37. RADIO-FREQUENCY DESTRUCTION OF"
  1. .W !," TUMOR........................: Unknown"
  1. I $E(CDS,1,2)'=17 D G AR
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,57)=8
  1. .W !," 37. RADIO-FREQUENCY DESTRUCTION OF"
  1. .W !," TUMOR........................: NA"
  1. S DR="1056 37. RADIO-FREQUENCY DESTRUCTION OF TUMOR........................" D ^DIE G:$D(Y) JUMP
  1. AR I ($E(CDS,1,2)="00")!($E(CDS,1,2)=99) D G SM
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,58)=88
  1. .W !," 38. ABLATION & RESECTION..........: NA"
  1. I $E(CDS,1,2)<18 D G SM
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,58)="00"
  1. .W !," 38. ABLATION & RESECTION..........: Ablation & resection not administered"
  1. S DR="1057 38. ABLATION & RESECTION.........." D ^DIE G:$D(Y) JUMP
  1. SM S SM=$$GET1^DIQ(165.5,IE,59)
  1. S (SM1,SM2)="",LOS=$L(SM) I LOS<43 S SM1=SM G SM1
  1. S NOP=$L($E(SM,1,43)," "),SM1=$P(SM," ",1,NOP-1),SM2=$P(SM," ",NOP,999)
  1. SM1 W !," 39. SURGICAL MARGINS..............: ",SM1 W:SM2'="" !,?37,SM2
  1. I ($E(CDS,1,2)=99)!($E(CDS,1,2)<17) K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCHPC0
  1. DTCM I ($E(CDS,1,2)<18) D G SORS
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,59)=8
  1. .W !," 40. DISTANCE OF TUMOR TO CLOSEST"
  1. .W !," MARGIN.......................: NA"
  1. I $E(CDS,1,2)=99 D G SORS
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,59)=9
  1. .W !," 40. DISTANCE OF TUMOR TO CLOSEST"
  1. .W !," MARGIN.......................: Unknown"
  1. S DR="1058 40. DISTANCE OF TUMOR TO CLOSEST MARGIN......................." D ^DIE G:$D(Y) JUMP
  1. SORS S SORS=$$GET1^DIQ(165.5,IE,139)
  1. S (SORS1,SORS2)="",LOS=$L(SORS) I LOS<43 S SORS1=SORS G SORS1
  1. S NOP=$L($E(SORS,1,43)," ")
  1. S SORS1=$P(SORS," ",1,NOP-1),SORS2=$P(SORS," ",NOP,999)
  1. SORS1 W !," 41. SURGERY OF OTHER REGIONAL"
  1. W !," SITE(S), DISTANT SITE(S),"
  1. W !," OR DISTANT LYMPH NODE(S).....: ",SORS1 W:SORS2'="" !,?37,SORS2
  1. STRPT W !!," 42. SURGICAL TREATMENT OF RESIDUAL PRIMARY TUMOR:"
  1. I $E(CDS,1,2)="00" D G RR
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,60)=8
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,61)=8
  1. .W !," ABLATION.....................: NA"
  1. .W !," RESECTION....................: NA"
  1. I $E(CDS,1,2)=99 D G RR
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,60)=9
  1. .S $P(^ONCO(165.5,D0,"HEP1"),U,61)=9
  1. .W !," ABLATION.....................: Unknown"
  1. .W !," RESECTION....................: Unknown"
  1. S DR="1059 ABLATION....................." D ^DIE G:$D(Y) JUMP
  1. S DR="1060 RESECTION...................." D ^DIE G:$D(Y) JUMP
  1. RR S RR=$$GET1^DIQ(165.5,IE,23)
  1. S (RR1,RR2)="",LOS=$L(RR) I LOS<43 S RR1=RR G RR1
  1. S NOP=$L($E(RR,1,43)," "),RR1=$P(RR," ",1,NOP-1),RR2=$P(RR," ",NOP,999)
  1. RR1 W !!," 43. RECONSTRUCTION/RESTORATION-"
  1. W !," FIRST COURSE.................: ",RR1 W:RR2'="" !,?37,RR2
  1. PRTC W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
  1. G R^ONCHPC4A
  1. JUMP ;Jump to prompts
  1. S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
  1. I X["?" D G:$D(DIRUT) EXIT G JUMP
  1. .W @IOF,!," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
  1. I '$D(TABLE(X)) S:X?1.2N X=X_"." S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
  1. .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
  1. S X=TABLE(X)
  1. G @X
  1. EXIT S:$D(DIRUT) OUT="Y"
  1. K CHOICES,PIECE,HTABLE,TABLE
  1. K CDS,CHE,IE,LOS,NCDS,NOP,RAD,SA,SA1,SA2,SM,SM1,SM2
  1. K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
  1. Q