ONCPMB ;Hines OIFO/GWB - BREAST Performance Measures ;09/27/11
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
N DIE,DNT,I,X,Y
S DIE="^ONCO(165.5,",DA=ONCONUM
S DNT=$P($G(^ONCO(165.5,ONCONUM,2.1)),U,11)
I DNT'="" D
.S:$P($G(^ONCO(165.5,ONCONUM,"BLA2")),U,41)="" $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
.S:$P($G(^ONCO(165.5,ONCONUM,"PM")),U,28)="" $P(^ONCO(165.5,ONCONUM,"PM"),U,28)=0
K DIR D HEAD
S DR=""
S DR(1,165.5,1)="382"
S DR(1,165.5,2)="263"
D ^DIE
W !
K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
Q
;
HEAD ;PCE header
W @IOF
W DASHES,!
W ?1,PATNAM,?SITTAB,SITEGP
W !
W ?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD
W !,DASHES
S HDL=$L("Performance Measures for Breast Cancer")
S TAB=(80-HDL)\2,TAB=TAB-1
W !,?TAB,"Performance Measures for Breast Cancer"
W !,DASHES
N DI,DIC,DR,DA,DIQ,ONC
S DA=ONCONUM
S DIC="^ONCO(165.5,"
S DR="382;263"
S DIQ="ONC" D EN^DIQ1
F I=382,263 S X=ONC(165.5,ONCONUM,I) D UCASE S ONC(165.5,ONCONUM,I)=X
W !," Reason Chemotherapy Stopped...: ",ONC(165.5,ONCONUM,382)
W !," Reason Hormone Therapy Stopped: ",ONC(165.5,ONCONUM,263)
W !,DASHES
Q
;
UCASE ;Mixed case to uppercase conversion
S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
Q
;
EXIT ;Kill variables and exit
K HDL,ONCONUM,OUT,TAB
K DIC,DIR,DIROUT,DIRUT,DLAYGO,DTOUT,DUOUT,X,Y
Q
;
CLEANUP ;Cleanup
K DASHES,PATNAM,SITEGP,SITTAB,SSN,TOPCOD,TOPNAM,TOPTAB
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPMB 1451 printed Apr 09, 2024@21:29:43 Page 2
ONCPMB ;Hines OIFO/GWB - BREAST Performance Measures ;09/27/11
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 NEW DIE,DNT,I,X,Y
+4 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
+5 SET DNT=$PIECE($GET(^ONCO(165.5,ONCONUM,2.1)),U,11)
+6 IF DNT'=""
Begin DoDot:1
+7 if $PIECE($GET(^ONCO(165.5,ONCONUM,"BLA2")),U,41)=""
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
+8 if $PIECE($GET(^ONCO(165.5,ONCONUM,"PM")),U,28)=""
SET $PIECE(^ONCO(165.5,ONCONUM,"PM"),U,28)=0
End DoDot:1
+9 KILL DIR
DO HEAD
+10 SET DR=""
+11 SET DR(1,165.5,1)="382"
+12 SET DR(1,165.5,2)="263"
+13 DO ^DIE
+14 WRITE !
+15 KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
+16 QUIT
+17 ;
HEAD ;PCE header
+1 WRITE @IOF
+2 WRITE DASHES,!
+3 WRITE ?1,PATNAM,?SITTAB,SITEGP
+4 WRITE !
+5 WRITE ?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD
+6 WRITE !,DASHES
+7 SET HDL=$LENGTH("Performance Measures for Breast Cancer")
+8 SET TAB=(80-HDL)\2
SET TAB=TAB-1
+9 WRITE !,?TAB,"Performance Measures for Breast Cancer"
+10 WRITE !,DASHES
+11 NEW DI,DIC,DR,DA,DIQ,ONC
+12 SET DA=ONCONUM
+13 SET DIC="^ONCO(165.5,"
+14 SET DR="382;263"
+15 SET DIQ="ONC"
DO EN^DIQ1
+16 FOR I=382,263
SET X=ONC(165.5,ONCONUM,I)
DO UCASE
SET ONC(165.5,ONCONUM,I)=X
+17 WRITE !," Reason Chemotherapy Stopped...: ",ONC(165.5,ONCONUM,382)
+18 WRITE !," Reason Hormone Therapy Stopped: ",ONC(165.5,ONCONUM,263)
+19 WRITE !,DASHES
+20 QUIT
+21 ;
UCASE ;Mixed case to uppercase conversion
+1 SET X=$TRANSLATE(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+2 QUIT
+3 ;
EXIT ;Kill variables and exit
+1 KILL HDL,ONCONUM,OUT,TAB
+2 KILL DIC,DIR,DIROUT,DIRUT,DLAYGO,DTOUT,DUOUT,X,Y
+3 QUIT
+4 ;
CLEANUP ;Cleanup
+1 KILL DASHES,PATNAM,SITEGP,SITTAB,SSN,TOPCOD,TOPNAM,TOPTAB
+2 QUIT
