| 1 | GMRVSITE ;HIOFO/YH,FT-V/M SITE FILE EDIT/ENTRY ;2/17/05 14:38
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;**8**;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; <None>
|
|---|
| 6 | ;
|
|---|
| 7 | ; This routine supports the following IAs:
|
|---|
| 8 | ; #1938 - CHAR & DEFAULT entry points (private)
|
|---|
| 9 | ;
|
|---|
| 10 | CHAR ;Enter/edit qualifier
|
|---|
| 11 | ; Due to the data standardization project, the package will no
|
|---|
| 12 | ; longer allow users to modify FILE 120.52.
|
|---|
| 13 | Q
|
|---|
| 14 | DEFAULT ;Enter/edit location default for TEMP./PULSE
|
|---|
| 15 | N DA,I
|
|---|
| 16 | N GMRDEF,GMRVCAT,GMRVIT,GMRX,GMRV,GMRY,GMROUT
|
|---|
| 17 | S GMROUT=0,GMRVCAT="LOCATION"
|
|---|
| 18 | S GMRVCAT(1)=$O(^GMRD(120.53,"B",GMRVCAT,0))
|
|---|
| 19 | Q:GMRVCAT(1)'>0
|
|---|
| 20 | Q:$$ACTIVE^GMVUID(120.53,"",GMRVCAT(1)_",","") ;active vuid?
|
|---|
| 21 | F GMRVIT(1)="TEMPERATURE","PULSE" D
|
|---|
| 22 | .S GMRVIT=$O(^GMRD(120.51,"B",GMRVIT(1),0)) Q:GMRVIT'>0!GMROUT D
|
|---|
| 23 | ..Q:$$ACTIVE^GMVUID(120.51,"",GMRVIT_",","") ;active vuid?
|
|---|
| 24 | ..S DA(1)=GMRVCAT(1),DA=$O(^GMRD(120.53,DA(1),1,"B",GMRVIT,0)) Q:DA'>0
|
|---|
| 25 | ..I '$D(^GMRD(120.53,DA(1),1,DA,0)) Q
|
|---|
| 26 | ..S GMRDEF=+$P(^GMRD(120.53,DA(1),1,DA,0),"^",7)
|
|---|
| 27 | ..I $$ACTIVE^GMVUID(120.52,"",GMRDEF_",","") D
|
|---|
| 28 | ...D CAT2^GMVUID(DA(1),DA)
|
|---|
| 29 | ...S GMRDEF=""
|
|---|
| 30 | ...Q
|
|---|
| 31 | ..S GMRDEF=$S($D(^GMRD(120.52,+GMRDEF,0)):$P(^(0),"^"),1:"")
|
|---|
| 32 | ..D GETQUAL
|
|---|
| 33 | ..Q:GMRV'>0
|
|---|
| 34 | ..D SELECT
|
|---|
| 35 | ..Q
|
|---|
| 36 | .Q
|
|---|
| 37 | Q
|
|---|
| 38 | SELECT ;
|
|---|
| 39 | W !!,GMRVIT(1)_" has the following location qualifiers:",!
|
|---|
| 40 | F I=1:1:GMRV W !,I_" "_$P(GMRV(I),"^")
|
|---|
| 41 | W !!,"Enter a number for "_GMRVIT(1)_" default qualifier",!,"or ^ to quit or @ to delete: "_$S(GMRDEF'="":GMRDEF_"// ",1:"")
|
|---|
| 42 | S GMRX="" R GMRX:DTIME
|
|---|
| 43 | I '$T!(GMRX["^") S GMROUT=1 Q
|
|---|
| 44 | Q:GMRX=""
|
|---|
| 45 | G:$L(GMRX)>4 SELECT
|
|---|
| 46 | I GMRX["?" W !,"Enter an appropriate qualifier as a default qualifier for this type of",!,"vital measurement",! G SELECT
|
|---|
| 47 | I GMRX="@" S $P(^GMRD(120.53,DA(1),1,DA,0),"^",7)="" W:GMRDEF'="" !,GMRDEF_" has been deleted" Q
|
|---|
| 48 | I '$D(GMRV(GMRX)) W !,"ERROR ENTRY!!!",! G SELECT
|
|---|
| 49 | S $P(^GMRD(120.53,DA(1),1,DA,0),"^",7)=$P(GMRV(GMRX),"^",2)
|
|---|
| 50 | W " ",$P(GMRV(GMRX),"^")
|
|---|
| 51 | Q
|
|---|
| 52 | GETQUAL ;Extract qualifiers for the VITAL TYPE and the CATEGORY
|
|---|
| 53 | K GMRV
|
|---|
| 54 | S GMRV=0,GMRX=""
|
|---|
| 55 | F S GMRX=$O(^GMRD(120.52,"AA",GMRVIT,1,GMRX)) Q:GMRX="" D
|
|---|
| 56 | .S GMRY=0
|
|---|
| 57 | .F S GMRY=$O(^GMRD(120.52,"AA",GMRVIT,1,GMRX,GMRY)) Q:GMRY'>0 D
|
|---|
| 58 | ..Q:$$ACTIVE^GMVUID(120.52,"",GMRY_",","") ;active vuid?
|
|---|
| 59 | ..S GMRV=GMRV+1
|
|---|
| 60 | ..S GMRV(GMRV)=$P(^GMRD(120.52,GMRY,0),"^")_"^"_GMRY
|
|---|
| 61 | ..Q
|
|---|
| 62 | .Q
|
|---|
| 63 | Q
|
|---|
