source: WorldVistAEHR/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVEE3.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 603 bytes
Line 
1GMRVEE3 ;HIRMFO/YH-ENTERED IN ERROR EDIT (cont.) ;12/12/96
2 ;;4.0;Vitals/Measurements;;Apr 25, 1997
3QUALIFY ;EXTRACT QULIFIERS FROM OLD RECORDS
4 Q:$D(GMRCHC(2)) K GMRINF N II,IJ,GMRCHAR,GYES
5 S GTYPE=+$P(^GMR(120.5,GMRDA,0),"^",3),GTYPE(1)=$P($G(^GMRD(120.51,GTYPE,0)),"^",2) Q:GTYPE=""
6 I $P($G(^GMR(120.5,GMRDA,5,0)),"^",4)>0 S (GYES,II)=0 F S II=$O(^GMR(120.5,GMRDA,5,II)) Q:II'>0 D
7 . S GMRCHAR=^GMR(120.5,GMRDA,5,II,0)
8 . I GYES=0 S GMRSITE(GTYPE(1))=$P(^GMRD(120.52,+GMRCHAR,0),"^")_"^"_GMRCHAR,GYES=1 Q
9 . I GYES=1 S GMRINF(GTYPE(1),II,$P(^GMRD(120.52,+GMRCHAR,0),"^"))=GMRCHAR_"^"_II
10 . Q
11 Q
Note: See TracBrowser for help on using the repository browser.