Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMVSC1

GMVSC1.m

Go to the documentation of this file. 
  1. GMVSC1 ;HOIFO/YH,FT-CUMULATIVE V/M - CONTINUED ;5/21/07
  1.  ;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25
  1.  ;
  1.  ; This routine uses the following IAs:
  1.  ;  #4290 - ^PXRMINDX global       (controlled)
  1.  ; #10061 - ^VADPT calls           (supported)
  1.  ;
  1. EN1 ; ENTRY TO PRINT REPORT FROM TASKMAN {called from GMVSC0}
  1.  N GMVCLIO
  1.  K ^TMP($J,"GMRV"),GMRVDT
  1.  S (GMRVHT,GMROUT,GMRDATE(0))=0
  1.  F GMRVTY="T","P","R","BP","HT","WT","CVP","CG","PO2","PN"  S GMRVITY=$O(^GMRD(120.51,"C",GMRVTY,0)) I GMRVITY>0 D SETAR1,SETAR
  1.  I $O(^TMP($J,"GMRV",0))'>0 W !,"THERE IS NO DATA FOR THIS REPORT" G QT
  1.  S GMRDATE=9999999
  1.  F  S GMRDATE=$O(GMRVDT(GMRDATE),-1) Q:GMRDATE'>0!GMROUT  I $D(^TMP($J,"GMRV",GMRDATE)) D PRT Q:GMROUT
  1. QT ;
  1.  I IOSL'<($Y+10) F X=1:1 W ! Q:IOSL<($Y+10)
  1.  I 'GMROUT W ! D FOOTER^GMVSC0
  1.  K ^TMP($J,"GMRV"),^TMP($J,"OTHR"),GOTHR,GMRV,GMRVDT
  1.  Q
  1. Q ; KILL VARIABLES
  1.  K ^TMP($J)
  1.  K GMRZZ,GMRVARY
  1.  K GMRVER,GDATA,GMRST,GERROR,GERST,GBED,GWARD,DFN,GX,GMR1ST,GMRDAT,GMRDATE,GMRDSH,GMRDT,GMRLN,GMRPDT,GMRSP,GMRVDA,GMRVITY,GMRX,GMRY,GMRVTY,GMRSITE,GMRVX,POP,DIPGM,%T,GMRQUAL,GMROUT,GMRPG,GFLAG
  1.  D KVAR^VADPT K VA
  1.  D ^%ZISC ;???
  1.  Q
  1. SETAR ; get clio records
  1.  K GMVCLIO
  1.  S GMRDT=GMRVSDT-.000001
  1.  F  S GMRDT=$O(^PXRMINDX(120.5,"PI",DFN,GMRVITY,GMRDT)) Q:GMRDT'>0!(GMRDT>GMRVFDT)  S GMRDATE=GMRDT D SETND
  1.  Q
  1. SETAR1 ; PXRMINDX index doesn't have entered-in-error records, so use AA x-ref
  1.  N GMRVSDT1,GMRVFDT1
  1.  K GMVCLIO
  1.  S GMRDT=9999999-GMRVFDT,GMRVSDT1=9999999-GMRVSDT
  1.  S GMRDT=GMRDT-.000001,GMRVSDT1=GMRVSDT1+.000001
  1.  F  S GMRDT=$O(^GMR(120.5,"AA",DFN,GMRVITY,GMRDT)) Q:GMRDT'>0!(GMRDT>GMRVSDT1)  D SETND1
  1.  Q
  1. SETND ;
  1.  S GMRVDA=0
  1.  F  S GMRVDA=$O(^PXRMINDX(120.5,"PI",DFN,GMRVITY,GMRDT,GMRVDA)) Q:GMRVDA=""  D
  1.  .Q:GMRVDA=+GMRVDA  ;already got it SETND1
  1.  .I GMRVDA'=+GMRVDA D
  1.  ..D CLIO^GMVUTL(.GMVCLIO,GMRVDA)
  1.  ..S GMVCLIO(0)=$G(GMVCLIO(0)),GMVCLIO(2)=$G(GMVCLIO(2)),GMVCLIO(5)=$G(GMVCLIO(5))
  1.  ..I GMVCLIO(0)=""!($P(GMVCLIO(0),U,8)="") Q
  1.  ..D SETUT
  1.  ..Q
  1.  .Q
  1.  Q
  1. SETND1 ;
  1.  S GMRVDA=0
  1.  F  S GMRVDA=$O(^GMR(120.5,"AA",DFN,GMRVITY,GMRDT,GMRVDA)) Q:GMRVDA=""  D
  1.  .D F1205^GMVUTL(.GMVCLIO,GMRVDA,1)
  1.  .S GMVCLIO(0)=$G(GMVCLIO(0)),GMVCLIO(2)=$G(GMVCLIO(2)),GMVCLIO(5)=$G(GMVCLIO(5))
  1.  .I GMVCLIO(0)=""!($P(GMVCLIO(0),U,8)="") Q
  1.  .S GMRDATE=$P(GMVCLIO(0),U,1)
  1.  .D SETUT
  1.  .Q
  1.  Q
  1. SETUT ;
  1.  S ^TMP($J,"GMRV",+$E(GMRDATE,1,12),GMRVTY,GMRVDA)=$S($P(GMVCLIO(2),U,1)'=1:0,1:+$P(GMVCLIO(2),U,1))_"|"_GMVCLIO(0)_"|"_GMVCLIO(5)
  1.  S GMRVDT(+$E(GMRDATE,1,12))=""
  1.  Q
  1. PRT ;PRINT V/M BY DATE/TIME
  1.  D:IOSL<($Y+9) HDR^GMVSC2 Q:GMROUT
  1.  S Y=GMRDATE X ^DD("DD") I $P(GMRDATE,".")'=GMRDATE(0) W !,$E(GMRDATE,4,5)_"/"_$E(GMRDATE,6,7)_"/"_$E(GMRDATE,2,3) S GMRDATE(0)=$P(GMRDATE,".")
  1.  D:IOSL<($Y+9) HDR^GMVSC2 Q:GMROUT  W !,$P($P(Y,"@",2),":",1,2)
  1.  I $D(^TMP($J,"GMRV",GMRDATE)) D
  1.  .K GMRLN,GERROR F GMRVTY="T","P","R","BP","HT","WT","CVP","CG","PO2","PN" S GPRT(GMRVTY)=0 I $D(^TMP($J,"GMRV",GMRDATE,GMRVTY)) S GMRVDA="" F  S GMRVDA=$O(^TMP($J,"GMRV",GMRDATE,GMRVTY,GMRVDA)) Q:$L(GMRVDA)'>0!GMROUT  D SETLN^GMVSC2
  1.  Q