- ONCLPC9 ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/16/01
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- ;Print
- K IOP,%ZIS S %ZIS="MQ" W ! D ^%ZIS K %ZIS,IOP G:POP KILL
- I $D(IO("Q")) S ONCOLST="ONCONUM^ONCOPA^PATNAM^SPACES^TOPNAM^SSN^TOPTAB^TOPCOD^DASHES^SITTAB^SITEGP" D TASK G KILL
- U IO D PRT D ^%ZISC K %ZIS,IOP G KILL
- PRT S EX="",LIN=$S(IOST?1"C".E:IOSL-2,1:IOSL-4),IE=ONCONUM
- S CMC=$$GET1^DIQ(165.5,IE,1400.6) ;LNG CO-MORBID CONDITIONS Y/N
- S TC=$$GET1^DIQ(165.5,IE,1426.5) ;LNG TREATMENT COMPLICATIONS Y/N
- K LINE S $P(LINE,"-",40)="-"
- I S TABLE="PATIENT INFORMATION"
- D HEAD^ONCLPC0
- K LINE S $P(LINE,"-",19)="-"
- W !?4,TABLE,!?4,LINE
- ITEM1 W !," 1. CO-MORBID CONDITIONS:"
- D P Q:EX=U
- I CMC="No" D G CMC2
- .W !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
- W !," CO-MORBID CONDITION #1.......: ",$P($$GET1^DIQ(165.5,IE,1400)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1400)," ",2,99)
- CMC2 D P Q:EX=U
- W !," CO-MORBID CONDITION #2.......: ",$P($$GET1^DIQ(165.5,IE,1400.1)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1400.1)," ",2,99)
- D P Q:EX=U
- W !," CO-MORBID CONDITION #3.......: ",$P($$GET1^DIQ(165.5,IE,1400.2)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1400.2)," ",2,99)
- D P Q:EX=U
- W !," CO-MORBID CONDITION #4.......: ",$P($$GET1^DIQ(165.5,IE,1400.3)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1400.3)," ",2,99)
- D P Q:EX=U
- W !," CO-MORBID CONDITION #5.......: ",$P($$GET1^DIQ(165.5,IE,1400.4)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1400.4)," ",2,99)
- D P Q:EX=U
- W !," CO-MORBID CONDITION #6.......: ",$P($$GET1^DIQ(165.5,IE,1400.5)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1400.5)," ",2,99)
- D P Q:EX=U
- W !
- D P Q:EX=U
- ITEM2 W !," 2. DURATION OF TOBACCO USE.......: ",$$GET1^DIQ(165.5,IE,1401)
- D P Q:EX=U
- W !
- D P Q:EX=U
- ITEM3 W !," 3. PERSONAL HISTORY OF OTHER"
- D P Q:EX=U
- W !," INVASIVE MALIGNANCIES PRIOR"
- D P Q:EX=U
- W !," TO THIS CANCER DIAGNOSIS....: ",$$GET1^DIQ(165.5,IE,1403)
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G II
- D P Q:EX=U
- II S TABLE="TUMOR IDENTIFICATION AND DIAGNOSIS"
- I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
- K LINE S $P(LINE,"-",34)="-"
- W !?4,TABLE,!?4,LINE
- D P Q:EX=U
- ITEM4 W !," 4. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"
- D P Q:EX=U
- W !," COUGH........................: ",$$GET1^DIQ(165.5,IE,1404)
- D P Q:EX=U
- W !," SHORTNESS OF BREATH..........: ",$$GET1^DIQ(165.5,IE,1404.1)
- D P Q:EX=U
- W !," WEIGHT LOSS..................: ",$$GET1^DIQ(165.5,IE,1404.2)
- D P Q:EX=U
- W !," HEMOPTYSIS...................: ",$$GET1^DIQ(165.5,IE,1404.3)
- D P Q:EX=U
- W !," PALPABLE LYMPH NODES.........: ",$$GET1^DIQ(165.5,IE,1404.4)
- D P Q:EX=U
- W !
- D P Q:EX=U
- ITEM5 W !," 5. SCREENING FOR HIGH RISK/ASYMPTOMATIC PRESENTATION:"
- D P Q:EX=U
- W !," CHEST X-RAY..................: ",$$GET1^DIQ(165.5,IE,1405)
- D P Q:EX=U
- W !," CT SCAN......................: ",$$GET1^DIQ(165.5,IE,1405.1)
- D P Q:EX=U
- W !," BRONCHOSCOPY.................: ",$$GET1^DIQ(165.5,IE,1405.2)
- D P Q:EX=U
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G ITEM6
- W !
- D P Q:EX=U
- ITEM6 W !," 6. INITIAL DIAGNOSTIC STUDIES (PRE-THERAPY):"
- D P Q:EX=U
- W !," HISTORY AND PHYSICAL.........: ",$$GET1^DIQ(165.5,IE,1406)
- D P Q:EX=U
- W !," BRONCHOSCOPY.................: ",$$GET1^DIQ(165.5,IE,1406.1)
- D P Q:EX=U
- W !," FNAB.........................: ",$$GET1^DIQ(165.5,IE,1406.2)
- D P Q:EX=U
- W !," MEDIASTINOSCOPY..............: ",$$GET1^DIQ(165.5,IE,1406.3)
- D P Q:EX=U
- W !," THOROCOTOMY/OPEN BIOSPY......: ",$$GET1^DIQ(165.5,IE,1406.4)
- D P Q:EX=U
- W !," VATS.........................: ",$$GET1^DIQ(165.5,IE,1406.5)
- D P Q:EX=U
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y
- I IOST?1"C".E D HEAD^ONCLPC0
- D ^ONCLPC9A
- KILL ;
- K CS,CSDAT,CSI,CSPNT,DESC,DESC1,DESC2,DLC,DOFCT
- K EX,IE,LIN,LINE,LOS,NOP,ONCOLST,TABLE
- K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- Q
- P ;Print
- I ($Y'<(LIN-1)) D Q:EX=U
- .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
- .D HEAD^ONCLPC0 Q
- Q
- TASK ;Queue a task
- K IO("Q"),ZTUCI,ZTDTH,ZTIO,ZTSAVE
- S ZTRTN="PRT^ONCLPC9",ZTREQ="@",ZTSAVE("ZTREQ")=""
- S ZTDESC="Print Lung (NSCLC) PCE"
- F V2=1:1 S V1=$P(ONCOLST,"^",V2) Q:V1="" S ZTSAVE(V1)=""
- D ^%ZTLOAD D ^%ZISC U IO W !,"Request Queued",!
- K V1,V2,ONCOLST,ZTSK Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCLPC9 4391 printed Feb 18, 2025@23:50:01 Page 2
- ONCLPC9 ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/16/01
- +1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- +2 ;Print
- +3 KILL IOP,%ZIS
- SET %ZIS="MQ"
- WRITE !
- DO ^%ZIS
- KILL %ZIS,IOP
- if POP
- GOTO KILL
- +4 IF $DATA(IO("Q"))
- SET ONCOLST="ONCONUM^ONCOPA^PATNAM^SPACES^TOPNAM^SSN^TOPTAB^TOPCOD^DASHES^SITTAB^SITEGP"
- DO TASK
- GOTO KILL
- +5 USE IO
- DO PRT
- DO ^%ZISC
- KILL %ZIS,IOP
- GOTO KILL
- PRT SET EX=""
- SET LIN=$SELECT(IOST?1"C".E:IOSL-2,1:IOSL-4)
- SET IE=ONCONUM
- +1 ;LNG CO-MORBID CONDITIONS Y/N
- SET CMC=$$GET1^DIQ(165.5,IE,1400.6)
- +2 ;LNG TREATMENT COMPLICATIONS Y/N
- SET TC=$$GET1^DIQ(165.5,IE,1426.5)
- +3 KILL LINE
- SET $PIECE(LINE,"-",40)="-"
- I SET TABLE="PATIENT INFORMATION"
- +1 DO HEAD^ONCLPC0
- +2 KILL LINE
- SET $PIECE(LINE,"-",19)="-"
- +3 WRITE !?4,TABLE,!?4,LINE
- ITEM1 WRITE !," 1. CO-MORBID CONDITIONS:"
- +1 DO P
- if EX=U
- QUIT
- +2 IF CMC="No"
- Begin DoDot:1
- +3 WRITE !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
- End DoDot:1
- GOTO CMC2
- +4 WRITE !," CO-MORBID CONDITION #1.......: ",$PIECE($$GET1^DIQ(165.5,IE,1400)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1400)," ",2,99)
- CMC2 DO P
- if EX=U
- QUIT
- +1 WRITE !," CO-MORBID CONDITION #2.......: ",$PIECE($$GET1^DIQ(165.5,IE,1400.1)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1400.1)," ",2,99)
- +2 DO P
- if EX=U
- QUIT
- +3 WRITE !," CO-MORBID CONDITION #3.......: ",$PIECE($$GET1^DIQ(165.5,IE,1400.2)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1400.2)," ",2,99)
- +4 DO P
- if EX=U
- QUIT
- +5 WRITE !," CO-MORBID CONDITION #4.......: ",$PIECE($$GET1^DIQ(165.5,IE,1400.3)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1400.3)," ",2,99)
- +6 DO P
- if EX=U
- QUIT
- +7 WRITE !," CO-MORBID CONDITION #5.......: ",$PIECE($$GET1^DIQ(165.5,IE,1400.4)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1400.4)," ",2,99)
- +8 DO P
- if EX=U
- QUIT
- +9 WRITE !," CO-MORBID CONDITION #6.......: ",$PIECE($$GET1^DIQ(165.5,IE,1400.5)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1400.5)," ",2,99)
- +10 DO P
- if EX=U
- QUIT
- +11 WRITE !
- +12 DO P
- if EX=U
- QUIT
- ITEM2 WRITE !," 2. DURATION OF TOBACCO USE.......: ",$$GET1^DIQ(165.5,IE,1401)
- +1 DO P
- if EX=U
- QUIT
- +2 WRITE !
- +3 DO P
- if EX=U
- QUIT
- ITEM3 WRITE !," 3. PERSONAL HISTORY OF OTHER"
- +1 DO P
- if EX=U
- QUIT
- +2 WRITE !," INVASIVE MALIGNANCIES PRIOR"
- +3 DO P
- if EX=U
- QUIT
- +4 WRITE !," TO THIS CANCER DIAGNOSIS....: ",$$GET1^DIQ(165.5,IE,1403)
- +5 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCLPC0
- GOTO II
- +6 DO P
- if EX=U
- QUIT
- II SET TABLE="TUMOR IDENTIFICATION AND DIAGNOSIS"
- +1 IF IOST'?1"C".E
- WRITE !
- IF ($Y'<(LIN-4))
- DO HEAD^ONCLPC0
- +2 KILL LINE
- SET $PIECE(LINE,"-",34)="-"
- +3 WRITE !?4,TABLE,!?4,LINE
- +4 DO P
- if EX=U
- QUIT
- ITEM4 WRITE !," 4. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"
- +1 DO P
- if EX=U
- QUIT
- +2 WRITE !," COUGH........................: ",$$GET1^DIQ(165.5,IE,1404)
- +3 DO P
- if EX=U
- QUIT
- +4 WRITE !," SHORTNESS OF BREATH..........: ",$$GET1^DIQ(165.5,IE,1404.1)
- +5 DO P
- if EX=U
- QUIT
- +6 WRITE !," WEIGHT LOSS..................: ",$$GET1^DIQ(165.5,IE,1404.2)
- +7 DO P
- if EX=U
- QUIT
- +8 WRITE !," HEMOPTYSIS...................: ",$$GET1^DIQ(165.5,IE,1404.3)
- +9 DO P
- if EX=U
- QUIT
- +10 WRITE !," PALPABLE LYMPH NODES.........: ",$$GET1^DIQ(165.5,IE,1404.4)
- +11 DO P
- if EX=U
- QUIT
- +12 WRITE !
- +13 DO P
- if EX=U
- QUIT
- ITEM5 WRITE !," 5. SCREENING FOR HIGH RISK/ASYMPTOMATIC PRESENTATION:"
- +1 DO P
- if EX=U
- QUIT
- +2 WRITE !," CHEST X-RAY..................: ",$$GET1^DIQ(165.5,IE,1405)
- +3 DO P
- if EX=U
- QUIT
- +4 WRITE !," CT SCAN......................: ",$$GET1^DIQ(165.5,IE,1405.1)
- +5 DO P
- if EX=U
- QUIT
- +6 WRITE !," BRONCHOSCOPY.................: ",$$GET1^DIQ(165.5,IE,1405.2)
- +7 DO P
- if EX=U
- QUIT
- +8 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCLPC0
- GOTO ITEM6
- +9 WRITE !
- +10 DO P
- if EX=U
- QUIT
- ITEM6 WRITE !," 6. INITIAL DIAGNOSTIC STUDIES (PRE-THERAPY):"
- +1 DO P
- if EX=U
- QUIT
- +2 WRITE !," HISTORY AND PHYSICAL.........: ",$$GET1^DIQ(165.5,IE,1406)
- +3 DO P
- if EX=U
- QUIT
- +4 WRITE !," BRONCHOSCOPY.................: ",$$GET1^DIQ(165.5,IE,1406.1)
- +5 DO P
- if EX=U
- QUIT
- +6 WRITE !," FNAB.........................: ",$$GET1^DIQ(165.5,IE,1406.2)
- +7 DO P
- if EX=U
- QUIT
- +8 WRITE !," MEDIASTINOSCOPY..............: ",$$GET1^DIQ(165.5,IE,1406.3)
- +9 DO P
- if EX=U
- QUIT
- +10 WRITE !," THOROCOTOMY/OPEN BIOSPY......: ",$$GET1^DIQ(165.5,IE,1406.4)
- +11 DO P
- if EX=U
- QUIT
- +12 WRITE !," VATS.........................: ",$$GET1^DIQ(165.5,IE,1406.5)
- +13 DO P
- if EX=U
- QUIT
- +14 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- +15 IF IOST?1"C".E
- DO HEAD^ONCLPC0
- +16 DO ^ONCLPC9A
- KILL ;
- +1 KILL CS,CSDAT,CSI,CSPNT,DESC,DESC1,DESC2,DLC,DOFCT
- +2 KILL EX,IE,LIN,LINE,LOS,NOP,ONCOLST,TABLE
- +3 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- +4 QUIT
- P ;Print
- +1 IF ($Y'<(LIN-1))
- Begin DoDot:1
- +2 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- IF 'Y
- SET EX=U
- QUIT
- +3 DO HEAD^ONCLPC0
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +4 QUIT
- TASK ;Queue a task
- +1 KILL IO("Q"),ZTUCI,ZTDTH,ZTIO,ZTSAVE
- +2 SET ZTRTN="PRT^ONCLPC9"
- SET ZTREQ="@"
- SET ZTSAVE("ZTREQ")=""
- +3 SET ZTDESC="Print Lung (NSCLC) PCE"
- +4 FOR V2=1:1
- SET V1=$PIECE(ONCOLST,"^",V2)
- if V1=""
- QUIT
- SET ZTSAVE(V1)=""
- +5 DO ^%ZTLOAD
- DO ^%ZISC
- USE IO
- WRITE !,"Request Queued",!
- +6 KILL V1,V2,ONCOLST,ZTSK
- QUIT
