- Timestamp:
- Jul 14, 2008, 8:14:23 AM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
-
GPLCCR.m (modified) (1 diff)
-
GPLVITALS.m (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCR.m
r57 r59 15 15 S ODIRGLB=$NA(^TMP("GPLCCR","ODIR")) 16 16 I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET 17 . S @ODIRGLB="/home/glilly/CCROUT"18 . ;S @ODIRGLB="/home/cedwards/"17 . ;S @ODIRGLB="/home/glilly/CCROUT" 18 . S @ODIRGLB="/home/cedwards/" 19 19 . ;S @ODIRGLB="/opt/wv/p/" 20 20 S ODIR=@ODIRGLB -
ccr/trunk/p/GPLVITALS.m
r51 r59 23 23 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 24 24 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT" 25 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6) 25 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 26 . . . ;S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6) 26 27 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 27 28 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED" … … 33 34 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 34 35 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="in" 35 . . . ;S @VITVMAP@("HEIGHTWEIGHTSOURCE")=$P(VITPTMP,U,7)36 36 . . E I $P(VITPTMP,U,2)="WT" D 37 37 . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED" 38 38 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 39 39 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT" 40 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTOR PROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)40 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 41 41 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 42 42 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED" … … 48 48 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 49 49 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="lbs" 50 . . E I $P(VITPTMP,U,2)="BP" D 51 . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED" 52 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 53 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE" 54 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 55 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 56 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED" 57 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE" 58 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="" 59 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="" 60 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")="" 61 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6) 62 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 63 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="" 64 . . E I $P(VITPTMP,U,2)="T" D 65 . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED" 66 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 67 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE" 68 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 69 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 70 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED" 71 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE" 72 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="" 73 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="" 74 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")="" 75 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6) 76 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 77 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="F" 78 . . E I $P(VITPTMP,U,2)="R" D 79 . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED" 80 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 81 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION" 82 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 83 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 84 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED" 85 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION" 86 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="" 87 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="" 88 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")="" 89 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6) 90 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 91 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="" 92 . . E I $P(VITPTMP,U,2)="P" D 93 . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED" 94 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 95 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE" 96 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 97 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 98 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED" 99 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE" 100 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="" 101 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="" 102 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")="" 103 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6) 104 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 105 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="" 106 . . E I $P(VITPTMP,U,2)="PN" D 107 . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED" 108 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 109 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN" 110 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 111 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 112 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED" 113 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN" 114 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="" 115 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="" 116 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")="" 117 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6) 118 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 119 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="" 50 120 . . E D 51 121 . . . ;W "IN VITAL: OTHER",! … … 53 123 . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT") 54 124 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="OTHER VITAL" 55 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTOR PROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)125 . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1" 56 126 . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J 57 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")=" OBSERVED"127 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="UNKNOWN" 58 128 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="OTHER" 59 129 . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="" … … 63 133 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3) 64 134 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="UNKNOWN" 65 . . . ;S @VITVMAP@("HEIGHTWEIGHTSOURCE")=$P(VITPTMP,U,7)66 135 . . S VITARYTMP=$NA(@VITTARYTMP@(J)) 67 136 . . K @VITARYTMP
Note:
See TracChangeset
for help on using the changeset viewer.
