Produced by Araxis Merge on 8/1/2017 12:28:32 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | RA5_0_132.zip | RA 50 132 - Routine RADEM2 SFC.docx | Mon Jul 31 14:57:44 2017 UTC |
| 2 | RA5_0_132.zip | RA 50 132 - Routine RADEM2 SFC.docx | Mon Jul 31 20:07:50 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 2 |
| Changed | 0 | 0 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | RADEM2 ; HISC/CAH,F PT,GJC-Dis play Patie nt Demogra phics (sho rt) ;10/20 /94 09:18 ;;5.0 ;Radiology /Nuclear M edicine;** 31**;Mar 1 6, 1998PAT Q:'$D(^ DPT(RADFN, 0)) S Y=^( 0),RANME=$ P(Y,"^"),R ASEX=$P(Y, "^",2),RAS SN=$$SSN^R AUTL,RADOB =$P(Y,"^", 3),X1=DT,X 2=RADOB D ^%DTC S RA GE=X\365.2 5 S:$ E(DT,4,7)= $E(RADOB,4 ,7) RAGE=R AGE+1 ; to day is bir thday S Y=RADOB D D^RAUTL S RADOB=Y N RA VETELI S R AVETELI=$$ VETELI(RAD FN) S RAVET=$P( RAVETELI," ^"),RAELIG =$P(RAVETE LI,"^",2) I $D( ^DPT(RADFN ,.1)),^(.1 )]"" D ^RA SERVDIS W @IOF,!," ********* ** Patient Demograph ics ****** *****",! W !?2, "Name : ", $E(RANME,1 ,20) W:$D( RAWARD) ?3 7,"Current ly is an i npatient." W !? 2,"Pt ID : ",RASSN W :$D(RAWARD ) ?39,"War d/Service: ",$E(RAWA RD_"/"_RAS ER,1,25) W !?2, "Date of B irth: ",RA DOB," (",R AGE,")" W: $D(RABED) ?39,"Bedse ction : ", RABED W !?2,"Ve teran : ", RAVET,?39, "Eligibili ty : ",$E( RAELIG,1,2 5) W !?2,"Sex : ",$S(RASE X="M":"MAL E",RASEX=" F":"FEMALE ",1:"Unkno wn") I $D( ^RADPT(RAD FN,1)) W ! ?2,"Narrat ive : ",^( 1) ;S FVAMC/DAD/ 8-24-2006/ Add height and weigh t *** BEGI N *** D ; . N ARHDVI TL,ARHDX,D FN,GMRVSTR ,X,Y . F ARHDVI TL="HT","W T" D .. S DFN=R ADFN,GMRVS TR=ARHDVIT L .. D EN6^GMRV UTL S ARHD X=$G(X) .. W !? 2,$E(ARHDV ITL),"eigh t : ",$P(A RHDX,U,8) .. I $P(ARHDX,U ,8)]"" W $ S(ARHDVITL ="HT":"""" ,ARHDVITL= "WT":" lbs ",1:"") .. S Y= $P(ARHDX,U ,1) I Y>0 D D^RAUTL W " on ",Y .. Q . Q ;SFVA MC/DAD/8-2 4-2006/Add height an d weight * ** END *** W !? 2,"Other A llergies:" ,!?7,"'V' denotes ve rified all ergy 'N' d enotes non -verified allergy",! S DF N=RADFN D ALLERGY^RA DEM I '$D( GMRAL) W ! ?20,"** No allergies on file. **" G ALER F I= 1:1 Q:'$D( PI(I)) W:I #2 !?2,PI( I) W:I#2=0 ?40,PI(I) ;ALE R ; S RAPOP=0 I $D(^DPT (RADFN,.35 )),$P(^(.3 5),"^") W !!?2,$C(7) ,"**** Pat ient has d ied ****", !!,"Do you want to c ontinue? N O// " R X: DTIME S:"N n"[X RAPOP =1Q K RA WD,PI,RADO B,RAELIG,R AGE,RASSN, RAVET,I,VA IN,VAERR,X ,Y Q:RAPOP S RACONT= "" G ^RADE M1 ;R ADFN S D IC(0)="AEZ MQ" D ^RAD PA Q:Y<0 S RADFN=+Y G PAT ;VETELI(D FN) ; Is this pati ent a vete ran? Does this patie nt have a ; pri mary eligi bility cod e? ; RAELI=Prim ary Eligib ility code <-> RAVET =Veteran ( Yes/No) N RAELI ,RAVET Q:D FN'=+DFN " Unknown^Un known" I 'DFN!( '$D(^DPT(D FN,0))#2) S (RAELI,R AVET)="Unk nown" E D . K VAEL,V AERR D ELI G^VADPT . S RAE LI=$P($G(V AEL(1)),"^ ",2) . S RAELI= $S(RAELI]" ":RAELI,1: "Unknown") . S RAVET=+$G( VAEL(4)) . S RA VET=$S(RAV ET:"Yes",' RAVET:"No" ,1:"Unknow n") . K VAEL,VA ERR . Q Q RAVET_"^"_ RAELI |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.