Routine: GMVSC0

GMVSC0 ;HOIFO/MD,YH,FT-CUMULATIVE VITALS/MEASUREMENTS FOR PATIENT OVER GIVEN DATE RANGE ;6/6/07

 ;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25

 ; This routine uses the following IAs:

 ; #10039 - FILE 42 references     (supported)

 ; #10061 - ^VADPT calls           (supported)

 ; #10103 - ^XLFDT calls           (supported)

EN1(RESULT,GMVDATA) ; GMV CUMULATIVE REPORT [RPC entry point]

 ; Cumulative Vitals Report

 ; DFN      - patient internal entry number (FILE 2)

 ; GMRVSDT  - start date/time of report range

 ; GMRVFDT  - end date/time of report range

 ; GMVDEV   - device name

 ; GMVIEN   - device internal entry name (FILE 3.5)

 ; GMVPDT   - date/time to print the report

 ; GMVWARD  - ward internal entry number (FILE 42)

 ; GMVHLOC  - hospital location internal entry number (FILE 44)

 ; GMVRMLST - list of room numbers separated by commas (e.g., 200,210)

 N DFN,GMRVSDT,GMRVFDT,GMVDEV,GMVIEN,GMVPDT,GMVWARD,GMVHLOC,GMVRMLST

 S DFN=$P(GMVDATA,U,1),GMRVSDT=$P(GMVDATA,U,2),GMRVFDT=$P(GMVDATA,U,3),GMVDEV=$P(GMVDATA,U,5),GMVIEN=+$P(GMVDATA,U,6),GMVPDT=$P(GMVDATA,U,7),GMVWARD=$P(GMVDATA,U,8),GMVHLOC=$P(GMVDATA,U,9),GMVRMLST=$P(GMVDATA,U,10)

 S ZTIO=GMVDEV ;device

 S ZTDTH=$S($G(GMVPDT)>0:GMVPDT,1:$$NOW^XLFDT()) ;date/time to print

 S (ZTSAVE("DFN"),ZTSAVE("GMRVSDT"),ZTSAVE("GMRVFDT"))=""

 S (ZTSAVE("GMVWARD"),ZTSAVE("GMVHLOC"),ZTSAVE("GMVRMLST"))=""

 S ZTDESC="Cumulative vital/measurement report"

 S ZTRTN="START^GMVSC0"

 D ^%ZTLOAD

 S RESULT=$S($G(ZTSK)>0:"Report sent to device. Task #: "_ZTSK,1:"Unable to task the report.")

 K ZTSK,ZTIO,ZTDTH,ZTSAVE,ZTDESC,ZTRTN

START ; Start the report output

 S:$D(ZTQUEUED) ZTREQ="@"

 ; if selected roombeds, then set up GMVROOM array

 I $L(GMVRMLST)>0 D

 .F GMVLOOP=1:1 Q:$P(GMVRMLST,",",GMVLOOP)=""  D

 ..S GMVROOM($P(GMVRMLST,",",GMVLOOP))=""

..Q

