319. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/25/2018 2:13:29 PM Central 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.

319.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YTAPI5.RTN Thu Sep 6 11:30:06 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YTAPI5.RTN Wed Sep 12 18:10:54 2018 UTC

319.2 Comparison summary

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

319.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

319.4 Active regular expressions

No regular expressions were active.

319.5 Comparison detail

  1   Cache for  UNIX^INT^L oad Initia l Release  MH VistA S ource^~For mat=Cache. S~^RAW
  2   %RO on 14  Mar 2017    6:10 PM
  3   YTAPI5^INT ^1^63910,7 4846^0
  4   YTAPI5 ;AL B/ASF - MH  API NOTES  ;11/14/11  1:03pm
  5    ;;5.01;ME NTAL HEALT H;**62,85, 106**;Dec  30, 1994;B uild 10
  6    ;Referenc e to ^XUSE C( support ed by DBIA  #10076
  7    Q
  8   OUTNOTE(YS DATA) ;
  9    N G,I,N,P ,R,X,Y,YS2 ,YSADATE,Y SCODE,YSGG ,YSGG1,YSG G2,YSJ,YSJ J,YSNCODE, YSSET,YSSR ,YSST,YSX1 ,YSX2,YSX3 ,YIN,YSINN ,YSINE,YSM C
  10    I $G(YSDA TA(1))?1"[ ERROR".E Q   ;---->
  11    I '$D(YSD ATA(5)) S  YSDATA(1)= "[ERROR]", YSDATA(2)= "bad ysdat a to outno te" Q  ;-- ->
  12    S YS2=$G( YSDATA(2))
  13    S YSCODE= $P(YS2,U,2 )
  14    S YSADATE =$P(YS2,U, 4)
  15    S YSNCODE =$O(^YTT(6 01,"B",YSC ODE,-1))
  16    S YSX1=$P (YSDATA(3) ,U,2)
  17    S YSX2=$P (YSDATA(4) ,U,2)
  18    S YSX3=$P (YSDATA(5) ,U,2)
  19    S YSSR=$P (YSDATA(6) ,U,3)
  20    S YSST=$P (YSDATA(6) ,U,4)
  21    S Y=$G(^Y TT(601.6,Y SNCODE,2))
  22    I Y="" S  YSDATA(1)= "[ERROR]", YSDATA(2)= "no mh mul t outcome  code" Q  ; --->
  23    ;
  24    X Y
  25    I X'>0 S  YSDATA(1)= "[ERROR]", YSDATA(2)= "bad M exe cutable" Q   ;--->
  26   LD ;LOAD N OTE
  27    S N=0
  28    F  S N=$O (^YTT(601. 6,YSNCODE, 3,X,1,N))  Q:N'>0  D
  29    . S YSDAT A("ON",N,0 )=^YTT(601 .6,YSNCODE ,3,X,1,N,0 )
  30   REP ;repla ce ||
  31    S N=0
  32    F  S N=$O (YSDATA("O N",N)) Q:N '>0  D
  33    . S G=YSD ATA("ON",N ,0)
  34    . S R=""
  35    . F I=1:1 :$L(G,"|")  D
  36    .. S P=$P (G,"|",I)
  37    .. D:P?1" RSCORE".1N .N RSCORE
  38    .. D:P?1" SSCORE".1N .N SSCORE
  39    .. D:P?1" ITEM".1N.E  ITEM
  40    .. D:P?1" EXECUTE".E  MC
  41    .. S R=R_ P
  42    . S YSDAT A("ON",N,0 )=R
  43    Q
  44   RSCORE ; r aw scores
  45    S YSJ=$E( P,7,99),P= $P(YSDATA( YSJ+5),U,3 )
  46    Q
  47   SSCORE ;sc aled score
  48    S YSJ=$E( P,7,99),P= $P(YSDATA( YSJ+5),U,4 )
  49    Q
  50   ITEM ;item s resoluti on
  51    S YSIN=$E (P,5,999)
  52    S YSSET=$ P(YSIN,";" ,2)
  53    S YSIN=$P (YSIN,";", 1)
  54    S YSINN=$ S(YSIN>400 :5,YSIN>20 0:4,1:3)
  55    S YSINE=$ S(YSIN#200 =0:200,1:Y SIN)
  56    S P=$P(YS DATA(YSINN ),U,2)
  57    S P=$E(P, YSINE)
  58    Q:YSSET=" "
  59    F YSJJ=1: 1:$L(YSSET ,",") D
  60    . S YSGG= $P(YSSET," ,",YSJJ),Y SGG1=$P(YS GG,":"),YS GG2=$P(YSG G,":",2)
  61    . S:P=YSG G1 P=YSGG2
  62    Q
  63   MC ;mumps  executable  setting P
  64    S YSMC=$P (P,";",2)
  65    X YSMC
  66    Q
  67   GAFURL(YSD ATA) ;retu rns MH GAF  horizonta l sheet
  68    S YSDATA( 1)="[DATA] "
  69    S YSDATA( 2)="http:/ /vaww.ment alhealth. DNS     /gafsheet"  ;ASF 10/1 3/11
  70    Q
  71   PRIVL(YSDA TA,YS) ;ch eck privil eges
  72    N YSCODE, YSET
  73    S YSCODE= $G(YS("COD E"),-1)
  74    ;ASF 03/0 8/06
  75    I (YSCODE ="GAF")!(Y SCODE="ASI ") S YSDAT A(1)="[DAT A]",YSDATA (2)="1^exe mpt test"  Q  ;-->out  test exem pt
  76    I $D(^YTT (601.71,"B ",YSCODE))  D  Q  ;-- > out
  77    . S YSET= $O(^YTT(60 1.71,"B",Y SCODE,0))
  78    . S YSDAT A(1)="[DAT A]"
  79    . S YSKEY =$$GET1^DI Q(601.71,Y SET_",",9)
  80    . I YSKEY ="" S YSDA TA(2)="1^e xempt test " Q  ;-->o ut
  81    . I $D(^X USEC(YSKEY ,DUZ)) S Y SDATA(2)=" 1^user pri vileged" Q   ;-->out  has key
  82    . S YSDAT A(2)="0^no  access" Q   ;->out
  83    ;
  84    I '$D(^YT T(601,"B", YSCODE)) S  YSDATA(1) ="[ERROR]" ,YSDATA(2) ="BAD TEST  CODE" Q   ;--> out
  85    S YSET=$O (^YTT(601, "B",YSCODE ,0))
  86    S YSDATA( 1)="[DATA] "
  87    I $D(^XUS EC("YSP",D UZ)) S YSD ATA(2)="1^ user privi leged for  all tests"  Q  ;has k ey
  88    I $P(^YTT (601,YSET, 0),U,10)=" Y"!(YSCODE ="GAF")!(Y SCODE="ASI ") S YSDAT A(2)="1^ex empt test"  Q  ;test  exempt
  89    I $P(^YTT (601,YSET, 0),U,9)="I " S YSDATA (2)="1^int erview" Q   ;intervie w
  90    S YSDATA( 2)="0^no a ccess"
  91    Q