SR95UTL ;BIR/ADM-Utility routine for patch SR*3*95; [09/01/00 10:33 AM ]
;;3.0; Surgery ;**95**;24 Jun 93
;
; Reference to ^DGPM("APTT1" supported by DBIA #565
;
Q
PRE ; pre-install action for SR*3*95
; add new entried to file 136.5
S ^SRO(136.5,33,0)="TRACHEOSTOMY^^^Y",^SRO(136.5,33,1,0)="^^4^4^3000711^"
S ^SRO(136.5,33,1,1,0)="This category should be selected if a procedure to cut into the trachea"
S ^SRO(136.5,33,1,2,0)="and insert a tube to overcome tracheal obstruction, or to facilitate"
S ^SRO(136.5,33,1,3,0)="extended mechanical ventilation, was performed during the postoperative"
S ^SRO(136.5,33,1,4,0)="hospitalization."
S ^SRO(136.5,34,0)="NEW MECHANICAL CIRCULATORY SUPPORT^^^Y"
S ^SRO(136.5,34,1,0)="^^5^5^3000711^"
S ^SRO(136.5,34,1,1,0)="This category should be selected if the patient left the operating suite"
S ^SRO(136.5,34,1,2,0)="while dependent upon IABP or VAD for circulatory support postoperatively,"
S ^SRO(136.5,34,1,3,0)="even if the pump is only used for a short time postoperatively. However,"
S ^SRO(136.5,34,1,4,0)="this category is only appropriate if the patient did not enter the OR"
S ^SRO(136.5,34,1,5,0)="with mechanical circulatory support."
S ^SRO(136.5,"B","TRACHEOSTOMY",33)=""
S ^SRO(136.5,"B","NEW MECHANICAL CIRCULATORY SUP",34)=""
S ^SRO(136.5,0)="PERIOPERATIVE OCCURRENCE CATEGORY^136.5I^34^34"
; add new entries to file 139.2
I $G(^SRO(139.2,21,0))'="HDL" D
.F DA=21,22,23,24 S DIK="^SRO(139.2," D ^DIK
.S ^SRO(139.2,21,0)="HDL",^SRO(139.2,21,2)=72
.S ^SRO(139.2,22,0)="TRIGLYCERIDE",^SRO(139.2,22,2)=72
.S ^SRO(139.2,23,0)="LDL",^SRO(139.2,23,2)=72
.S ^SRO(139.2,24,0)="CHOLESTEROL",^SRO(139.2,24,2)=72
.S DIK="^SRO(139.2,",DIK(1)=".01" D ENALL^DIK K DA,DIK
LETR ; add text of 30-day letter to file 133
N I,SRDIV,SRLINE,X S SRDIV=0 F S SRDIV=$O(^SRO(133,SRDIV)) Q:'SRDIV D
.S ^SRO(133,SRDIV,5,0)="^133.031^40^40^3000818^^^^"
.F I=1:1:40 S X=$T(DAY30+I),SRLINE=$P(X,";;",2) S ^SRO(133,SRDIV,5,I,0)=SRLINE
CLEAN ; delete file 132.8 if test site
I $D(^SRO(132.8)) S DIU="^SRO(132.8,",DIU(0)="DT" D EN^DIU2
Q
EN1 ; ASA Class conversion from set of codes to file
S SRTN=0 F S SRTN=$O(^SRF(SRTN)) Q:'SRTN S (SRASA,SRNEW)=$P($G(^SRF(SRTN,1.1)),"^",3) I SRASA'="" D
.I SRASA=1!(SRASA=2)!(SRASA=3)!(SRASA=4)!(SRASA=5) Q
.I SRASA="1E" S SRNEW=7
.I SRASA="2E" S SRNEW=8
.I SRASA="3E" S SRNEW=9
.I SRASA="4E" S SRNEW=10
.I SRASA="5E" S SRNEW=11
.I SRNEW'=SRASA S $P(^SRF(SRTN,1.1),"^",3)=SRNEW
K SRASA,SRNEW,SRTN
MSG ; send mail message notification that conversion is completed
S XMY(DUZ)="",XMSUB="SR*3*95 - ASA Class Conversion Completed"
S SRTXT(1)="Surgery ASA Class conversion is completed."
S XMDUZ=.5,XMTEXT="SRTXT("
N I D ^XMD S ZTREQ="@"
Q
QR ; transmit quarterly reports for FY2000
S (SRFLG,SRT)=1 D NOW^%DTC S SRNOW=$E(%,1,12)
S SRSTART=2991001,SREND=2991231 D TSK
S SRSTART=3000101,SREND=3000331 D TSK
S SRSTART=3000401,SREND=3000630 D TSK
I DT>3001113 S SRSTART=3000701,SREND=3000930 D TSK
S ZTREQ="@"
Q
TSK S ZTDTH=SRNOW,ZTIO="",ZTDESC="Surgery Quarterly Report",(ZTSAVE("SRSTART"),ZTSAVE("SREND"),ZTSAVE("SRFLG"),ZTSAVE("SRT"))="",ZTRTN="EN^SROQT" D ^%ZTLOAD
Q
POST ; post-install action for SR*3*95
D NOW^%DTC S (SRNOW,ZTDTH)=$E(%,1,12),ZTRTN="EN1^SR95UTL",ZTDESC="Surgery ASA Class Conversion",ZTIO="" D ^%ZTLOAD
D MES^XPDUTL(" ASA Class conversion process queued...")
;
N SRD S SRD=^XMB("NETNAME") I SRD["TST."!(SRD["TEST")!(SRD["UTL.")!(SRD["TRAIN")!(SRD[".IHS.GOV")!(SRD["CPRS") Q
S ZTDTH=SRNOW,ZTRTN="TN1^SR95UTL",ZTDESC="Surgery Risk Assessment Retransmission",ZTIO="" D ^%ZTLOAD
S ZTDTH=SRNOW,ZTRTN="QR^SR95UTL",ZTDESC="Surgery Quarterly Report",ZTIO="" D ^%ZTLOAD
K SRNOW
Q
TN1 ; transmit historical data
K ^TMP("SRA",$J) S SRASITE=+$P($$SITE^SROVAR,"^",3),SRACNT=1
S SRADFN=0 F S SRADFN=$O(^SRF("ARS","C","T",SRADFN)) Q:'SRADFN S SRTN=0 F S SRTN=$O(^SRF("ARS","C","T",SRADFN,SRTN)) Q:'SRTN S ^TMP("SRA",$J,SRTN)=""
S SRTN=0 F S SRTN=$O(^TMP("SRA",$J,SRTN)) Q:'SRTN D STUFF
I SRACNT=1 G END
D TMSG
END K ^TMP("SRA",$J),DA,DFN,I,ISC,NAME,SR,SRA,SRACNT,SRADFN,SRACE,SRASITE,SRD,SRSDATE,SRTN,X,XMSUB,XMTEXT,VA S ZTREQ="@"
Q
STUFF ; stuff entries into ^TMP("SRA"
S SR=^SRF(SRTN,0),SRA(208)=$G(^SRF(SRTN,208)),DFN=$P(SR,"^"),SRSDATE=$P(SR,"^",9) D DEM^VADPT
N VAINDT,X,SRDISTYP,SRPTF,SRRES,SRICD9,SRPICD9,SRX,SRY
S SRACE=$P(SRA(208),"^",10) I 'SRACE S SRX=$P(VADM(8),"^") I SRX K DA,DIC,DIQ,DR S DIC=10,DR=2,DA=SRX,DIQ="SRY",DIQ(0)="I" D EN^DIQ1 S SRACE=SRY(10,SRX,2,"I")
S X=$P(SRA(208),"^",15) D:X="" DSCHG S VAINDT=X-.0001
D INP^VADPT S SRPTF=VAIN(10)
S SRRES="" D RPC^DGPTFAPI(.SRRES,SRPTF)
S SRPICD9=$P($G(SRRES(1)),U,3)
I '$D(SRRES(2)) S SRICD9="^^^^^^^^"
E S SRICD9="" F I=1:1:$L(SRRES(2),"^") S X=$P(SRRES(2),"^",I) D
.I I=1 S SRICD9=X Q
.S SRICD9=SRICD9_"^"_X
S X=$$SITE^SROUTL0(SRTN),SRDIV=$S(X:$P(^SRO(133,X,0),"^"),1:""),SRP(3)=$S(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SRASITE)
S X=$P($G(SRRES(1)),U)
S SRDISTYP=$S(X="REGULAR":1,X="NBC OR WHILE ASIH":2,X="EXPIRATION 6 MONTH LIMIT":3,X="IRREGULAR":4,X="TRANSFER":5,X="DEATH WITH AUTOPSY":6,X="DEATH WITHOUT AUTOPSY":7,1:"")
S ^TMP("SRA",$J,SRACNT)=SRASITE_"^"_SRTN_"^1^"_$E(SRSDATE,1,7)_"^"_VA("PID")_"^"_SRP(3)_"^^"_SRACE_"^"_SRPICD9_"^",SRACNT=SRACNT+1
S ^TMP("SRA",$J,SRACNT)=SRASITE_"^"_SRTN_"^2^"_SRDISTYP_"^"_SRICD9_"^",SRACNT=SRACNT+1
Q
DSCHG ; find discharge date
S VAIP("D")=SRSDATE D IN5^VADPT
I 'VAIP(13) S X1=$P($G(^SRF(SRTN,.2)),"^",12),X2=1 D C^%DTC S SR24=X,SRDT=$O(^DGPM("APTT1",DFN,SRSDATE)) G:'SRDT!(SRDT>SR24) NODS S VAIP("D")=SRDT D IN5^VADPT
I VAIP(17) S X=$E($P(VAIP(17,1),"^"),1,12) Q
NODS S X=""
Q
TMSG ; create mail message to Denver
S ISC=0,NAME=$G(^XMB("NETNAME")) I NAME["FORUM"!(NAME["ISC-")!($E(NAME,1,3)="ISC")!(NAME["ISC.") S ISC=1
I ISC S XMY("G.RISK ASSESSMENT@"_^XMB("NETNAME"))=""
I 'ISC S (XMY("G.CARDIAC RISK ASSESSMENTS@DENVER.DOMAIN.EXT"),XMY("G.SRCARDIAC@ISC-CHICAGO.DOMAIN.EXT"))=""
S SRD=^XMB("NETNAME") S XMSUB="** SR*3*95 FROM VAMC-"_SRASITE_" **",XMDUZ=$S($D(DUZ):DUZ,1:.5)
S XMTEXT="^TMP(""SRA"",$J," N I D ^XMD
Q
DAY30 ;;
;;One month ago, you had an operation at the VA Medical Center. We are
;;interested in how you feel. Have you had any health problems since your
;;operation ? We would like to hear from you. Please take a few minutes
;;to answer these questions and return this letter in the self-addressed
;;stamped envelope.
;;
;;Have you been to a hospital or seen a doctor for any reason since your
;;operation ? ___ Yes ___ No
;;
;;If you answered NO, you do not need to answer any more questions. Please
;;return this sheet in the self-addressed stamped envelope.
;;
;;If you have answered YES, please answer the following questions.
;;
;; 1) Have you been seen in an outpatient clinic or doctor's office ?
;; ___ Yes ___ No
;;
;; Why did you go to the clinic or doctor's office ? ________________
;;
;; Where ? (name and location) _____________________ Date ? ________
;;
;; Who was your doctor ? ____________________________________________
;;
;;
;; 2) Were you admitted to a hospital ? ___ Yes ___ No
;;
;; Why did you go to the hospital ? _________________________________
;;
;; Where ? (name and location) _____________________ Date ? ________
;;
;; Who was your doctor ? ____________________________________________
;;
;;
;;Please return this letter whether or not you have had any medical
;;problems. Your health and opinion are important to us. Thank You.
;;
;;Sincerely,
;;
;;
;;Surgical Clinical Nurse Reviewer
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR95UTL 7774 printed Apr 09, 2024@21:42:26 Page 2
SR95UTL ;BIR/ADM-Utility routine for patch SR*3*95; [09/01/00 10:33 AM ]
+1 ;;3.0; Surgery ;**95**;24 Jun 93
+2 ;
+3 ; Reference to ^DGPM("APTT1" supported by DBIA #565
+4 ;
+5 QUIT
PRE ; pre-install action for SR*3*95
+1 ; add new entried to file 136.5
+2 SET ^SRO(136.5,33,0)="TRACHEOSTOMY^^^Y"
SET ^SRO(136.5,33,1,0)="^^4^4^3000711^"
+3 SET ^SRO(136.5,33,1,1,0)="This category should be selected if a procedure to cut into the trachea"
+4 SET ^SRO(136.5,33,1,2,0)="and insert a tube to overcome tracheal obstruction, or to facilitate"
+5 SET ^SRO(136.5,33,1,3,0)="extended mechanical ventilation, was performed during the postoperative"
+6 SET ^SRO(136.5,33,1,4,0)="hospitalization."
+7 SET ^SRO(136.5,34,0)="NEW MECHANICAL CIRCULATORY SUPPORT^^^Y"
+8 SET ^SRO(136.5,34,1,0)="^^5^5^3000711^"
+9 SET ^SRO(136.5,34,1,1,0)="This category should be selected if the patient left the operating suite"
+10 SET ^SRO(136.5,34,1,2,0)="while dependent upon IABP or VAD for circulatory support postoperatively,"
+11 SET ^SRO(136.5,34,1,3,0)="even if the pump is only used for a short time postoperatively. However,"
+12 SET ^SRO(136.5,34,1,4,0)="this category is only appropriate if the patient did not enter the OR"
+13 SET ^SRO(136.5,34,1,5,0)="with mechanical circulatory support."
+14 SET ^SRO(136.5,"B","TRACHEOSTOMY",33)=""
+15 SET ^SRO(136.5,"B","NEW MECHANICAL CIRCULATORY SUP",34)=""
+16 SET ^SRO(136.5,0)="PERIOPERATIVE OCCURRENCE CATEGORY^136.5I^34^34"
+17 ; add new entries to file 139.2
+18 IF $GET(^SRO(139.2,21,0))'="HDL"
Begin DoDot:1
+19 FOR DA=21,22,23,24
SET DIK="^SRO(139.2,"
DO ^DIK
+20 SET ^SRO(139.2,21,0)="HDL"
SET ^SRO(139.2,21,2)=72
+21 SET ^SRO(139.2,22,0)="TRIGLYCERIDE"
SET ^SRO(139.2,22,2)=72
+22 SET ^SRO(139.2,23,0)="LDL"
SET ^SRO(139.2,23,2)=72
+23 SET ^SRO(139.2,24,0)="CHOLESTEROL"
SET ^SRO(139.2,24,2)=72
+24 SET DIK="^SRO(139.2,"
SET DIK(1)=".01"
DO ENALL^DIK
KILL DA,DIK
End DoDot:1
LETR ; add text of 30-day letter to file 133
+1 NEW I,SRDIV,SRLINE,X
SET SRDIV=0
FOR
SET SRDIV=$ORDER(^SRO(133,SRDIV))
if 'SRDIV
QUIT
Begin DoDot:1
+2 SET ^SRO(133,SRDIV,5,0)="^133.031^40^40^3000818^^^^"
+3 FOR I=1:1:40
SET X=$TEXT(DAY30+I)
SET SRLINE=$PIECE(X,";;",2)
SET ^SRO(133,SRDIV,5,I,0)=SRLINE
End DoDot:1
CLEAN ; delete file 132.8 if test site
+1 IF $DATA(^SRO(132.8))
SET DIU="^SRO(132.8,"
SET DIU(0)="DT"
DO EN^DIU2
+2 QUIT
EN1 ; ASA Class conversion from set of codes to file
+1 SET SRTN=0
FOR
SET SRTN=$ORDER(^SRF(SRTN))
if 'SRTN
QUIT
SET (SRASA,SRNEW)=$PIECE($GET(^SRF(SRTN,1.1)),"^",3)
IF SRASA'=""
Begin DoDot:1
+2 IF SRASA=1!(SRASA=2)!(SRASA=3)!(SRASA=4)!(SRASA=5)
QUIT
+3 IF SRASA="1E"
SET SRNEW=7
+4 IF SRASA="2E"
SET SRNEW=8
+5 IF SRASA="3E"
SET SRNEW=9
+6 IF SRASA="4E"
SET SRNEW=10
+7 IF SRASA="5E"
SET SRNEW=11
+8 IF SRNEW'=SRASA
SET $PIECE(^SRF(SRTN,1.1),"^",3)=SRNEW
End DoDot:1
+9 KILL SRASA,SRNEW,SRTN
MSG ; send mail message notification that conversion is completed
+1 SET XMY(DUZ)=""
SET XMSUB="SR*3*95 - ASA Class Conversion Completed"
+2 SET SRTXT(1)="Surgery ASA Class conversion is completed."
+3 SET XMDUZ=.5
SET XMTEXT="SRTXT("
+4 NEW I
DO ^XMD
SET ZTREQ="@"
+5 QUIT
QR ; transmit quarterly reports for FY2000
+1 SET (SRFLG,SRT)=1
DO NOW^%DTC
SET SRNOW=$EXTRACT(%,1,12)
+2 SET SRSTART=2991001
SET SREND=2991231
DO TSK
+3 SET SRSTART=3000101
SET SREND=3000331
DO TSK
+4 SET SRSTART=3000401
SET SREND=3000630
DO TSK
+5 IF DT>3001113
SET SRSTART=3000701
SET SREND=3000930
DO TSK
+6 SET ZTREQ="@"
+7 QUIT
TSK SET ZTDTH=SRNOW
SET ZTIO=""
SET ZTDESC="Surgery Quarterly Report"
SET (ZTSAVE("SRSTART"),ZTSAVE("SREND"),ZTSAVE("SRFLG"),ZTSAVE("SRT"))=""
SET ZTRTN="EN^SROQT"
DO ^%ZTLOAD
+1 QUIT
POST ; post-install action for SR*3*95
+1 DO NOW^%DTC
SET (SRNOW,ZTDTH)=$EXTRACT(%,1,12)
SET ZTRTN="EN1^SR95UTL"
SET ZTDESC="Surgery ASA Class Conversion"
SET ZTIO=""
DO ^%ZTLOAD
+2 DO MES^XPDUTL(" ASA Class conversion process queued...")
+3 ;
+4 NEW SRD
SET SRD=^XMB("NETNAME")
IF SRD["TST."!(SRD["TEST")!(SRD["UTL.")!(SRD["TRAIN")!(SRD[".IHS.GOV")!(SRD["CPRS")
QUIT
+5 SET ZTDTH=SRNOW
SET ZTRTN="TN1^SR95UTL"
SET ZTDESC="Surgery Risk Assessment Retransmission"
SET ZTIO=""
DO ^%ZTLOAD
+6 SET ZTDTH=SRNOW
SET ZTRTN="QR^SR95UTL"
SET ZTDESC="Surgery Quarterly Report"
SET ZTIO=""
DO ^%ZTLOAD
+7 KILL SRNOW
+8 QUIT
TN1 ; transmit historical data
+1 KILL ^TMP("SRA",$JOB)
SET SRASITE=+$PIECE($$SITE^SROVAR,"^",3)
SET SRACNT=1
+2 SET SRADFN=0
FOR
SET SRADFN=$ORDER(^SRF("ARS","C","T",SRADFN))
if 'SRADFN
QUIT
SET SRTN=0
FOR
SET SRTN=$ORDER(^SRF("ARS","C","T",SRADFN,SRTN))
if 'SRTN
QUIT
SET ^TMP("SRA",$JOB,SRTN)=""
+3 SET SRTN=0
FOR
SET SRTN=$ORDER(^TMP("SRA",$JOB,SRTN))
if 'SRTN
QUIT
DO STUFF
+4 IF SRACNT=1
GOTO END
+5 DO TMSG
END KILL ^TMP("SRA",$JOB),DA,DFN,I,ISC,NAME,SR,SRA,SRACNT,SRADFN,SRACE,SRASITE,SRD,SRSDATE,SRTN,X,XMSUB,XMTEXT,VA
SET ZTREQ="@"
+1 QUIT
STUFF ; stuff entries into ^TMP("SRA"
+1 SET SR=^SRF(SRTN,0)
SET SRA(208)=$GET(^SRF(SRTN,208))
SET DFN=$PIECE(SR,"^")
SET SRSDATE=$PIECE(SR,"^",9)
DO DEM^VADPT
+2 NEW VAINDT,X,SRDISTYP,SRPTF,SRRES,SRICD9,SRPICD9,SRX,SRY
+3 SET SRACE=$PIECE(SRA(208),"^",10)
IF 'SRACE
SET SRX=$PIECE(VADM(8),"^")
IF SRX
KILL DA,DIC,DIQ,DR
SET DIC=10
SET DR=2
SET DA=SRX
SET DIQ="SRY"
SET DIQ(0)="I"
DO EN^DIQ1
SET SRACE=SRY(10,SRX,2,"I")
+4 SET X=$PIECE(SRA(208),"^",15)
if X=""
DO DSCHG
SET VAINDT=X-.0001
+5 DO INP^VADPT
SET SRPTF=VAIN(10)
+6 SET SRRES=""
DO RPC^DGPTFAPI(.SRRES,SRPTF)
+7 SET SRPICD9=$PIECE($GET(SRRES(1)),U,3)
+8 IF '$DATA(SRRES(2))
SET SRICD9="^^^^^^^^"
+9 IF '$TEST
SET SRICD9=""
FOR I=1:1:$LENGTH(SRRES(2),"^")
SET X=$PIECE(SRRES(2),"^",I)
Begin DoDot:1
+10 IF I=1
SET SRICD9=X
QUIT
+11 SET SRICD9=SRICD9_"^"_X
End DoDot:1
+12 SET X=$$SITE^SROUTL0(SRTN)
SET SRDIV=$SELECT(X:$PIECE(^SRO(133,X,0),"^"),1:"")
SET SRP(3)=$SELECT(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SRASITE)
+13 SET X=$PIECE($GET(SRRES(1)),U)
+14 SET SRDISTYP=$SELECT(X="REGULAR":1,X="NBC OR WHILE ASIH":2,X="EXPIRATION 6 MONTH LIMIT":3,X="IRREGULAR":4,X="TRANSFER":5,X="DEATH WITH AUTOPSY":6,X="DEATH WITHOUT AUTOPSY":7,1:"")
+15 SET ^TMP("SRA",$JOB,SRACNT)=SRASITE_"^"_SRTN_"^1^"_$EXTRACT(SRSDATE,1,7)_"^"_VA("PID")_"^"_SRP(3)_"^^"_SRACE_"^"_SRPICD9_"^"
SET SRACNT=SRACNT+1
+16 SET ^TMP("SRA",$JOB,SRACNT)=SRASITE_"^"_SRTN_"^2^"_SRDISTYP_"^"_SRICD9_"^"
SET SRACNT=SRACNT+1
+17 QUIT
DSCHG ; find discharge date
+1 SET VAIP("D")=SRSDATE
DO IN5^VADPT
+2 IF 'VAIP(13)
SET X1=$PIECE($GET(^SRF(SRTN,.2)),"^",12)
SET X2=1
DO C^%DTC
SET SR24=X
SET SRDT=$ORDER(^DGPM("APTT1",DFN,SRSDATE))
if 'SRDT!(SRDT>SR24)
GOTO NODS
SET VAIP("D")=SRDT
DO IN5^VADPT
+3 IF VAIP(17)
SET X=$EXTRACT($PIECE(VAIP(17,1),"^"),1,12)
QUIT
NODS SET X=""
+1 QUIT
TMSG ; create mail message to Denver
+1 SET ISC=0
SET NAME=$GET(^XMB("NETNAME"))
IF NAME["FORUM"!(NAME["ISC-")!($EXTRACT(NAME,1,3)="ISC")!(NAME["ISC.")
SET ISC=1
+2 IF ISC
SET XMY("G.RISK ASSESSMENT@"_^XMB("NETNAME"))=""
+3 IF 'ISC
SET (XMY("G.CARDIAC RISK ASSESSMENTS@DENVER.DOMAIN.EXT"),XMY("G.SRCARDIAC@ISC-CHICAGO.DOMAIN.EXT"))=""
+4 SET SRD=^XMB("NETNAME")
SET XMSUB="** SR*3*95 FROM VAMC-"_SRASITE_" **"
SET XMDUZ=$SELECT($DATA(DUZ):DUZ,1:.5)
+5 SET XMTEXT="^TMP(""SRA"",$J,"
NEW I
DO ^XMD
+6 QUIT
DAY30 ;;
+1 ;;One month ago, you had an operation at the VA Medical Center. We are
+2 ;;interested in how you feel. Have you had any health problems since your
+3 ;;operation ? We would like to hear from you. Please take a few minutes
+4 ;;to answer these questions and return this letter in the self-addressed
+5 ;;stamped envelope.
+6 ;;
+7 ;;Have you been to a hospital or seen a doctor for any reason since your
+8 ;;operation ? ___ Yes ___ No
+9 ;;
+10 ;;If you answered NO, you do not need to answer any more questions. Please
+11 ;;return this sheet in the self-addressed stamped envelope.
+12 ;;
+13 ;;If you have answered YES, please answer the following questions.
+14 ;;
+15 ;; 1) Have you been seen in an outpatient clinic or doctor's office ?
+16 ;; ___ Yes ___ No
+17 ;;
+18 ;; Why did you go to the clinic or doctor's office ? ________________
+19 ;;
+20 ;; Where ? (name and location) _____________________ Date ? ________
+21 ;;
+22 ;; Who was your doctor ? ____________________________________________
+23 ;;
+24 ;;
+25 ;; 2) Were you admitted to a hospital ? ___ Yes ___ No
+26 ;;
+27 ;; Why did you go to the hospital ? _________________________________
+28 ;;
+29 ;; Where ? (name and location) _____________________ Date ? ________
+30 ;;
+31 ;; Who was your doctor ? ____________________________________________
+32 ;;
+33 ;;
+34 ;;Please return this letter whether or not you have had any medical
+35 ;;problems. Your health and opinion are important to us. Thank You.
+36 ;;
+37 ;;Sincerely,
+38 ;;
+39 ;;
+40 ;;Surgical Clinical Nurse Reviewer