.Q

 S GMVEDB=$S(DFN>0:"P",GMVRMLST]"":"S",1:"A") ;P is one patient, A is whole ward, S is selected rooms

 S GMVWARD(1)=$S(GMVWARD>0:$P($G(^DIC(42,GMVWARD,0)),U,1),1:"") ;ward name

 I $G(GMVEDB)="P" D

 .D DEM^VADPT,INP^VADPT

 .S GMRRMBD=$S(VAIN(5)'="":VAIN(5),1:"  BLANK") ;roombed

 .S GMVNAME=$S(VADM(1)'="":VADM(1),1:"  BLANK") ;patient name

 .S GMVWARD=$P(VAIN(4),"^") ;ward ien

 .S GMVWARD(1)=$P(VAIN(4),"^",2) ;ward name

 .D KVAR^VADPT K VA ;kill VADPT variables

 .S ^TMP($J,GMRRMBD,GMVNAME,DFN)=""

 E  D WARD^GMVDS1 ;returns TMP global with list of patients

 S (GMROUT,GMRPG)=0

 S GMVRANGE=$$FMTE^XLFDT(GMRVSDT)_"-"_$$FMTE^XLFDT(GMRVFDT)

 D NOW^%DTC S Y=% D D^DIQ

 S GMRPDT=$P(Y,"@")_" ("_$P($P(Y,"@",2),":",1,2)_")"

 S $P(GMRDSH,"-",80)=""

 U IO

 S GMRRMBD=""

 N GPEDIS S GPEDIS=$O(^GMRD(120.52,"B","DORSALIS PEDIS",0)) Q:GPEDIS'>0

 F  S GMRRMBD=$O(^TMP($J,GMRRMBD)) Q:GMRRMBD=""!GMROUT  S GMRNAM="" F  S GMRNAM=$O(^TMP($J,GMRRMBD,GMRNAM)) Q:GMRNAM=""!GMROUT  S DFN=0 F  S DFN=$O(^TMP($J,GMRRMBD,GMRNAM,DFN)) Q:DFN'>0!GMROUT  S GMRPG=0 D WRT Q:GMROUT  D EN1^GMVSC1

Q ; kill variables and quit

 D Q^GMVSC1

 K ^TMP($J)

 K GMRBMI,GMRVHT,GMRINF,GMRPG,GMREDB,GMRNAM,GMRRMBD,GMRVWLOC,GMRWARD,GMRMSL,GMRROOM,GMRRMST,GMRVHLOC,GMRLEN,GMRI,GMROUT,GMRVSDT,GMRVFDT,GPRT,GMVLOOP

 K GMVRMLST,GMVRANGE

 D ^%ZISC

FOOTER ;REPORT FOOTER {called from GMVSC1, GMVSC2}

 W !!,"*** (E) - Error entry",!! W:VADM(1)'="" ?$X-3,$E(VADM(1),1,15) W:VADM(2)'="" ?17,$E($P(VADM(2),"^",2),8,11) W:VADM(3)'="" ?30,$P(VADM(3),"^",2) W:VADM(4)'="" ?43,$P(VADM(4),"^")_" YRS"

 W:VADM(5)'="" ?51,$P(VADM(5),"^",2)

 W ?65,"VAF 10-7987j" W !,"Unit: "_$S($P(VAIN(4),"^",2)'="":$P(VAIN(4),"^",2),1:"     "),?32,"Room: "_$S($P(VAIN(5),"^")'="":$P(VAIN(5),"^"),1:"   "),!

 I '$D(GMRVHLOC) S GMRVHLOC=$$HOSPLOC^GMVUTL1(+$G(VAIN(4)))

 W "Division: "_$$DIVISION^GMVUTL1(+GMRVHLOC),!

WRT ;

 S GMR1ST=1

 K GMRSITE

 D DEM^VADPT,INP^VADPT

 S GWARD=$S($P(VAIN(4),"^",2)'="":$P(VAIN(4),"^",2),1:"   ")

 S GBED=$S(VAIN(5)'="":$P(VAIN(5),"^"),1:"   ")

 D HDR^GMVSC2

GMVSC0    ;HOIFO/MD,YH,FT-CUMULATIVE VITALS/MEASUREMENTS FOR PATIENT OVER GIVEN DATE RANGE ;6/6/07

 +1       ;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; #10039 - FILE 42 references     (supported)

 +5       ; #10061 - ^VADPT calls           (supported)

 +6       ; #10103 - ^XLFDT calls           (supported)

 +7       ;

EN1(RESULT,GMVDATA) ; GMV CUMULATIVE REPORT [RPC entry point]

 +1       ; Cumulative Vitals Report

 +2       ; DFN      - patient internal entry number (FILE 2)

 +3       ; GMRVSDT  - start date/time of report range

 +4       ; GMRVFDT  - end date/time of report range

 +5       ; GMVDEV   - device name

 +6       ; GMVIEN   - device internal entry name (FILE 3.5)

 +7       ; GMVPDT   - date/time to print the report

 +8       ; GMVWARD  - ward internal entry number (FILE 42)

 +9       ; GMVHLOC  - hospital location internal entry number (FILE 44)

 +10      ; GMVRMLST - list of room numbers separated by commas (e.g., 200,210)

 +11      ;

 +12       NEW DFN,GMRVSDT,GMRVFDT,GMVDEV,GMVIEN,GMVPDT,GMVWARD,GMVHLOC,GMVRMLST

 +13       SET DFN=$PIECE(GMVDATA,U,1)

           SET GMRVSDT=$PIECE(GMVDATA,U,2)

           SET GMRVFDT=$PIECE(GMVDATA,U,3)

           SET GMVDEV=$PIECE(GMVDATA,U,5)

           SET GMVIEN=+$PIECE(GMVDATA,U,6)

           SET GMVPDT=$PIECE(GMVDATA,U,7)

           SET GMVWARD=$PIECE(GMVDATA,U,8)

           SET GMVHLOC=$PIECE(GMVDATA,U,9)

           SET GMVRMLST=$PIECE(GMVDATA,U,10)

 +14      ;device

           SET ZTIO=GMVDEV

 +15      ;date/time to print

           SET ZTDTH=$SELECT($GET(GMVPDT)>0:GMVPDT,1:$$NOW^XLFDT())

 +16       SET (ZTSAVE("DFN"),ZTSAVE("GMRVSDT"),ZTSAVE("GMRVFDT"))=""

 +17       SET (ZTSAVE("GMVWARD"),ZTSAVE("GMVHLOC"),ZTSAVE("GMVRMLST"))=""

 +18       SET ZTDESC="Cumulative vital/measurement report"

 +19       SET ZTRTN="START^GMVSC0"

 +20       DO ^%ZTLOAD

 +21       SET RESULT=$SELECT($GET(ZTSK)>0:"Report sent to device. Task #: "_ZTSK,1:"Unable to task the report.")

 +22       KILL ZTSK,ZTIO,ZTDTH,ZTSAVE,ZTDESC,ZTRTN

 +23       QUIT

START     ; Start the report output

 +1        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +2       ; if selected roombeds, then set up GMVROOM array

 +3        IF $LENGTH(GMVRMLST)>0

               Begin DoDot:1

 +4                FOR GMVLOOP=1:1

                       IF $PIECE(GMVRMLST,",",GMVLOOP)=""

                           QUIT

                       Begin DoDot:2

 +5                        SET GMVROOM($PIECE(GMVRMLST,",",GMVLOOP))=""

 +6                        QUIT

                       End DoDot:2

 +7                QUIT

               End DoDot:1

 +8       ;P is one patient, A is whole ward, S is selected rooms

           SET GMVEDB=$SELECT(DFN>0:"P",GMVRMLST]"":"S",1:"A")

 +9       ;ward name

           SET GMVWARD(1)=$SELECT(GMVWARD>0:$PIECE($GET(^DIC(42,GMVWARD,0)),U,1),1:"")

 +10       IF $GET(GMVEDB)="P"

               Begin DoDot:1

 +11               DO DEM^VADPT

                   DO INP^VADPT

 +12      ;roombed

                   SET GMRRMBD=$SELECT(VAIN(5)'="":VAIN(5),1:"  BLANK")

 +13      ;patient name

                   SET GMVNAME=$SELECT(VADM(1)'="":VADM(1),1:"  BLANK")

 +14      ;ward ien

                   SET GMVWARD=$PIECE(VAIN(4),"^")

 +15      ;ward name

                   SET GMVWARD(1)=$PIECE(VAIN(4),"^",2)

 +16      ;kill VADPT variables

                   DO KVAR^VADPT

                   KILL VA

 +17               SET ^TMP($JOB,GMRRMBD,GMVNAME,DFN)=""

               End DoDot:1

 +18      ;returns TMP global with list of patients

          IF '$TEST

               DO WARD^GMVDS1

 +19       SET (GMROUT,GMRPG)=0

 +20       SET GMVRANGE=$$FMTE^XLFDT(GMRVSDT)_"-"_$$FMTE^XLFDT(GMRVFDT)

 +21       DO NOW^%DTC

           SET Y=%

           DO D^DIQ

 +22       SET GMRPDT=$PIECE(Y,"@")_" ("_$PIECE($PIECE(Y,"@",2),":",1,2)_")"

 +23       SET $PIECE(GMRDSH,"-",80)=""

 +24       USE IO

 +25       SET GMRRMBD=""

 +26       NEW GPEDIS

           SET GPEDIS=$ORDER(^GMRD(120.52,"B","DORSALIS PEDIS",0))

           IF GPEDIS'>0

               QUIT

 +27       FOR

               SET GMRRMBD=$ORDER(^TMP($JOB,GMRRMBD))

               IF GMRRMBD=""!GMROUT

                   QUIT

               SET GMRNAM=""

FOR

                   SET GMRNAM=$ORDER(^TMP($JOB,GMRRMBD,GMRNAM))

                   IF GMRNAM=""!GMROUT

                       QUIT

                   SET DFN=0

FOR

                       SET DFN=$ORDER(^TMP($JOB,GMRRMBD,GMRNAM,DFN))

                       IF DFN'>0!GMROUT

                           QUIT

                       SET GMRPG=0

                       DO WRT

                       IF GMROUT

                           QUIT

                       DO EN1^GMVSC1

Q         ; kill variables and quit

 +1        DO Q^GMVSC1

 +2        KILL ^TMP($JOB)

 +3        KILL GMRBMI,GMRVHT,GMRINF,GMRPG,GMREDB,GMRNAM,GMRRMBD,GMRVWLOC,GMRWARD,GMRMSL,GMRROOM,GMRRMST,GMRVHLOC,GMRLEN,GMRI,GMROUT,GMRVSDT,GMRVFDT,GPRT,GMVLOOP

 +4        KILL GMVRMLST,GMVRANGE

 +5        DO ^%ZISC

 +6        QUIT

FOOTER    ;REPORT FOOTER {called from GMVSC1, GMVSC2}

 +1        WRITE !!,"*** (E) - Error entry",!!

           IF VADM(1)'=""

               WRITE ?$X-3,$EXTRACT(VADM(1),1,15)

           IF VADM(2)'=""

               WRITE ?17,$EXTRACT($PIECE(VADM(2),"^",2),8,11)

           IF VADM(3)'=""

               WRITE ?30,$PIECE(VADM(3),"^",2)

           IF VADM(4)'=""

               WRITE ?43,$PIECE(VADM(4),"^")_" YRS"

 +2        IF VADM(5)'=""

               WRITE ?51,$PIECE(VADM(5),"^",2)

 +3        WRITE ?65,"VAF 10-7987j"

           WRITE !,"Unit: "_$SELECT($PIECE(VAIN(4),"^",2)'="":$PIECE(VAIN(4),"^",2),1:"     "),?32,"Room: "_$SELECT($PIECE(VAIN(5),"^")'="":$PIECE(VAIN(5),"^"),1:"   "),!

 +4        IF '$DATA(GMRVHLOC)

               SET GMRVHLOC=$$HOSPLOC^GMVUTL1(+$GET(VAIN(4)))

 +5        WRITE "Division: "_$$DIVISION^GMVUTL1(+GMRVHLOC),!

 +6        QUIT

WRT       ;

 +1        SET GMR1ST=1

 +2        KILL GMRSITE

 +3        DO DEM^VADPT

           DO INP^VADPT

 +4        SET GWARD=$SELECT($PIECE(VAIN(4),"^",2)'="":$PIECE(VAIN(4),"^",2),1:"   ")

 +5        SET GBED=$SELECT(VAIN(5)'="":$PIECE(VAIN(5),"^"),1:"   ")

 +6        DO HDR^GMVSC2

 +7        QUIT

GMVSC0.m