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

ONCPML.m

Go to the documentation of this file.
  1. ONCPML ;Hines OIFO/GWB - LUNG Performance Measures ;08/15/11
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. N DIE,DNT,I,X,Y
  1. S DIE="^ONCO(165.5,",DA=ONCONUM
  1. S DNT=$P($G(^ONCO(165.5,ONCONUM,2.1)),U,11)
  1. I DNT'="" D
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,1)=1 $P(^ONCO(165.5,ONCONUM,"PM"),U,2)=8
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,3)="0000000" $P(^ONCO(165.5,ONCONUM,"PM"),U,4)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,4)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,4)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,5)="0000000" $P(^ONCO(165.5,ONCONUM,"PM"),U,6)="0000000"
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,7)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,8)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,7)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,9)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,7)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,11)=8
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,7)=0 $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,8)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,8)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,8)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,9)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,9)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,9)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,11)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,11)=8
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"BLA2")),U,41)="" $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,3)),U,29)="" $P(^ONCO(165.5,ONCONUM,3),U,29)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,3)),U,29)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,12)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,12)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,12)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,3)),U,29)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,10)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,10)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,10)=0
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,14)="0000000" $P(^ONCO(165.5,ONCONUM,"PM"),U,15)="0000000"
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,14)="0000000" $P(^ONCO(165.5,ONCONUM,"PM"),U,16)="0000000"
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,17)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,19)=9
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,17)=0 $P(^ONCO(165.5,ONCONUM,"PM"),U,18)=9
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,18)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,18)=8
  1. .S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,19)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,19)=8
  1. K DIR D HEAD
  1. S DR=""
  1. S DR(1,165.5,1)="251"
  1. S DR(1,165.5,2)="252"
  1. S DR(1,165.5,3)="253"
  1. S DR(1,165.5,4)="254"
  1. S DR(1,165.5,5)="255"
  1. S DR(1,165.5,6)="256"
  1. S DR(1,165.5,7)="257"
  1. S DR(1,165.5,8)="258"
  1. S DR(1,165.5,9)="259"
  1. S DR(1,165.5,10)="261"
  1. S DR(1,165.5,11)="382"
  1. S DR(1,165.5,12)="127"
  1. S DR(1,165.5,13)="262"
  1. S DR(1,165.5,14)="260"
  1. S DR(1,165.5,15)="264"
  1. S DR(1,165.5,16)="265"
  1. S DR(1,165.5,17)="266"
  1. S DR(1,165.5,18)="267"
  1. S DR(1,165.5,19)="268"
  1. S DR(1,165.5,29)="269"
  1. D ^DIE
  1. W !
  1. K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
  1. Q
  1. ;
  1. W @IOF
  1. W DASHES,!
  1. W ?1,PATNAM,?SITTAB,SITEGP
  1. W !
  1. W ?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD
  1. W !,DASHES
  1. S HDL=$L("Performance Measures for Non-Small Cell Lung Carcinoma")
  1. S TAB=(80-HDL)\2,TAB=TAB-1
  1. W !,?TAB,"Performance Measures for Non-Small Cell Lung Carcinoma"
  1. W !,DASHES
  1. N DI,DIC,DR,DA,DIQ,ONC
  1. S DA=ONCONUM
  1. S DIC="^ONCO(165.5,"
  1. S DR="127;251:269;382"
  1. S DIQ="ONC" D EN^DIQ1
  1. F I=251,252,254,257,258,259,260,261,262,267,268,269,382,127 S X=ONC(165.5,ONCONUM,I) D UCASE S ONC(165.5,ONCONUM,I)=X
  1. W !," NSLC Stage 1-3 Path LN Staging: ",ONC(165.5,ONCONUM,251)
  1. W !," Reason for no LN Biopsy.......: ",ONC(165.5,ONCONUM,252)
  1. W !," Date of Surgery Consult.......: ",ONC(165.5,ONCONUM,253)
  1. W !," Intent of Surgery.............: ",ONC(165.5,ONCONUM,254)
  1. W !," Date Oncology Consult Ordered.: ",ONC(165.5,ONCONUM,255)
  1. W !," Date Oncology Consult Done....: ",ONC(165.5,ONCONUM,256)
  1. W !," Chemotherapy Recommended......: ",ONC(165.5,ONCONUM,257)
  1. W !," Intent of Chemotherapy........: ",ONC(165.5,ONCONUM,258)
  1. W !," Type of Chemotherapy..........: ",ONC(165.5,ONCONUM,259)
  1. W !," Doc for no Plat-based Chemo...: ",ONC(165.5,ONCONUM,261)
  1. W !," Reason Chemotherapy Stopped...: ",ONC(165.5,ONCONUM,382)
  1. W !," Intent of Radiation...........: ",ONC(165.5,ONCONUM,127)
  1. W !," Multimodality Radiation Type..: ",ONC(165.5,ONCONUM,262)
  1. W !," Reason Radiation Stopped......: ",ONC(165.5,ONCONUM,260)
  1. W !," Date Hospice Consult Initiated: ",ONC(165.5,ONCONUM,264)
  1. W !," Date Hospice Consult Completed: ",ONC(165.5,ONCONUM,265)
  1. W !," Date Hospice Care Initiated...: ",ONC(165.5,ONCONUM,266)
  1. W !," EGFR Mutation Testing.........: ",ONC(165.5,ONCONUM,267)
  1. W !," EGFR Mutation 1...............: ",ONC(165.5,ONCONUM,268)
  1. W !," EGFR Mutation 2...............: ",ONC(165.5,ONCONUM,269)
  1. W !,DASHES
  1. Q
  1. ;
  1. UCASE ;Mixed case to uppercase conversion
  1. S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. Q
  1. ;
  1. EXIT ;Kill variables and exit
  1. K HDL,ONCONUM,OUT,TAB
  1. K DIC,DIR,DIROUT,DIRUT,DLAYGO,DTOUT,DUOUT,X,Y
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K DASHES,PATNAM,SITEGP,SITTAB,SSN,TOPCOD,TOPNAM,TOPTAB
  1. Q