4. EPMO Open Source Coordination Office Redaction File Detail Report

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.

4.1 Files compared

# Location File Last Modified
1 RA5_0_132.zip RA_5_132_TEST_V2.kid Mon Jul 31 15:00:28 2017 UTC
2 RA5_0_132.zip RA_5_132_TEST_V2.kid Mon Jul 31 20:08:51 2017 UTC

4.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 632
Changed 0 0
Inserted 1 12
Removed 0 0

4.3 Comparison options

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

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

  1   RA*5*132 T EST v2
  2   Extracted  from mail  message
  3   **KIDS**:R A*5.0*132^
  4  
  5   **INSTALL  NAME**
  6   RA*5.0*132
  7   "BLD",1020 1,0)
  8   RA*5.0*132 ^RADIOLOGY /NUCLEAR M EDICINE^0^ 3170501^y
  9   "BLD",1020 1,1,0)
  10   ^^1^1^3170 427^
  11   "BLD",1020 1,1,1,0)
  12   This adds  height and  weight to  Radiology  exam regi stration d emograhics .
  13   "BLD",1020 1,4,0)
  14   ^9.64PA^^
  15   "BLD",1020 1,6.3)
  16   4
  17   "BLD",1020 1,"KRN",0)
  18   ^9.67PA^77 9.2^20
  19   "BLD",1020 1,"KRN",.4 ,0)
  20   .4
  21   "BLD",1020 1,"KRN",.4 01,0)
  22   .401
  23   "BLD",1020 1,"KRN",.4 02,0)
  24   .402
  25   "BLD",1020 1,"KRN",.4 03,0)
  26   .403
  27   "BLD",1020 1,"KRN",.5 ,0)
  28   .5
  29   "BLD",1020 1,"KRN",.8 4,0)
  30   .84
  31   "BLD",1020 1,"KRN",3. 6,0)
  32   3.6
  33   "BLD",1020 1,"KRN",3. 8,0)
  34   3.8
  35   "BLD",1020 1,"KRN",9. 2,0)
  36   9.2
  37   "BLD",1020 1,"KRN",9. 8,0)
  38   9.8
  39   "BLD",1020 1,"KRN",9. 8,"NM",0)
  40   ^9.68A^1^1
  41   "BLD",1020 1,"KRN",9. 8,"NM",1,0 )
  42   RADEM2^^0^ B8852959
  43   "BLD",1020 1,"KRN",9. 8,"NM","B" ,"RADEM2", 1)
  44  
  45   "BLD",1020 1,"KRN",19 ,0)
  46   19
  47   "BLD",1020 1,"KRN",19 .1,0)
  48   19.1
  49   "BLD",1020 1,"KRN",10 1,0)
  50   101
  51   "BLD",1020 1,"KRN",40 9.61,0)
  52   409.61
  53   "BLD",1020 1,"KRN",77 1,0)
  54   771
  55   "BLD",1020 1,"KRN",77 9.2,0)
  56   779.2
  57   "BLD",1020 1,"KRN",87 0,0)
  58   870
  59   "BLD",1020 1,"KRN",89 89.51,0)
  60   8989.51
  61   "BLD",1020 1,"KRN",89 89.52,0)
  62   8989.52
  63   "BLD",1020 1,"KRN",89 94,0)
  64   8994
  65   "BLD",1020 1,"KRN","B ",.4,.4)
  66  
  67   "BLD",1020 1,"KRN","B ",.401,.40 1)
  68  
  69   "BLD",1020 1,"KRN","B ",.402,.40 2)
  70  
  71   "BLD",1020 1,"KRN","B ",.403,.40 3)
  72  
  73   "BLD",1020 1,"KRN","B ",.5,.5)
  74  
  75   "BLD",1020 1,"KRN","B ",.84,.84)
  76  
  77   "BLD",1020 1,"KRN","B ",3.6,3.6)
  78  
  79   "BLD",1020 1,"KRN","B ",3.8,3.8)
  80  
  81   "BLD",1020 1,"KRN","B ",9.2,9.2)
  82  
  83   "BLD",1020 1,"KRN","B ",9.8,9.8)
  84  
  85   "BLD",1020 1,"KRN","B ",19,19)
  86  
  87   "BLD",1020 1,"KRN","B ",19.1,19. 1)
  88  
  89   "BLD",1020 1,"KRN","B ",101,101)
  90  
  91   "BLD",1020 1,"KRN","B ",409.61,4 09.61)
  92  
  93   "BLD",1020 1,"KRN","B ",771,771)
  94  
  95   "BLD",1020 1,"KRN","B ",779.2,77 9.2)
  96  
  97   "BLD",1020 1,"KRN","B ",870,870)
  98  
  99   "BLD",1020 1,"KRN","B ",8989.51, 8989.51)
  100  
  101   "BLD",1020 1,"KRN","B ",8989.52, 8989.52)
  102  
  103   "BLD",1020 1,"KRN","B ",8994,899 4)
  104  
  105   "BLD",1020 1,"QDEF")
  106   ^^^^NO^^^^ NO^^NO
  107   "BLD",1020 1,"QUES",0 )
  108   ^9.62^^
  109   "BLD",1020 1,"REQB",0 )
  110   ^9.611^^
  111   "MBREQ")
  112   0
  113   "PKG",31,- 1)
  114   1^1
  115   "PKG",31,0 )
  116   RADIOLOGY/ NUCLEAR ME DICINE^RA^ REGISTERS  PATIENTS,R ECORDS EXA MS,PROFILE S,AMIS REP ORTS
  117   "PKG",31,2 2,0)
  118   ^9.49I^1^1
  119   "PKG",31,2 2,1,0)
  120   5.0^298031 7^2980805^ 1
  121   "PKG",31,2 2,1,"PAH", 1,0)
  122   132^317050 1
  123   "PKG",31,2 2,1,"PAH", 1,1,0)
  124   ^^1^1^3170 501
  125   "PKG",31,2 2,1,"PAH", 1,1,1,0)
  126   This adds  height and  weight to  Radiology  exam regi stration d emograhics .
  127   "QUES","XP F1",0)
  128   Y
  129   "QUES","XP F1","??")
  130   ^D REP^XPD H
  131   "QUES","XP F1","A")
  132   Shall I wr ite over y our |FLAG|  File
  133   "QUES","XP F1","B")
  134   YES
  135   "QUES","XP F1","M")
  136   D XPF1^XPD IQ
  137   "QUES","XP F2",0)
  138   Y
  139   "QUES","XP F2","??")
  140   ^D DTA^XPD H
  141   "QUES","XP F2","A")
  142   Want my da ta |FLAG|  yours
  143   "QUES","XP F2","B")
  144   YES
  145   "QUES","XP F2","M")
  146   D XPF2^XPD IQ
  147   "QUES","XP I1",0)
  148   YO
  149   "QUES","XP I1","??")
  150   ^D INHIBIT ^XPDH
  151   "QUES","XP I1","A")
  152   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  153   "QUES","XP I1","B")
  154   NO
  155   "QUES","XP I1","M")
  156   D XPI1^XPD IQ
  157   "QUES","XP M1",0)
  158   PO^VA(200, :EM
  159   "QUES","XP M1","??")
  160   ^D MG^XPDH
  161   "QUES","XP M1","A")
  162   Enter the  Coordinato r for Mail  Group '|F LAG|'
  163   "QUES","XP M1","B")
  164  
  165   "QUES","XP M1","M")
  166   D XPM1^XPD IQ
  167   "QUES","XP O1",0)
  168   Y
  169   "QUES","XP O1","??")
  170   ^D MENU^XP DH
  171   "QUES","XP O1","A")
  172   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  173   "QUES","XP O1","B")
  174   NO
  175   "QUES","XP O1","M")
  176   D XPO1^XPD IQ
  177   "QUES","XP Z1",0)
  178   Y
  179   "QUES","XP Z1","??")
  180   ^D OPT^XPD H
  181   "QUES","XP Z1","A")
  182   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  183   "QUES","XP Z1","B")
  184   NO
  185   "QUES","XP Z1","M")
  186   D XPZ1^XPD IQ
  187   "QUES","XP Z2",0)
  188   Y
  189   "QUES","XP Z2","??")
  190   ^D RTN^XPD H
  191   "QUES","XP Z2","A")
  192   Want to MO VE routine s to other  CPUs
  193   "QUES","XP Z2","B")
  194   NO
  195   "QUES","XP Z2","M")
  196   D XPZ2^XPD IQ
  197   "RTN")
  198   1
  199   "RTN","RAD EM2")
  200   0^1^B88529 59^B679449 6
  201   "RTN","RAD EM2",1,0)
  202   RADEM2 ;HI SC/CAH,FPT ,GJC-Displ ay Patient  Demograph ics (short ) ;10/20/9 4  09:18
  203   "RTN","RAD EM2",2,0)
  204    ;;5.0;Rad iology/Nuc lear Medic ine;**31,1 32**;Mar 1 6, 1998;Bu ild 4
  205   "RTN","RAD EM2",3,0)
  206    ;ICR#   T ype  Descr iption
  207   "RTN","RAD EM2",4,0)
  208    ;-----  - ---  ----- ---------- ---------- ---------- --
  209   "RTN","RAD EM2",5,0)
  210    ;1120   S UP   EN6^G MRVUTL
  211   "RTN","RAD EM2",6,0)
  212    ;
  213   "RTN","RAD EM2",7,0)
  214   PAT Q:'$D( ^DPT(RADFN ,0))  S Y= ^(0),RANME =$P(Y,"^") ,RASEX=$P( Y,"^",2),R ASSN=$$SSN ^RAUTL,RAD OB=$P(Y,"^ ",3),X1=DT ,X2=RADOB  D ^%DTC S  RAGE=X\365 .25
  215   "RTN","RAD EM2",8,0)
  216    S:$E(DT,4 ,7)=$E(RAD OB,4,7) RA GE=RAGE+1  ; today is  birthday
  217   "RTN","RAD EM2",9,0)
  218    S Y=RADOB  D D^RAUTL  S RADOB=Y
  219   "RTN","RAD EM2",10,0)
  220    N RAVETEL I S RAVETE LI=$$VETEL I(RADFN)
  221   "RTN","RAD EM2",11,0)
  222    S RAVET=$ P(RAVETELI ,"^"),RAEL IG=$P(RAVE TELI,"^",2 )
  223   "RTN","RAD EM2",12,0)
  224    I $D(^DPT (RADFN,.1) ),^(.1)]""  D ^RASERV
  225   "RTN","RAD EM2",13,0)
  226   DIS W @IOF ,!,"            ***** ******     Patient De mographics    ******* ****",!
  227   "RTN","RAD EM2",14,0)
  228    W !?2,"Na me          : ",$E(RA NME,1,20)  W:$D(RAWAR D) ?37,"Cu rrently is  an inpati ent."
  229   "RTN","RAD EM2",15,0)
  230    W !?2,"Pt  ID         : ",RASSN  W:$D(RAWA RD) ?39,"W ard/Servic e: ",$E(RA WARD_"/"_R ASER,1,25)
  231   "RTN","RAD EM2",16,0)
  232    W !?2,"Da te of Birt h: ",RADOB ," (",RAGE ,")" W:$D( RABED) ?39 ,"Bedsecti on  : ",RA BED
  233   "RTN","RAD EM2",17,0)
  234    W !?2,"Ve teran       : ",RAVET ,?39,"Elig ibility :  ",$E(RAELI G,1,25)
  235   "RTN","RAD EM2",18,0)
  236    W !?2,"Se x           : ",$S(RA SEX="M":"M ALE",RASEX ="F":"FEMA LE",1:"Unk nown") I $ D(^RADPT(R ADFN,1)) W  !?2,"Narr ative    :  ",^(1)
  237   "RTN","RAD EM2",19,0)
  238    ;RTW Add  height and  weight ** * BEGIN ** *
  239   "RTN","RAD EM2",20,0)
  240    D  ;
  241   "RTN","RAD EM2",21,0)
  242    .N RAHDVI TL,RAHDX,D FN,GMRVSTR ,X,Y
  243   "RTN","RAD EM2",22,0)
  244    .F RAHDVI TL="HT","W T" D
  245   "RTN","RAD EM2",23,0)
  246    .. S DFN= RADFN,GMRV STR=RAHDVI TL
  247   "RTN","RAD EM2",24,0)
  248    .. D EN6^ GMRVUTL S  RAHDX=$G(X )
  249   "RTN","RAD EM2",25,0)
  250    .. W !?2, $E(RAHDVIT L),"eight        : ", $P(RAHDX,U ,8)
  251   "RTN","RAD EM2",26,0)
  252    .. I $P(R AHDX,U,8)] "" W $S(RA HDVITL="HT ":"""",RAH DVITL="WT" :" lbs",1: "")
  253   "RTN","RAD EM2",27,0)
  254    .. S Y=$P (RAHDX,U,1 ) I Y>0 D  D^RAUTL W  " on ",Y
  255   "RTN","RAD EM2",28,0)
  256    .. Q
  257   "RTN","RAD EM2",29,0)
  258    . Q
  259   "RTN","RAD EM2",30,0)
  260    ;RTW Add  height and  weight ** * END ***
  261   "RTN","RAD EM2",31,0)
  262    W !?2,"Ot her Allerg ies:",!?7, "'V' denot es verifie d allergy    'N' deno tes non-ve rified all ergy",!
  263   "RTN","RAD EM2",32,0)
  264    S DFN=RAD FN D ALLER GY^RADEM I  '$D(GMRAL ) W !?20," ** No alle rgies on f ile. **" G  ALER
  265   "RTN","RAD EM2",33,0)
  266    F I=1:1 Q :'$D(PI(I) )  W:I#2 ! ?2,PI(I) W :I#2=0 ?40 ,PI(I)
  267   "RTN","RAD EM2",34,0)
  268    ;
  269   "RTN","RAD EM2",35,0)
  270   ALER ;
  271   "RTN","RAD EM2",36,0)
  272    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 =1
  273   "RTN","RAD EM2",37,0)
  274   Q K RAWD,P I,RADOB,RA ELIG,RAGE, RASSN,RAVE T,I,VAIN,V AERR,X,Y Q :RAPOP  S  RACONT=""  G ^RADEM1
  275   "RTN","RAD EM2",38,0)
  276    ;
  277   "RTN","RAD EM2",39,0)
  278   RADFN S DI C(0)="AEZM Q" D ^RADP A Q:Y<0  S  RADFN=+Y  G PAT
  279   "RTN","RAD EM2",40,0)
  280    ;
  281   "RTN","RAD EM2",41,0)
  282   VETELI(DFN ) ; Is thi s patient  a veteran?   Does thi s patient  have a
  283   "RTN","RAD EM2",42,0)
  284    ; primary  eligibili ty code?
  285   "RTN","RAD EM2",43,0)
  286    ; RAELI=P rimary Eli gibility c ode <-> RA VET=Vetera n (Yes/No)
  287   "RTN","RAD EM2",44,0)
  288    N RAELI,R AVET Q:DFN '=+DFN "Un known^Unkn own"
  289   "RTN","RAD EM2",45,0)
  290    I 'DFN!(' $D(^DPT(DF N,0))#2) S  (RAELI,RA VET)="Unkn own"
  291   "RTN","RAD EM2",46,0)
  292    E  D
  293   "RTN","RAD EM2",47,0)
  294    . K VAEL, VAERR D EL IG^VADPT
  295   "RTN","RAD EM2",48,0)
  296    . S RAELI =$P($G(VAE L(1)),"^", 2)
  297   "RTN","RAD EM2",49,0)
  298    . S RAELI =$S(RAELI] "":RAELI,1 :"Unknown" )
  299   "RTN","RAD EM2",50,0)
  300    . S RAVET =+$G(VAEL( 4))
  301   "RTN","RAD EM2",51,0)
  302    . S RAVET =$S(RAVET: "Yes",'RAV ET:"No",1: "Unknown")
  303   "RTN","RAD EM2",52,0)
  304    . K VAEL, VAERR
  305   "RTN","RAD EM2",53,0)
  306    . Q
  307   "RTN","RAD EM2",54,0)
  308    Q RAVET_" ^"_RAELI
  309   "VER")
  310   8.0^22.2
  311   "BLD",1020 1,6)
  312   2^
  313   **END**
  314   **END**
  315  
  316  
        317  
        318  
        319  
        320  
        321  
        322  
        323  
        324  
        325  
        326  
        327  
        328  

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.