Routine: GMVCHAR

GMVCHAR ;HIOFO/YH,FT-EXTRACT CHARACTERISTIC DATA ;11/8/01  14:33

 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 ; This routine uses the following IAs:

 ; <None>

CHAR(GDA,GARRY,X) ;

 ; Input data:

 ; GDA - Pointer to patient vitals/measurements file #120.5

 ; X - Pointer to the vital type file #120.51

 ; Output data array:

 ; GARRY(GDA,print order,qualifier data)

 N GMRVORDR,GMRVDA,GMRVCAT,GMRVCHAR

 S GMRVDA(1)=0 F  S GMRVDA(1)=$O(^GMR(120.5,GDA,5,"B",GMRVDA(1))) Q:GMRVDA(1)'>0  D

 .  Q:'$D(^GMRD(120.52,GMRVDA(1),0))  S GMRVCHAR=$P($G(^GMRD(120.52,GMRVDA(1),0)),"^")

 .  S GMRVDA(2)=$O(^GMRD(120.52,GMRVDA(1),1,"B",X,0)) I GMRVDA(2)'>0 S GARRY(GDA,1,GMRVCHAR)="" Q

 .  S GMRVCAT=+$P($G(^GMRD(120.52,GMRVDA(1),1,GMRVDA(2),0)),"^",2)

 . S GMRVCAT(1)=$O(^GMRD(120.53,"C",X,GMRVCAT,0)) Q:GMRVCAT(1)'>0

 . Q:'$D(^GMRD(120.53,GMRVCAT,1,GMRVCAT(1)))

 . S GMRVORDR=+$P($G(^GMRD(120.53,GMRVCAT,1,GMRVCAT(1),0)),"^",5) I GMRVORDR=0 S GMRVORDR=1

 .  S GARRY(GDA,GMRVORDR,GMRVCHAR)=""

 .  Q

WRITECH(GDA,GARRY,GN) ;

 ; Input data:

 ; GDA - Pointer to the patient vitals/measurements data file #120.5

 ; GARRY - qualifier data array for a measurement

 ;         GARRY(GDA,Print order,qualifier data)

 ; GN - Number of print order to print

 N GMRVDA,GDATA

 S GDATA="",GMRVDA(1)=0 F  S GMRVDA(1)=$O(GARRY(GDA,GMRVDA(1))) Q:GMRVDA(1)'>0!(GMRVDA(1)>GN)  S GMRVDA(2)="" F  S GMRVDA(2)=$O(GARRY(GDA,GMRVDA(1),GMRVDA(2))) Q:GMRVDA(2)=""  D

 . S GDATA=GDATA_$S(GDATA'="":", ",1:"")_GMRVDA(2)

 Q GDATA

GMVCHAR   ;HIOFO/YH,FT-EXTRACT CHARACTERISTIC DATA ;11/8/01  14:33

 +1       ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; <None>

 +5       ;

CHAR(GDA,GARRY,X) ;

 +1       ; Input data:

 +2       ; GDA - Pointer to patient vitals/measurements file #120.5

 +3       ; X - Pointer to the vital type file #120.51

 +4       ; Output data array:

 +5       ; GARRY(GDA,print order,qualifier data)

 +6        NEW GMRVORDR,GMRVDA,GMRVCAT,GMRVCHAR

 +7        SET GMRVDA(1)=0

FOR

               SET GMRVDA(1)=$ORDER(^GMR(120.5,GDA,5,"B",GMRVDA(1)))

               IF GMRVDA(1)'>0

                   QUIT

               Begin DoDot:1

 +8                IF '$DATA(^GMRD(120.52,GMRVDA(1),0))

                       QUIT

                   SET GMRVCHAR=$PIECE($GET(^GMRD(120.52,GMRVDA(1),0)),"^")

 +9                SET GMRVDA(2)=$ORDER(^GMRD(120.52,GMRVDA(1),1,"B",X,0))

                   IF GMRVDA(2)'>0

                       SET GARRY(GDA,1,GMRVCHAR)=""

                       QUIT

 +10               SET GMRVCAT=+$PIECE($GET(^GMRD(120.52,GMRVDA(1),1,GMRVDA(2),0)),"^",2)

 +11               SET GMRVCAT(1)=$ORDER(^GMRD(120.53,"C",X,GMRVCAT,0))

                   IF GMRVCAT(1)'>0

                       QUIT

 +12               IF '$DATA(^GMRD(120.53,GMRVCAT,1,GMRVCAT(1)))

                       QUIT

 +13               SET GMRVORDR=+$PIECE($GET(^GMRD(120.53,GMRVCAT,1,GMRVCAT(1),0)),"^",5)

                   IF GMRVORDR=0

                       SET GMRVORDR=1

 +14               SET GARRY(GDA,GMRVORDR,GMRVCHAR)=""

 +15               QUIT

               End DoDot:1

 +16       QUIT

WRITECH(GDA,GARRY,GN) ;

 +1       ; Input data:

 +2       ; GDA - Pointer to the patient vitals/measurements data file #120.5

 +3       ; GARRY - qualifier data array for a measurement

 +4       ;         GARRY(GDA,Print order,qualifier data)

 +5       ; GN - Number of print order to print

 +6        NEW GMRVDA,GDATA

 +7        SET GDATA=""

           SET GMRVDA(1)=0

FOR

               SET GMRVDA(1)=$ORDER(GARRY(GDA,GMRVDA(1)))

               IF GMRVDA(1)'>0!(GMRVDA(1)>GN)

                   QUIT

               SET GMRVDA(2)=""

FOR

                   SET GMRVDA(2)=$ORDER(GARRY(GDA,GMRVDA(1),GMRVDA(2)))

                   IF GMRVDA(2)=""

                       QUIT

                   Begin DoDot:1

 +8                    SET GDATA=GDATA_$SELECT(GDATA'="":", ",1:"")_GMRVDA(2)

                   End DoDot:1

 +9        QUIT GDATA

GMVCHAR.m