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

GMVCHAR.m

Go to the documentation of this file.
  1. GMVCHAR ;HIOFO/YH,FT-EXTRACT CHARACTERISTIC DATA ;11/8/01 14:33
  1. ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
  1. ;
  1. ; This routine uses the following IAs:
  1. ; <None>
  1. ;
  1. CHAR(GDA,GARRY,X) ;
  1. ; Input data:
  1. ; GDA - Pointer to patient vitals/measurements file #120.5
  1. ; X - Pointer to the vital type file #120.51
  1. ; Output data array:
  1. ; GARRY(GDA,print order,qualifier data)
  1. N GMRVORDR,GMRVDA,GMRVCAT,GMRVCHAR
  1. S GMRVDA(1)=0 F S GMRVDA(1)=$O(^GMR(120.5,GDA,5,"B",GMRVDA(1))) Q:GMRVDA(1)'>0 D
  1. . Q:'$D(^GMRD(120.52,GMRVDA(1),0)) S GMRVCHAR=$P($G(^GMRD(120.52,GMRVDA(1),0)),"^")
  1. . S GMRVDA(2)=$O(^GMRD(120.52,GMRVDA(1),1,"B",X,0)) I GMRVDA(2)'>0 S GARRY(GDA,1,GMRVCHAR)="" Q
  1. . S GMRVCAT=+$P($G(^GMRD(120.52,GMRVDA(1),1,GMRVDA(2),0)),"^",2)
  1. . S GMRVCAT(1)=$O(^GMRD(120.53,"C",X,GMRVCAT,0)) Q:GMRVCAT(1)'>0
  1. . Q:'$D(^GMRD(120.53,GMRVCAT,1,GMRVCAT(1)))
  1. . S GMRVORDR=+$P($G(^GMRD(120.53,GMRVCAT,1,GMRVCAT(1),0)),"^",5) I GMRVORDR=0 S GMRVORDR=1
  1. . S GARRY(GDA,GMRVORDR,GMRVCHAR)=""
  1. . Q
  1. Q
  1. WRITECH(GDA,GARRY,GN) ;
  1. ; Input data:
  1. ; GDA - Pointer to the patient vitals/measurements data file #120.5
  1. ; GARRY - qualifier data array for a measurement
  1. ; GARRY(GDA,Print order,qualifier data)
  1. ; GN - Number of print order to print
  1. N GMRVDA,GDATA
  1. 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
  1. . S GDATA=GDATA_$S(GDATA'="":", ",1:"")_GMRVDA(2)
  1. Q GDATA