SROSRRT ;BIR/MAM-ADD TISSUE EXAM FOR NON OR; 26 AUGUST 1994 7:00am
;;3.0; Surgery ;**33**;24 Jun 93
ADD ; add option Tissue Examination Report (SROTRPT) to the
; Non-O.R. Procedures (Enter/Edit) Menu
;
S SRSOUT=0
W !,"This routine will add the Tissue Examination Report to the Non-O.R.",!,"Procedures (Enter/Edit) Menu. It also provides the ability to add the"
W !,"fields BRIEF CLIN HISTORY, OPERATIVE FINDINGS, and SPECIMENS to the",!,"SRNON-OR input template.",!!,"After updating the input template, the TISSUE EXAM/NON O.R. entry in the"
W !,"PACKAGE file will be removed. It was created to provide the template",!,"updates and is no longer needed. The PACKAGE file entry SURGERY V3.0"
W !,"PATCH, which was created by an earlier Surgery patch, will be removed",!,"also since it, too, is no longer needed."
K DIC,X,Y S DIC=19,DIC(0)="QM",X="SRONOP-ENTER" D ^DIC K DIC S SRMENU=+Y
I SRMENU<0 W !!,"You are missing the Non-O.R. Procedures (Enter/Edit) Menu. Please contact",!,"your local ISC customer service representative for assistance." Q
K DIC,X,Y S DIC=19,DIC(0)="QM",X="SROTRPT" D ^DIC K DIC S SRTISS=+Y
I SRTISS<0 W !!,"You are missing the Tissue Examination Report option. Please contact your",!,"local ISC customer service representative for assistance." Q
I '$O(^DIC(19,SRMENU,10,"B",SRTISS,0)) W !!,"Adding the Tissue Examination Report to Non-O.R. Procedures (Enter/Edit)..." D
.K X,Y,DR,DIC,DA,DD,DO,DINUM S X=SRTISS,DA(1)=SRMENU,DIC(0)="L",DIC="^DIC(19,"_SRMENU_",10,",DLAYGO=19.01 D FILE^DICN S SRSUB=+Y
.K DIE,DR,DA,X,Y S DIE="^DIC(19,"_SRMENU_",10,",DA(1)=SRMENU,DA=SRSUB,DR="2///TR;3///6" D ^DIE K DR,DA,DIE
;
TEMP ; update input template SRONOP-ENTER
;
G:SRSOUT END
W !!,"This routine provides the ability to overlay the input template SRNON-OR.",!,"This template is used within the option ""Edit Non-O.R. Procedure"" to"
W !,"update Non-O.R. Procedure information."
W !!,"If you have already made local changes to this template, you may opt to",!,"bypass this portion of the process and update your input template manually."
W !,"The fields to be added are SPECIMENS, BRIEF CLIN HISTORY, and OPERATIVE",!,"FINDINGS."
W !!,"Do you want to overlay the input template SRNON-OR? YES// " R SRYN:DTIME I '$T!(SRYN["^") G END
S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
I SRYN["?" D HELP G TEMP
I "YyNn"'[SRYN W !!,"Enter ""YES"" or ""NO"". If you need additional help, enter ""?""." G TEMP
I "Nn"[SRYN W !!,"No updates have been made to the SRNON-OR template." G END
W !!,"Updating the SRNON-OR template.",!
D ^SRRTINIT
END ;
K DIC S DIC=9.4,DIC(0)="M",X="TISSUE EXAM/NON O.R." D ^DIC I +Y>0 S SRPKG=+Y D
.W !!,"The update to SRNON-OR is complete.",!!,"Removing TISSUE EXAM/NON O.R. from the PACKAGE file..." K DIC,DIK,DA S DA=SRPKG,DIK="^DIC(9.4," D ^DIK
K DIC S DIC=9.4,DIC(0)="M",X="SURGERY V3.0 PATCH" D ^DIC I +Y>0 S SRPKG=+Y W !!,"Removing SURGERY V3.0 PATCH from PACKAGE file..." K DIC,DIK,DA,X,Y S DA=SRPKG,DIK="^DIC(9.4," D ^DIK
W !!,"The process is complete. The Tissue Examination Report can now be printed",!,"for Non-O.R. Procedures."
K DA,DIC,DIE,DIK,DINUM,DLAYGO,DO,DR,SRMENU,SRPKG,SRSOUT,SRSUB,SRTISS,SRYN,X,Y
Q
HELP ; help message for updating SRNON-OR input template
W !!,"Enter ""YES"" if you want to overlay the input template SRNON-OR. If you have",!,"made local changes to this template, answering ""YES"" will remove them."
W !,"If you have made local changes and do not wish to have them removed, you should",!,"answer ""NO"" to this question. Then, using VA FileMan, add the fields"
W !,"SPECIMENS, OPERATIVE FINDINGS, and BRIEF CLIN HISTORY to the SRNON-OR",!,"template.",!!,"Press RETURN to continue: " R X:DTIME S:X["^" SRSOUT=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROSRRT 3760 printed Dec 13, 2024@02:46:11 Page 2
SROSRRT ;BIR/MAM-ADD TISSUE EXAM FOR NON OR; 26 AUGUST 1994 7:00am
+1 ;;3.0; Surgery ;**33**;24 Jun 93
ADD ; add option Tissue Examination Report (SROTRPT) to the
+1 ; Non-O.R. Procedures (Enter/Edit) Menu
+2 ;
+3 SET SRSOUT=0
+4 WRITE !,"This routine will add the Tissue Examination Report to the Non-O.R.",!,"Procedures (Enter/Edit) Menu. It also provides the ability to add the"
+5 WRITE !,"fields BRIEF CLIN HISTORY, OPERATIVE FINDINGS, and SPECIMENS to the",!,"SRNON-OR input template.",!!,"After updating the input template, the TISSUE EXAM/NON O.R. entry in the"
+6 WRITE !,"PACKAGE file will be removed. It was created to provide the template",!,"updates and is no longer needed. The PACKAGE file entry SURGERY V3.0"
+7 WRITE !,"PATCH, which was created by an earlier Surgery patch, will be removed",!,"also since it, too, is no longer needed."
+8 KILL DIC,X,Y
SET DIC=19
SET DIC(0)="QM"
SET X="SRONOP-ENTER"
DO ^DIC
KILL DIC
SET SRMENU=+Y
+9 IF SRMENU<0
WRITE !!,"You are missing the Non-O.R. Procedures (Enter/Edit) Menu. Please contact",!,"your local ISC customer service representative for assistance."
QUIT
+10 KILL DIC,X,Y
SET DIC=19
SET DIC(0)="QM"
SET X="SROTRPT"
DO ^DIC
KILL DIC
SET SRTISS=+Y
+11 IF SRTISS<0
WRITE !!,"You are missing the Tissue Examination Report option. Please contact your",!,"local ISC customer service representative for assistance."
QUIT
+12 IF '$ORDER(^DIC(19,SRMENU,10,"B",SRTISS,0))
WRITE !!,"Adding the Tissue Examination Report to Non-O.R. Procedures (Enter/Edit)..."
Begin DoDot:1
+13 KILL X,Y,DR,DIC,DA,DD,DO,DINUM
SET X=SRTISS
SET DA(1)=SRMENU
SET DIC(0)="L"
SET DIC="^DIC(19,"_SRMENU_",10,"
SET DLAYGO=19.01
DO FILE^DICN
SET SRSUB=+Y
+14 KILL DIE,DR,DA,X,Y
SET DIE="^DIC(19,"_SRMENU_",10,"
SET DA(1)=SRMENU
SET DA=SRSUB
SET DR="2///TR;3///6"
DO ^DIE
KILL DR,DA,DIE
End DoDot:1
+15 ;
TEMP ; update input template SRONOP-ENTER
+1 ;
+2 if SRSOUT
GOTO END
+3 WRITE !!,"This routine provides the ability to overlay the input template SRNON-OR.",!,"This template is used within the option ""Edit Non-O.R. Procedure"" to"
+4 WRITE !,"update Non-O.R. Procedure information."
+5 WRITE !!,"If you have already made local changes to this template, you may opt to",!,"bypass this portion of the process and update your input template manually."
+6 WRITE !,"The fields to be added are SPECIMENS, BRIEF CLIN HISTORY, and OPERATIVE",!,"FINDINGS."
+7 WRITE !!,"Do you want to overlay the input template SRNON-OR? YES// "
READ SRYN:DTIME
IF '$TEST!(SRYN["^")
GOTO END
+8 SET SRYN=$EXTRACT(SRYN)
if SRYN=""
SET SRYN="Y"
+9 IF SRYN["?"
DO HELP
GOTO TEMP
+10 IF "YyNn"'[SRYN
WRITE !!,"Enter ""YES"" or ""NO"". If you need additional help, enter ""?""."
GOTO TEMP
+11 IF "Nn"[SRYN
WRITE !!,"No updates have been made to the SRNON-OR template."
GOTO END
+12 WRITE !!,"Updating the SRNON-OR template.",!
+13 DO ^SRRTINIT
END ;
+1 KILL DIC
SET DIC=9.4
SET DIC(0)="M"
SET X="TISSUE EXAM/NON O.R."
DO ^DIC
IF +Y>0
SET SRPKG=+Y
Begin DoDot:1
+2 WRITE !!,"The update to SRNON-OR is complete.",!!,"Removing TISSUE EXAM/NON O.R. from the PACKAGE file..."
KILL DIC,DIK,DA
SET DA=SRPKG
SET DIK="^DIC(9.4,"
DO ^DIK
End DoDot:1
+3 KILL DIC
SET DIC=9.4
SET DIC(0)="M"
SET X="SURGERY V3.0 PATCH"
DO ^DIC
IF +Y>0
SET SRPKG=+Y
WRITE !!,"Removing SURGERY V3.0 PATCH from PACKAGE file..."
KILL DIC,DIK,DA,X,Y
SET DA=SRPKG
SET DIK="^DIC(9.4,"
DO ^DIK
+4 WRITE !!,"The process is complete. The Tissue Examination Report can now be printed",!,"for Non-O.R. Procedures."
+5 KILL DA,DIC,DIE,DIK,DINUM,DLAYGO,DO,DR,SRMENU,SRPKG,SRSOUT,SRSUB,SRTISS,SRYN,X,Y
+6 QUIT
HELP ; help message for updating SRNON-OR input template
+1 WRITE !!,"Enter ""YES"" if you want to overlay the input template SRNON-OR. If you have",!,"made local changes to this template, answering ""YES"" will remove them."
+2 WRITE !,"If you have made local changes and do not wish to have them removed, you should",!,"answer ""NO"" to this question. Then, using VA FileMan, add the fields"
+3 WRITE !,"SPECIMENS, OPERATIVE FINDINGS, and BRIEF CLIN HISTORY to the SRNON-OR",!,"template.",!!,"Press RETURN to continue: "
READ X:DTIME
if X["^"
SET SRSOUT=1
+4 QUIT