| [613] | 1 | GMVLBP2 ;HIOFO/YH,FT-SET GRAPH LOWER BOX DATA ;9/30/02 15:03
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; #10061 - ^VADPT call (supported)
|
|---|
| 6 | ; #10104 - ^XLFSTR calls (supported)
|
|---|
| 7 | ;
|
|---|
| 8 | FOOTER ;PRINT VITAL SIGNS-I/O SHEET FOOTER
|
|---|
| 9 | W ! W:GMRNAM'="" ?$X-3,$E(GMRNAM,1,35) W " "_$P($G(VADM(2)),"^",2)_" "_$P($G(VADM(3)),"^",2)_" "_$P($G(VADM(4)),"^")_" YRS "_$P($G(VADM),"^",2)
|
|---|
| 10 | W ?95,"MEDICAL RECORD" W !,"Unit: "_$S(GMRWARD(1)'="":GMRWARD(1),1:" ")," "_"Room: "_$S($P(VAIN(5),"^")'="":$P($P(VAIN(5),"^"),"-",1,2),1:" "),?95,"B/P PLOTTING CHART"
|
|---|
| 11 | D INP^VADPT S GMRVHLOC=$$HOSPLOC^GMVUTL1(+$G(VAIN(4)))
|
|---|
| 12 | W !,"Division: "_$$DIVISION^GMVUTL1(+GMRVHLOC),?55,"Page "_GMRPGC,?95,"VA STANDARD FORM 512-A",!
|
|---|
| 13 | W GSTRFIN Q
|
|---|
| 14 | STLNP ;
|
|---|
| 15 | S GMR(GMRI)=$O(^TMP($J,"GMRVG",GMRI,GMRDT,"")) Q:GMR(GMRI)=""
|
|---|
| 16 | S (GMRSITE,GMRSITE(1),GMRINF,GMRVJ)=""
|
|---|
| 17 | S GMRSITE(1)=$P($G(^TMP($J,"GMRVG",GMRI,GMRDT,GMR(GMRI))),"^"),GMRSITE(2)=$P($G(^(GMR(GMRI))),"^",3),GMRINF=$P($G(^(GMR(GMRI))),"^",4) I GMRSITE(1)'="" S GI=GMRI D SYNOARY^GMVLGQU
|
|---|
| 18 | I "UNAVAILABLEPASSREFUSED"'[$$UP^XLFSTR(GMR(GMRI)) S GMR(GMRI)=GMR(GMRI)_$S($P(^TMP($J,"GMRVG",GMRI,GMRDT,GMR(GMRI)),"^",2)'=1:" ",1:"*")
|
|---|
| 19 | I GMRI="P" D Q
|
|---|
| 20 | . S $P(GMRLINE(GMRI),"|",GMRNM)=$E(GMR(GMRI)_$S($L(GMRSITE," ")>3:" "_$P(GMRSITE," "),1:"")_" ",1,10)
|
|---|
| 21 | . S $P(GMRLINE("P1"),"|",GMRNM)=$E($S($L(GMRSITE," ")>3:$P(GMRSITE," ",2,4),1:GMRSITE)_" ",1,10)
|
|---|
| 22 | I GMRI="B" D Q
|
|---|
| 23 | . S $P(GMRLINE(GMRI),"|",GMRNM)=$E(GMR(GMRI)_" ",1,10)
|
|---|
| 24 | . S $P(GMRLINE("D"),"|",GMRNM)=$E($O(^TMP($J,"GMRVG","C",GMRDT,""))_$S($L(GMRSITE," ")>3:" "_$P(GMRSITE," "),1:"")_" ",1,10)
|
|---|
| 25 | . S $P(GMRLINE("BQUAL"),"|",GMRNM)=$E($S($L(GMRSITE," ")>3:$P(GMRSITE," ",2,4),1:GMRSITE)_" ",1,10)
|
|---|
| 26 | . S $P(GMRLINE("MAP"),"|",GMRNM)=$E($O(^TMP($J,"GMRVG","M",GMRDT,""))_" ",1,10)
|
|---|
| 27 | K GI Q
|
|---|
