- BDGPI3 ; IHS/ANMC/LJF,WAR - DAY SURGERY DETAILS ; [ 02/20/2004 8:59 AM ]
- ;;5.3;PIMS;**1003**;MAY 28, 2004
- ;IHS/ITSC/LJF 05/13/2005 PATCH 1003 added DFN to parameter list
- ; code assumes DFN is set
- ;
- EN(SRDR,BDGDS,DFN) ;EP; -- main entry point for BDG PI - DAY SURGERY;IHS/ITSC/LJF PATCH 1003
- ; SRDR = ien in Surgery file
- ; BDGDS = ien in Day Surgery file
- ; At least one of these must be set
- ;
- ; first check for data in Surgery file
- K DIERR ;if set, make DIC call below choose wrong patient
- I $G(SRDR),$T(VIEW^BSRLA0)]"" D Q
- . S DIC=130,DIC(0)="EMQ",X=$$HRCN^BDGF2(DFN,DUZ(2)) D ^DIC Q:Y<1
- . NEW SRDR S SRDR=+Y
- . D VIEW^BSRLA0,PAUSE^BDGF
- ;
- ;
- ; else check Day Surgery file
- Q:'$G(BDGDS) ;ien not sent to routine
- NEW X,IENS,LINE
- S IENS=BDGDS_","_DFN_","
- S LINE="Surgery Date/Time: "_$$GET1^DIQ(9009012.01,IENS,.01)
- S LINE=$$PAD(LINE,40)_"Procedure: "_$$GET1^DIQ(9009012.01,IENS,1)
- W !,LINE
- ;
- S X=$$GET1^DIQ(9009012.01,IENS,9) ;d/t to observation
- S LINE=$$PAD($S(X]"":" To Observation: "_X,1:""),40)
- S LINE=LINE_"Specialty: "_$$GET1^DIQ(9009012.01,IENS,4)
- W !,LINE
- ;
- S LINE=$$PAD("Ward:"_$S(X]"":$$GET1^DIQ(9009012.01,IENS,2),1:""),40) ;ward
- S LINE=LINE_"Surgeon: "_$$GET1^DIQ(9009012.01,IENS,5) ;surgeon
- W !,LINE
- ;
- S LINE=$$PAD(" Rm:"_$S(X]"":$$GET1^DIQ(9009012.01,IENS,3),1:""),40) ;room
- S LINE=LINE_"Diagnosis: "_$$GET1^DIQ(9009012.01,IENS,1.5) ;dx
- W !,LINE
- ;
- S X=$$GET1^DIQ(9009012.01,IENS,7) ;release date/time
- I X]"" D
- . S LINE=""
- . S LINE=$$PAD(LINE,41)_"Released: "_X
- . W !,LINE
- . S LINE=$$PAD(LINE,41)_" LOS: "_$$GET1^DIQ(9009012.01,IENS,8)_" hrs"
- . W !,LINE
- E D
- . I $$GET1^DIQ(9009012.01,IENS,12)="YES" D Q
- .. S LINE=$$PAD(LINE,38)_"**CANCELLED**" W !,LINE
- . I $$GET1^DIQ(9009012.01,IENS,13)="YES" D Q
- .. S LINE=$$PAD(LINE,38)_"**NO-SHOW**" W !,LINE
- ;
- S BDGWP=$$GET1^DIQ(9009012.01,IENS,6,"Z","BDGWP")
- I $O(BDGWP(0)) W !,"Interview Comments:"
- F I=1:1 Q:'$D(BSDWP(I)) W !?4,BDGWP(I)
- ;
- S X=$$GET1^DIQ(9009012.01,IENS,16)
- I X]"" W !,"Post-Op Comments: "_X
- ;
- D PAUSE^BDGF
- Q
- ;
- PAD(D,L) ;EP -- SUBRTN to pad length of data
- ; -- D=data L=length
- Q $E(D_$$REPEAT^XLFSTR(" ",L),1,L)
- ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- Q $$PAD(" ",N)
- BDGPI3 ; IHS/ANMC/LJF,WAR - DAY SURGERY DETAILS ; [ 02/20/2004 8:59 AM ]
- +1 ;;5.3;PIMS;**1003**;MAY 28, 2004
- +2 ;IHS/ITSC/LJF 05/13/2005 PATCH 1003 added DFN to parameter list
- +3 ; code assumes DFN is set
- +4 ;
- EN(SRDR,BDGDS,DFN) ;EP; -- main entry point for BDG PI - DAY SURGERY;IHS/ITSC/LJF PATCH 1003
- +1 ; SRDR = ien in Surgery file
- +2 ; BDGDS = ien in Day Surgery file
- +3 ; At least one of these must be set
- +4 ;
- +5 ; first check for data in Surgery file
- +6 ;if set, make DIC call below choose wrong patient
- KILL DIERR
- +7 IF $GET(SRDR)
- IF $TEXT(VIEW^BSRLA0)]""
- Begin DoDot:1
- +8 SET DIC=130
- SET DIC(0)="EMQ"
- SET X=$$HRCN^BDGF2(DFN,DUZ(2))
- DO ^DIC
- IF Y<1
- QUIT
- +9 NEW SRDR
- SET SRDR=+Y
- +10 DO VIEW^BSRLA0
- DO PAUSE^BDGF
- End DoDot:1
- QUIT
- +11 ;
- +12 ;
- +13 ; else check Day Surgery file
- +14 ;ien not sent to routine
- IF '$GET(BDGDS)
- QUIT
- +15 NEW X,IENS,LINE
- +16 SET IENS=BDGDS_","_DFN_","
- +17 SET LINE="Surgery Date/Time: "_$$GET1^DIQ(9009012.01,IENS,.01)
- +18 SET LINE=$$PAD(LINE,40)_"Procedure: "_$$GET1^DIQ(9009012.01,IENS,1)
- +19 WRITE !,LINE
- +20 ;
- +21 ;d/t to observation
- SET X=$$GET1^DIQ(9009012.01,IENS,9)
- +22 SET LINE=$$PAD($SELECT(X]"":" To Observation: "_X,1:""),40)
- +23 SET LINE=LINE_"Specialty: "_$$GET1^DIQ(9009012.01,IENS,4)
- +24 WRITE !,LINE
- +25 ;
- +26 ;ward
- SET LINE=$$PAD("Ward:"_$SELECT(X]"":$$GET1^DIQ(9009012.01,IENS,2),1:""),40)
- +27 ;surgeon
- SET LINE=LINE_"Surgeon: "_$$GET1^DIQ(9009012.01,IENS,5)
- +28 WRITE !,LINE
- +29 ;
- +30 ;room
- SET LINE=$$PAD(" Rm:"_$SELECT(X]"":$$GET1^DIQ(9009012.01,IENS,3),1:""),40)
- +31 ;dx
- SET LINE=LINE_"Diagnosis: "_$$GET1^DIQ(9009012.01,IENS,1.5)
- +32 WRITE !,LINE
- +33 ;
- +34 ;release date/time
- SET X=$$GET1^DIQ(9009012.01,IENS,7)
- +35 IF X]""
- Begin DoDot:1
- +36 SET LINE=""
- +37 SET LINE=$$PAD(LINE,41)_"Released: "_X
- +38 WRITE !,LINE
- +39 SET LINE=$$PAD(LINE,41)_" LOS: "_$$GET1^DIQ(9009012.01,IENS,8)_" hrs"
- +40 WRITE !,LINE
- End DoDot:1
- +41 IF '$TEST
- Begin DoDot:1
- +42 IF $$GET1^DIQ(9009012.01,IENS,12)="YES"
- Begin DoDot:2
- +43 SET LINE=$$PAD(LINE,38)_"**CANCELLED**"
- WRITE !,LINE
- End DoDot:2
- QUIT
- +44 IF $$GET1^DIQ(9009012.01,IENS,13)="YES"
- Begin DoDot:2
- +45 SET LINE=$$PAD(LINE,38)_"**NO-SHOW**"
- WRITE !,LINE
- End DoDot:2
- QUIT
- End DoDot:1
- +46 ;
- +47 SET BDGWP=$$GET1^DIQ(9009012.01,IENS,6,"Z","BDGWP")
- +48 IF $ORDER(BDGWP(0))
- WRITE !,"Interview Comments:"
- +49 FOR I=1:1
- IF '$DATA(BSDWP(I))
- QUIT
- WRITE !?4,BDGWP(I)
- +50 ;
- +51 SET X=$$GET1^DIQ(9009012.01,IENS,16)
- +52 IF X]""
- WRITE !,"Post-Op Comments: "_X
- +53 ;
- +54 DO PAUSE^BDGF
- +55 QUIT
- +56 ;
- PAD(D,L) ;EP -- SUBRTN to pad length of data
- +1 ; -- D=data L=length
- +2 QUIT $EXTRACT(D_$$REPEAT^XLFSTR(" ",L),1,L)
- +3 ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- +1 QUIT $$PAD(" ",N)
