- 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 Feb 18, 2025@23:51:35 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