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

ONCLPC6.m

Go to the documentation of this file.
  1. ONCLPC6 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/01
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;Treatment Complications
  1. K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
  1. W @IOF D HEAD^ONCLPC0
  1. W !," TREATMENT COMPLICATIONS"
  1. W !," -----------------------"
  1. S DR(1,165.5,1)="1426.5 29. COMPLICATIONS (YES/NO)........"
  1. S DR(1,165.5,2)="I $G(X)=0 D TC1^ONCLPC6,TC2^ONCLPC6,TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""
  1. S DR(1,165.5,3)="1426 COMPLICATION #1.............."
  1. S DR(1,165.5,4)="I ($G(X)="""")&($P($G(^ONCO(165.5,DA,""LUN2"")),U,40)=1) D ITM29ED^ONCLPC6 S Y=1426"
  1. S DR(1,165.5,5)="1426.1 COMPLICATION #2.............."
  1. S DR(1,165.5,6)="I $G(X)="""" D TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""
  1. S DR(1,165.5,7)="1426.2 COMPLICATION #3.............."
  1. S DR(1,165.5,8)="I $G(X)="""" D TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""
  1. S DR(1,165.5,9)="1426.3 COMPLICATION #4.............."
  1. S DR(1,165.5,10)="I $G(X)="""" D TC5^ONCLPC6 S Y=""@99"""
  1. S DR(1,165.5,11)="1426.4 COMPLICATION #5.............."
  1. S DR(1,165.5,12)="@99"
  1. D ^DIE
  1. W !
  1. K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
  1. EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. Q
  1. ITM29ED ;ITEM 1 EDIT
  1. W !
  1. W !," COMPLICATIONS (YES/NO) equals ""Yes"""
  1. W !," COMPLICATION #1 may not be blank"
  1. W !
  1. Q
  1. ITEM29 ;COMPLICATIONS
  1. TC1 S $P(^ONCO(165.5,D0,"LUN2"),U,33)=""
  1. W !," COMPLICATION #1..............: 000.00 No complications"
  1. Q
  1. TC2 S $P(^ONCO(165.5,D0,"LUN2"),U,34)=""
  1. W !," COMPLICATION #2..............:"
  1. Q
  1. TC3 S $P(^ONCO(165.5,D0,"LUN2"),U,35)=""
  1. W !," COMPLICATION #3..............:"
  1. Q
  1. TC4 S $P(^ONCO(165.5,D0,"LUN2"),U,36)=""
  1. W !," COMPLICATION #4..............:"
  1. Q
  1. TC5 S $P(^ONCO(165.5,D0,"LUN2"),U,37)=""
  1. W !," COMPLICATION #5..............:"
  1. Q