| 1 | GMVGETD1 ;HOIFO/YH-EXTRACT VITALS/MEASUREMENT RECORDS FOR A GIVEN DATE ;8/31/99 15:03
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; <None>
|
|---|
| 6 | ;
|
|---|
| 7 | EN1 ;CALLED FROM GMVGETD ENTRY POINT GETVM
|
|---|
| 8 | K ^TMP($J,"GMRV")
|
|---|
| 9 | 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 SETAR
|
|---|
| 10 | I $O(^TMP($J,"GMRV",0))'>0 K ^TMP($J,"GMRV") Q
|
|---|
| 11 | N GJ K ^TMP("GRPC") S GJ=0
|
|---|
| 12 | S GMRDATE=0 F S GMRDATE=$O(^TMP($J,"GMRV",GMRDATE)) Q:GMRDATE'>0 D PRT
|
|---|
| 13 | QT ;
|
|---|
| 14 | K ^TMP($J,"GMRV") Q
|
|---|
| 15 | SETAR ;
|
|---|
| 16 | I GMVTYPE'="",GMVTYPE'=GMRVTY Q
|
|---|
| 17 | F GMRDT=0:0 S GMRDT=$O(^GMR(120.5,"AA",DFN,GMRVITY,GMRDT)) Q:GMRDT'>0 S GMRDATE=9999999-GMRDT I '(GMRDATE>GMRVFDT!(GMRDATE<GMRVSDT)) D SETND
|
|---|
| 18 | Q
|
|---|
| 19 | SETND ;
|
|---|
| 20 | F GMRVDA=0:0 S GMRVDA=$O(^GMR(120.5,"AA",DFN,GMRVITY,GMRDT,GMRVDA)) Q:GMRVDA'>0 D SETUT
|
|---|
| 21 | Q
|
|---|
| 22 | SETUT Q:$D(^GMR(120.5,GMRVDA,2))
|
|---|
| 23 | S ^TMP($J,"GMRV",+$E(GMRDATE,1,12),GMRVTY,GMRVDA)=""
|
|---|
| 24 | Q
|
|---|
| 25 | PRT ;SAVE V/M BY DATE/TIME
|
|---|
| 26 | F GMRVTY="T","P","R","BP","HT","WT","CVP","CG","PO2","PN" I $D(^TMP($J,"GMRV",GMRDATE,GMRVTY)) F GMRVDA=0:0 S GMRVDA=$O(^TMP($J,"GMRV",GMRDATE,GMRVTY,GMRVDA)) Q:GMRVDA'>0 D SETLN^GMVGETD2
|
|---|
| 27 | Q
|
|---|
