| [613] | 1 | GMRADSP2 ;HIRMFO/RM,WAA-PRINT PATIENT A/AR ;12/22/04 08:38
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;**21**;Mar 29, 1996
|
|---|
| 3 | EN1 ; ENTRY TO PRINT DATA FOR A SINGLE RECORD DENOTED BY GMRAPA
|
|---|
| 4 | S GMRAOUT=0
|
|---|
| 5 | S GMRAPA(0)=$S($D(^GMR(120.8,GMRAPA,0)):^(0),1:"")
|
|---|
| 6 | S DFN=$P(GMRAPA(0),"^") D DEM^VADPT S GMRANAM=VADM(1) D KVAR^VADPT K VA
|
|---|
| 7 | S GMRADRUG=$S($P(GMRAPA(0),U,20)["D":1,1:0)
|
|---|
| 8 | S GMRAERR=$S($D(^GMR(120.8,GMRAPA,"ER")):+^("ER"),1:0) S:'$D(GMRAPG) GMRAPG=0
|
|---|
| 9 | D:$Y+3>IOSL EOP^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 10 | ;D:'GMRAPG HDR^GMRADSP3
|
|---|
| 11 | I 'GMRAPRNT S GMRASP(1)=7,GMRAHDR(1)="PATIENT: ",GMRALIN(1)=$E(GMRANAM,1,23),GMRASP(2)=41,GMRAHDR(2)="CAUSATIVE AGENT: ",GMRALIN(2)=$E($P(GMRAPA(0),"^",2),1,21) D WRITE^GMRADSP3 G:GMRAOUT EXIT ;21
|
|---|
| 12 | I GMRAPRNT S GMRASP(1)=9,GMRAHDR(1)="AGENT: ",GMRALIN(1)=$E($P(GMRAPA(0),"^",2),1,23),GMRASP(2)="" D WRITE^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 13 | G:'GMRADRUG ORIG S (GMRADI,GMRADC)=0,GMRAFT=1
|
|---|
| 14 | DICL ;
|
|---|
| 15 | S:GMRADI'="" GMRADI=$O(^GMR(120.8,GMRAPA,2,GMRADI)) S:GMRADC'="" GMRADC=$O(^GMR(120.8,GMRAPA,3,GMRADC)) G:GMRADI'>0&(GMRADC'>0)&'GMRAFT ORIG
|
|---|
| 16 | S GMRASP(1)=$S(GMRAFT:3,'GMRADI:"",1:16),GMRAHDR(1)=$S(GMRAFT:"INGREDIENTS: ",1:""),X=$S($D(^GMR(120.8,GMRAPA,2,+GMRADI,0)):^(0),1:""),GMRALIN(1)=$E($S($D(^PS(50.416,+X,0)):$P(^(0),"^"),1:""),1,23)
|
|---|
| 17 | S GMRASP(2)=$S(GMRAFT:41,'GMRADC:"",1:58),GMRAHDR(2)=$S(GMRAFT:"VA DRUG CLASSES: ",1:""),X=$S($D(^GMR(120.8,GMRAPA,3,+GMRADC,0)):^(0),1:""),GMRALIN(2)=$E($S($D(^PS(50.605,+X,0)):$P(^(0),"^",2),1:""),1,21)
|
|---|
| 18 | D WRITE^GMRADSP3 G:GMRAOUT EXIT S GMRAFT=0 G DICL
|
|---|
| 19 | ORIG ;
|
|---|
| 20 | S GMRAREA=0,GMRATRT=0
|
|---|
| 21 | S (GMRASP(1),GMRASP(2))="" D WRITE^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 22 | S Y=$P(GMRAPA(0),"^",4) S:Y Y=$$FMTE^XLFDT(Y) S GMRASP(1)=4,GMRAHDR(1)="ORIGINATOR: ",GMRALIN(1)=$$GET1^DIQ(200,$P(GMRAPA(0),U,5)_",",".01") ;21
|
|---|
| 23 | S GMRASP(2)=46,GMRAHDR(2)="ORIGINATED: ",GMRALIN(2)=Y D WRITE^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 24 | S GMRASP(1)=6,GMRAHDR(1)="SIGN OFF: ",GMRALIN(1)=$S($P(GMRAPA(0),"^",12)=1:"YES",1:"NO"),GMRASP(2)=48,GMRAHDR(2)="OBS/HIST: ",GMRALIN(2)=$S($P(GMRAPA(0),"^",6)="o":"OBSERVED",$P(GMRAPA(0),"^",6)="h":"HISTORICAL",1:"")
|
|---|
| 25 | D WRITE^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 26 | I $D(^GMR(120.85,"C",GMRAPA)) D ;21
|
|---|
| 27 | .S (GMRASP(1),GMRASP(2))="" ;21
|
|---|
| 28 | .N GMRAI,SEVER S (GMRAI,SEVER)=0 F S GMRAI=$O(^GMR(120.85,"C",GMRAPA,GMRAI)) Q:'+GMRAI S:+$P(^GMR(120.85,GMRAI,0),U,14)>SEVER SEVER=$P(^(0),U,14) ;21
|
|---|
| 29 | .I $G(SEVER) S GMRASP(1)=6,GMRAHDR(1)="SEVERITY: ",GMRALIN(1)=$S(SEVER=1:"MILD",SEVER=2:"MODERATE",1:"SEVERE") ;21
|
|---|
| 30 | .S GMRASP(2)=49,GMRAHDR(2)="OBS D/T: ",GMRALIN(2)=$$FMTE^XLFDT($P(^GMR(120.85,$O(^GMR(120.85,"C",GMRAPA,0)),0),U)) ;21
|
|---|
| 31 | .D WRITE^GMRADSP3 G:GMRAOUT EXIT ;21
|
|---|
| 32 | .Q ;21
|
|---|
| 33 | I ($Y+4)>IOSL D EOP^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 34 | D DISP1^GMRAPEM1(GMRAPA,"O",.GMRAOUT) G:GMRAOUT EXIT
|
|---|
| 35 | S (GMRASP(1),GMRASP(2))="" D WRITE^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 36 | S GMRASP(1)=0,GMRAHDR(1)="ID BAND MARKED: ",Y="",Y=$O(^GMR(120.8,GMRAPA,14,"A",Y)),Y=9999999-Y S:Y'=9999999 Y=$$FMTE^XLFDT(Y) S:Y=9999999 Y="" ;21
|
|---|
| 37 | S GMRASP(2)=44,GMRALIN(1)=Y,GMRAHDR(2)="CHART MARKED: ",Y="",Y=$O(^GMR(120.8,GMRAPA,13,"A",Y)),Y=9999999-Y S:Y'=9999999 Y=$$FMTE^XLFDT(Y) S:Y=9999999 Y="" S GMRALIN(2)=Y ;21
|
|---|
| 38 | D WRITE^GMRADSP3 G:GMRAOUT EXIT
|
|---|
| 39 | G RESET
|
|---|
| 40 | LINEOUT ;
|
|---|
| 41 | S GMRASP(1)=$S(GMRAFT:6,1:16),GMRAHDR(1)=$S(GMRAFT:"COMMENTS: ",1:""),GMRALIN(1)=$S($D(^UTILITY($J,"W",15,+GMRAX,0)):^(0),1:""),GMRASP(2)="" D WRITE^GMRADSP3 G:GMRAOUT EXIT S GMRAFT=0
|
|---|
| 42 | Q
|
|---|
| 43 | RESET ;
|
|---|
| 44 | D ^GMRADSP3
|
|---|
| 45 | EXIT K DIWF,DIWL,DIWR,GMRA,GMRADC,GMRADI,GMRAHDR,GMRALIN,GMRASP,GMRAFT,GMRAREA,GMRATRT,GMRAX
|
|---|
| 46 | Q
|
|---|
