ONCOFUP ;Hines OIFO/GWB - Print Follow-up Letter [ONCO FOLL-PRINT LETTER]
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
SCL W @IOF,!?2,"************ Print Follow-Up Letter ************",!
K DIC
S DIC="^ONCO(160,"
S DIC(0)="AEMQZ"
S DIC("A")=" Select patient: "
D ^DIC G:(Y=-1)!($D(DTOUT))!($D(DUOUT)) EXIT
S (DA,ONCOD0)=+Y
;
LFC ;LAST FOLLOW-UP CONTACT (160,15.1)
K ONCOC0
W !
W !?2,"The follow-up letter is sent to the LAST FOLLOW-UP CONTACT."
W !?2,"You may enter a new contact."
LC W !
S DIE="^ONCO(160,",DR="15.1"
L +^ONCO(160,DA):$G(DILOCKTM,5)
I '$T R !?2,"Another user is editing this entry.",X:5 G SCL
D ^DIE L -^ONCO(160,DA)
G EXIT:$D(Y)
S FC=$P($G(^ONCO(160,D0,1)),U,6)
I FC="" W !!?2,"You need to designate a follow-up contact before printing a follow-up letter." G LC
D LET G SCL
;
LET ;Print follow-up letter (Also called from FA^ONCOFUL)
I $D(ONCOC0) D
.S DIE="^ONCO(160,",DR="15.1////^S X=ONCOC0" D ^DIE
S ONCOC0=$P(^ONCO(160,ONCOD0,1),U,6)
;
TP S ONCTP=$P($G(^ONCO(165,ONCOC0,0)),U,2)
K DIC
S DIC="^ONCO(165.1,"
S DIC(0)="AEMQZ"
S DIC("A")="Select FOLLOW-UP FORM LETTER: "
I (ONCTP=1)!(ONCTP=2)!(ONCTP=6) S DIC("S")="I $P(^(0),U,2)=ONCTP"
I (ONCTP=3)!(ONCTP=5) S DIC("S")="I $P(^(0),U,2)=3"
I ONCTP=4 S DIC("S")="I $P(^(0),U,2)>3"
D ^DIC
G:(Y=-1)!($D(DTOUT))!($D(DUOUT)) EXIT
S ZZL=+Y
S DIWF="^ONCO(165.1,"_ZZL_",1,"
S DIWF(1)="160"
S BY="NUMBER",(FR,TO)=ONCOD0
W !
K DIC D EN2^DIWF D ^%ZISC D HOME^%ZIS
Q
;
EXIT ;Exit
K DIC,DA,ONCOD0,ONCOC0,DIE,DR,FC,ONCTP,ZZL,DIWF,BY,FR,TO
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOFUP 1590 printed Apr 09, 2024@21:31:20 Page 2
ONCOFUP ;Hines OIFO/GWB - Print Follow-up Letter [ONCO FOLL-PRINT LETTER]
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
SCL WRITE @IOF,!?2,"************ Print Follow-Up Letter ************",!
+1 KILL DIC
+2 SET DIC="^ONCO(160,"
+3 SET DIC(0)="AEMQZ"
+4 SET DIC("A")=" Select patient: "
+5 DO ^DIC
if (Y=-1)!($DATA(DTOUT))!($DATA(DUOUT))
GOTO EXIT
+6 SET (DA,ONCOD0)=+Y
+7 ;
LFC ;LAST FOLLOW-UP CONTACT (160,15.1)
+1 KILL ONCOC0
+2 WRITE !
+3 WRITE !?2,"The follow-up letter is sent to the LAST FOLLOW-UP CONTACT."
+4 WRITE !?2,"You may enter a new contact."
LC WRITE !
+1 SET DIE="^ONCO(160,"
SET DR="15.1"
+2 LOCK +^ONCO(160,DA):$GET(DILOCKTM,5)
+3 IF '$TEST
READ !?2,"Another user is editing this entry.",X:5
GOTO SCL
+4 DO ^DIE
LOCK -^ONCO(160,DA)
+5 if $DATA(Y)
GOTO EXIT
+6 SET FC=$PIECE($GET(^ONCO(160,D0,1)),U,6)
+7 IF FC=""
WRITE !!?2,"You need to designate a follow-up contact before printing a follow-up letter."
GOTO LC
+8 DO LET
GOTO SCL
+9 ;
LET ;Print follow-up letter (Also called from FA^ONCOFUL)
+1 IF $DATA(ONCOC0)
Begin DoDot:1
+2 SET DIE="^ONCO(160,"
SET DR="15.1////^S X=ONCOC0"
DO ^DIE
End DoDot:1
+3 SET ONCOC0=$PIECE(^ONCO(160,ONCOD0,1),U,6)
+4 ;
TP SET ONCTP=$PIECE($GET(^ONCO(165,ONCOC0,0)),U,2)
+1 KILL DIC
+2 SET DIC="^ONCO(165.1,"
+3 SET DIC(0)="AEMQZ"
+4 SET DIC("A")="Select FOLLOW-UP FORM LETTER: "
+5 IF (ONCTP=1)!(ONCTP=2)!(ONCTP=6)
SET DIC("S")="I $P(^(0),U,2)=ONCTP"
+6 IF (ONCTP=3)!(ONCTP=5)
SET DIC("S")="I $P(^(0),U,2)=3"
+7 IF ONCTP=4
SET DIC("S")="I $P(^(0),U,2)>3"
+8 DO ^DIC
+9 if (Y=-1)!($DATA(DTOUT))!($DATA(DUOUT))
GOTO EXIT
+10 SET ZZL=+Y
+11 SET DIWF="^ONCO(165.1,"_ZZL_",1,"
+12 SET DIWF(1)="160"
+13 SET BY="NUMBER"
SET (FR,TO)=ONCOD0
+14 WRITE !
+15 KILL DIC
DO EN2^DIWF
DO ^%ZISC
DO HOME^%ZIS
+16 QUIT
+17 ;
EXIT ;Exit
+1 KILL DIC,DA,ONCOD0,ONCOC0,DIE,DR,FC,ONCTP,ZZL,DIWF,BY,FR,TO
+2 QUIT
