2. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 7/27/2018 11:09:38 AM 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.

2.1 Files compared

# Location File Last Modified
1 Build 7 - Sprint 19\CPE-SNF CRU_SNF_S19 Developer Form.docx Thu Jul 26 17:18:03 2018 UTC
2 Build 7 - Sprint 19\CPE-SNF CRU_SNF_S19 Developer Form.docx Fri Jul 27 15:24:23 2018 UTC

2.2 Comparison summary

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

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

2.4 Active regular expressions

No regular expressions were active.

2.5 Comparison detail

  1   Routine Na me:  CHMXF 004_______ _________
  2   Developer  Name(s):   __Bellamko nda,Subbar ao_____
  3   Associated  User Stor y/Stories:     ______ _CRU_SNF_3 *_5* stori es________ _______
  4   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  5  
  6   I1 S CHFI= $O(^CHMXCL F("B",CHEI ,CHFI)) G: 'CHFI END
  7    G:'$D(^CH MXCLF(CHFI ,1)) I1
  8    S CHREV=$ P(^CHMXCLF (CHFI,1)," ^"),CHARGE =$P(^(1)," ^",6),CHUN TS=+$P(^(1 ),"^",8)
  9  
  10   S:CHUNTS=" " CHUNTS=1  S:CHUNTS= 0 CHUNTS=1
  11  
  12   S ^CHMIMAG E(CHMFPDI, 1,CHTOSJ,2 ,1,"INP-NS ",1,102,CH EJJ,0)=CHR EV_"^"_CHA RGE_"^"_CH LINE_"^"_C HUNTS
  13  
  14   Q LICTRL
  15  
  16  
  17   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  – Strike  thru, Chan ged - Ital ics)
  18   ;SBB 05/18 /2018 CRU_ SNF update
  19    ;I1 S CHF I=$O(^CHMX CLF("B",CH EI,CHFI))  G:'CHFI EN D
  20   I1 S CHFI= $O(^CHMXCL F("B",CHEI ,CHFI)) G: 'CHFI I2
  21    G:'$D(^CH MXCLF(CHFI ,1)) I1
  22    ;SBB 05/1 6/2018 CRU _SNF updat e
  23    S CHHPCD= ""
  24    S CHREV=$ P(^CHMXCLF (CHFI,1)," ^"),CHARGE =$P(^(1)," ^",6),CHUN TS=+$P(^(1 ),"^",8)
  25    ;SBB 05/1 6/2018 CRU _SNF updat e
  26    S CHHPCD= $P(^(1),"^ ",3)
  27    N TMP
  28    I CHHPCD' ="" D  
  29    . S TMP=C HHPCD
  30    . I $D(^C HMXDIC(741 201.86,"B" ,TMP)) S C HHPCD=$O(^ CHMXDIC(74 1201.86,"B ",TMP,""))
  31    . Q
  32  
  33   ;SBB 05/16 /2018 CRU_ SNF update
  34    ;S:CHUNTS ="" CHUNTS =1 S:CHUNT S=0 CHUNTS =1
  35    S:CHUNTS= "" CHUNTS= 0
  36  
  37   ;SBB 05/16 /2018 CRU_ SNF update
  38    ;S ^CHMIM AGE(CHMFPD I,1,CHTOSJ ,2,1,"INP- NS",1,102, CHEJJ,0)=C HREV_"^"_C HARGE_"^"_ CHLINE_"^" _CHUNTS
  39    S ^CHMIMA GE(CHMFPDI ,1,CHTOSJ, 2,1,"INP-N S",1,102,C HEJJ,0)=CH REV_"^"_CH ARGE_"^"_C HLINE_"^"_ CHUNTS_"^^ "_CHHPCD
  40  
  41   ;
  42    ;SBB 05/1 8/2018 CRU _SNF updat es
  43    ;Adding n odes 103 a nd 104 und er INP-NS  to transfe r Occurren ce and spa n codes an d dates
  44    ;
  45   I2;
  46    D SPANOCC R
  47    ;
  48  
  49   Q LICTRL
  50    ;
  51    ;SBB
  52   SPANOCCR     ;
  53    ;
  54    N CIX,TMP ,CBIJS,CBI JO
  55    S (TMP)=" ",(CIX,CBI JS,CBIJO)= 0
  56    S CIX=""  F  S CIX=$ O(^CHMXCLE (CHEI,43,C IX)) Q:CIX =""  D  
  57    . Q:'$D(^ CHMXCLE(CH EI,43,CIX, 0))
  58    . S TMP=^ CHMXCLE(CH EI,43,CIX, 0),TMP(1)= $P(TMP,"^" ),TMP(2)=$ P(TMP,"^", 2),TMP(3)= $P(TMP,"^" ,3)
  59    . I TMP(1 )="" Q
  60    . I $D(^C HMXDIC(741 201.42,"B" ,TMP(1)))  D INPNOCCR (.TMP) Q
  61    . I $D(^C HMXDIC(741 201.43,"B" ,TMP(1)))  D INPNSPAN (.TMP) Q
  62    . Q
  63    Q
  64    ;SBB 05/1 8/2018 CRU _SNF updat es
  65    ;Adding n ode 104 un der INP-NS  to transf er span co des and da tes
  66   INPNSPAN(C ODE)    ;
  67    ;
  68    N SPNCD,S PNDT1,SPND T2,X,Y
  69    S CBIJS=C BIJS+1,(SP NCD,SPNDT1 ,SPNDT2,X, Y)=""
  70    ;Translat e code int o IEN
  71    S SPNCD=$ O(^CHMXDIC (741201.43 ,"B",CODE( 1),""))
  72    ;convert  CCYYMMDD i nto Filema n date
  73    S X=CODE( 2) D ^%DT  S SPNDT1=Y  I Y=-1 S  SPNDT1=""
  74    S X=CODE( 3) D ^%DT  S SPNDT2=Y  I Y=-1 S  SPNDT2=""
  75    S ^CHMIMA GE(CHMFPDI ,1,CHTOSJ, 2,1,"INP-N S",1,104,C BIJS,0)=SP NCD_"^"_SP NDT1_"^"_S PNDT2
  76    Q
  77    ;
  78    ;SBB 05/1 8/2018 CRU _SNF updat es
  79    ;Adding n ode 103 IN P-NS to tr ansfer Occ urrence co des and da te
  80   INPNOCCR(C ODE)    ;
  81    ;
  82    N OCRCD,O CRDT,X,Y
  83    S CBIJO=C BIJO+1,(OC RCD,OCRDT, X,Y)=""
  84    ;Translat e code int o IEN
  85    S OCRCD=$ O(^CHMXDIC (741201.42 ,"B",CODE( 1),""))
  86    ;convert  CCYYMMDD i nto Filema n date
  87    S X=CODE( 2) D ^%DT  S OCRDT=Y  I Y=-1 S O CRDT=""
  88    S ^CHMIMA GE(CHMFPDI ,1,CHTOSJ, 2,1,"INP-N S",1,103,C BIJO,0)=OC RCD_"^"_OC RDT
  89    Q
  90    ;
  91  
  92   Difference s
  93  
  94   See  highl ighted inf o above.
  95  
  96  
  97   Passed XIN DEX?  (Y /  N):  N/A
  98  
  99   Routine Na me:  CHMFS R09_______ _________
  100   Developer  Name(s):   __Bellamko nda,Subbar ao_____
  101   Associated  User Stor y/Stories:     ______ _CRU_SNF_3 *_5* stori es________ _______
  102   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  103  
  104   I46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"REV",JJ) ) G:'JJ I5
  105  
  106   G I46
  107  
  108   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  – Strike  thru, Chan ged - Ital ics)
  109   ;CRU_SNF03 * SBB 05/1 8/2018
  110    ;I46 S JJ =$O(^UTILI TY("CLAIMS ",$J,TY,DF N,BFN,VN,D OS,"REV",J J)) G:'JJ  I5
  111   I46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"REV",JJ) ) G:'JJ O4 5
  112  
  113   G I46
  114    ;CRU_SNF0 3* SBB 05/ 18/2018
  115   O45 S JJ=0
  116   O46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"OCCR",JJ )) G:'JJ S 45
  117    S IP25=^U TILITY("CL AIMS",$J,T Y,DFN,BFN, VN,DOS,"OC CR",JJ)
  118    G:$D(@(GL PAY_"DA(1) ,""INP-OCC R"",0)"))  O47
  119    S FNUM=$S (GLPAY="^C HMPAY(":"7 41000.0157 PA",GLPAY= "^CHNVPAY( ":"7413001 .0157PA",1 :1)
  120    S @(GLPAY _"DA(1),"" INP-OCCR"" ,0)")="^"_ FNUM_"^0^0 "
  121   O47 L +@(G LPAY_"DA(1 ),""INP-OC CR"",0)") 
  122    S J=$P(^( 0),"^",3)+ 1,$P(^(0), "^",3)=J L  -@(GLPAY_ "DA(1),""I NP-OCCR"", 0)")  
  123    S:$P(IP25 ,U,1)'=""  @(GLPAY_"D A(1),""INP -OCCR"",J, 0)")=IP25
  124    S:$P(IP25 ,U,1)'=""  @(GLPAY_"D A(1),""INP -OCCR"","" B"",$P(IP2 5,U,1),J)" )=""
  125    G O46
  126    ;CRU_SNF0 3* SBB 05/ 18/2018
  127   S45 S JJ=0
  128   S46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"SPAN",JJ )) G:'JJ I 5
  129    S IP25=^U TILITY("CL AIMS",$J,T Y,DFN,BFN, VN,DOS,"SP AN",JJ)
  130    G:$D(@(GL PAY_"DA(1) ,""INP-SPA N"",0)"))  S47
  131    S FNUM=$S (GLPAY="^C HMPAY(":"7 41000.0158 PA",GLPAY= "^CHNVPAY( ":"7413001 .0158PA",1 :1)
  132    S @(GLPAY _"DA(1),"" INP-SPAN"" ,0)")="^"_ FNUM_"^0^0 "
  133   S47 L +@(G LPAY_"DA(1 ),""INP-SP AN"",0)") 
  134    S J=$P(^( 0),"^",3)+ 1,$P(^(0), "^",3)=J L  -@(GLPAY_ "DA(1),""I NP-SPAN"", 0)")  
  135    S:$P(IP25 ,U,1)'=""  @(GLPAY_"D A(1),""INP -SPAN"",J, 0)")=IP25
  136    S:$P(IP25 ,U,1)'=""  @(GLPAY_"D A(1),""INP -SPAN"","" B"",$P(IP2 5,U,1),J)" )=""
  137    G S46
  138  
  139  
  140   Difference s
  141  
  142   See  highl ighted inf o above.
  143  
  144  
  145   Passed XIN DEX?  (Y /  N):  N/A
  146  
  147   Routine Na me:  CHMFS R05_______ _________
  148   Developer  Name(s):   __Bellamko nda,Subbar ao_____
  149   Associated  User Stor y/Stories:     ______ _CRU_SNF_3 *_5* stori es________ _______
  150   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  151   I32 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 02,M)) G:' M I4 S X=^ (M,0)
  152  
  153   S N=HN+1,^ UTILITY("C LAIMS",$J, TS,DFN,BFN ,VN,AD,"RE V",N)=X G  I32
  154  
  155  
  156   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  – Strike  thru, Chan ged - Ital ics)
  157   ;CRU_SNF03 * SBB 05/1 8/2018
  158    ;I32 S M= $O(^CHMIMA GE(PDI,1,J ,2,K,SUB,L ,102,M)) G :'M I4 S X =^(M,0)
  159   I32 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 02,M)) G:' M I33 S X= ^(M,0)
  160  
  161   S N=HN+1,^ UTILITY("C LAIMS",$J, TS,DFN,BFN ,VN,AD,"RE V",N)=X G  I32
  162   ;CRU_SNF03 * SBB 05/1 8/2018
  163   I33 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 03,M)) G:' M I34 S X= ^(M,0)
  164    I '$D(^UT ILITY("CLA IMS",$J,TS ,DFN,BFN,V N,AD,"OCCR ")) S ^UTI LITY("CLAI MS",$J,TS, DFN,BFN,VN ,AD,"OCCR" ,1)=X G I3 3
  165    S N=0,HN= 0 F NN=1:1  S N=$O(^U TILITY("CL AIMS",$J,T S,DFN,BFN, VN,AD,"OCC R",N)) Q:' N  S HN=N
  166    S N=HN+1, ^UTILITY(" CLAIMS",$J ,TS,DFN,BF N,VN,AD,"O CCR",N)=X  G I33
  167    ;CRU_SNF0 3* SBB 05/ 18/2018
  168   I34 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 04,M)) G:' M I4 S X=^ (M,0)
  169    I '$D(^UT ILITY("CLA IMS",$J,TS ,DFN,BFN,V N,AD,"SPAN ")) S ^UTI LITY("CLAI MS",$J,TS, DFN,BFN,VN ,AD,"SPAN" ,1)=X G I3 4
  170    S N=0,HN= 0 F NN=1:1  S N=$O(^U TILITY("CL AIMS",$J,T S,DFN,BFN, VN,AD,"SPA N",N)) Q:' N  S HN=N
  171    S N=HN+1, ^UTILITY(" CLAIMS",$J ,TS,DFN,BF N,VN,AD,"S PAN",N)=X  G I34
  172  
  173   Difference s
  174  
  175   See  highl ighted inf o above.
  176  
  177  
  178   Passed XIN DEX?  (Y /  N):  N/A
  179  
  180   Routine Na me:  CHMFA UT8_______ _________
  181   Developer  Name(s):   __Bellamko nda,Subbar ao_____
  182   Associated  User Stor y/Stories:     ______ _CRU_SNF_3 *_5* stori es________ _______
  183   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  184  
  185  
  186   .S REVOUT= $P(REV,"^" )_"^"_$P(R EV,"^",6)_ "^"_$P(REV ,"^",2)_"^ ^"_$P(REV, "^",3)_"^" _EDILID  ; JEH 2/1/11  DEV007820
  187  
  188  
  189  
  190   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  – Strike  thru, Chan ged - Ital ics)
  191   ;SBB 05/16 /2018 CRU_ SNF update
  192    S L=1
  193  
  194   ...;SBB 5/ 18/18 CRU_ SNF update  
  195    ...D PREI PTL5
  196    ...D PREI PTL6
  197  
  198   S CHMFINP( SPON,BEN," INP",12)=" "                 ;SB B 5/18/18  CRU_SNF up date OCCR
  199    S CHMFINP (SPON,BEN, "INP",13)= ""                 ;S BB 5/18/18  CRU_SNF u pdate SPAN
  200  
  201   .;SBB 05/1 6/2018 CRU _SNF updat e
  202    .N TMP S  TMP="",TMP =^CHMIMAGE (CHMFPDI,1 ,CHMFPGNM, 2,CHMFIMAG ,"INP-NS", L,102,M,0)
  203    .S REVOUT =$P(REV,"^ ")_"^"_$P( REV,"^",6) _"^"_$P(RE V,"^",2)_" ^^"_$P(REV ,"^",3)_"^ "_EDILID   ;JEH 2/1/1 1 DEV00782 0
  204    .;SBB 05/ 16/2018 CR U_SNF upda te
  205    .;7th pie ce is hipp s code (wh ich is 6th  piece fro m CHMIMAGE )
  206    .S REVOUT =REVOUT_"^ "_$P(TMP," ^",6)
  207    .S $P(REV OUT,"^",4) =$P(TMP,"^ ",4)     ; passing in  the units .
  208  
  209   ;
  210    ;SBB 5/18 /18 CRU_SN F update 
  211   PREIPTL5 ; Loads "OCC R" into CH MFINP arra y
  212    N N,OCCR, OCCRDT,TMP  S M="",TM P=""
  213    F  S M=$O (^CHMIMAGE (CHMFPDI,1 ,CHMFPGNM, 2,CHMFIMAG ,"INP-NS", L,103,M))  Q:M=""  D
  214    .S TMP=^C HMIMAGE(CH MFPDI,1,CH MFPGNM,2,C HMFIMAG,"I NP-NS",L,1 03,M,0)
  215    .S OCCR=$ P(TMP,"^") ,OCCRDT=$P (TMP,"^",2 )
  216    .S CHMFIN P(SPON,BEN ,"OCCR",M) =OCCR_"^"_ OCCRDT
  217    .S CHMFIN P(SPON,BEN ,"INP",12) ="Y"
  218    .Q
  219    Q
  220    ;
  221    ;SBB 5/18 /18 CRU_SN F update 
  222   PREIPTL6 ; Loads "SPA N" into CH MFINP arra y
  223    N N,SPAN, SPANDT1,SP ANDT2,TMP  S M="",TMP =""
  224    F  S M=$O (^CHMIMAGE (CHMFPDI,1 ,CHMFPGNM, 2,CHMFIMAG ,"INP-NS", L,104,M))  Q:M=""  D
  225    .S TMP=^C HMIMAGE(CH MFPDI,1,CH MFPGNM,2,C HMFIMAG,"I NP-NS",L,1 04,M,0)
  226    .S SPAN=$ P(TMP,"^") ,SPANDT1=$ P(TMP,"^", 2),SPANDT2 =$P(TMP,"^ ",3)
  227    .S CHMFIN P(SPON,BEN ,"SPAN",M) =SPAN_"^"_ SPANDT1_"^ "_SPANDT2
  228    .S CHMFIN P(SPON,BEN ,"INP",13) ="Y"
  229    .Q
  230    Q
  231  
  232   ;SBB 05/16 /2018 CRU_ SNF update
  233    S L=1
  234  
  235   Difference s
  236  
  237   See  highl ighted inf o above.
  238  
  239  
  240   Passed XIN DEX?  (Y /  N):  N/A
  241  
  242   Routine Na me:  CHMFA 800_______ _________
  243   Developer  Name(s):   __Bellamko nda,Subbar ao_____
  244   Associated  User Stor y/Stories:     ______ _CRU_SNF_3 *_5* stori es________ _______
  245   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  246  
  247   D POA  ;AE B 1/20/201 0 DEV00480 5 ADDED PO A INDICATO R CHECKING
  248    G B8A
  249  
  250  
  251  
  252   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  – Strike  thru, Chan ged - Ital ics)
  253   D POA  ;AE B 1/20/201 0 DEV00480 5 ADDED PO A INDICATO R CHECKING
  254    ;SBB 05/1 6/2018 CRU _SNF 03* s eries
  255    D SNF
  256    G B8A
  257  
  258   ;
  259   ;SBB 05/16 /2018 CRU_ SNF 03* se ries
  260   SNF; new f or SNF D/C  checks
  261    ;
  262    N ISSNF,I SREV22,ISU NITS,ISFDA TE,ISTDATE ,ISHPCD,RE VDAT,SPANI ,SPANTMP
  263    ;Quit if  not snf cl aim
  264    S (ISSNF, ISREV22,IS UNITS,ISFD ATE,ISTDAT E,ISHPCD,S PANI)=0,SP ANTMP=""
  265    S ISSNF=$ $ISSNF()
  266    I 'ISSNF  Q
  267    ;
  268    ;no reven ue code 00 22
  269    S ISREV22 =$$ISREV22 (.REVDAT)
  270    I 'ISREV2 2 S CHREA( 408)=1,FLA G("INP")=1
  271    I ISREV22  D  
  272    . ;no uni ts for hip ps code
  273    . S ISUNI TS=$$ISUNI TS(.REVDAT )
  274    . I 'ISUN ITS S CHRE A(407)=1,F LAG("INP") =1
  275    . ;
  276    . ;no hip ps code 
  277    . S ISHPC D=$$ISHPCD (.REVDAT)
  278    . I 'ISHP CD S CHREA (409)=1,FL AG("INP")= 1
  279    . Q
  280    ;
  281    ;Check fo r Dates on  span code s
  282    F  S SPAN I=$O(^CHMP AY(CI,"INP -SPAN",SPA NI)) Q:'+S PANI  D  
  283    . S SPANT MP=^CHMPAY (CI,"INP-S PAN",SPANI ,0)
  284    . ;No Fro m Date che ck
  285    . I $P(SP ANTMP,"^", 2)="" S CH REA(410)=1 ,FLAG("INP ")=1
  286    . ;No To/ Through da te
  287    . I $P(SP ANTMP,"^", 3)="" S CH REA(411)=1 ,FLAG("INP ")=1
  288    . Q
  289    Q
  290    ;
  291   ;SBB 05/16 /2018 CRU_ SNF 03* se ries
  292   ISSNF();
  293   ;
  294   N RTN,VISN F,STOB
  295   S RTN=0
  296   S STOB=$P( @(GLPAY_"C I,""7"")") ,U,6)
  297    I (STOB>2 09)&(STOB< 219) S RTN =1
  298    I 'RTN D   
  299    . S VISNF =$P(@(GLPA Y_"CI,""0" ")"),U,3)
  300    . I '$D(^ CHMVEN(VIS NF,1)) Q
  301    . I ($P(^ CHMVEN(VIS NF,1),"^", 7)=9)!($P( ^CHMVEN(VI SNF,1),"^" ,7)=25) S  RTN=1
  302    . Q
  303    Q RTN
  304    ;
  305    ;SBB 05/1 6/2018 CRU _SNF 03* s eries
  306   ISREV22(RE VDAT);
  307   ;
  308   N RTN,REVC D,REVI,TMP ,REV22CD
  309   S (RTN,REV I)=0,(TMP, REV22CD)=" "
  310   S REV22CD= $O(^CHMXDI C(741201.3 9,"B","002 2",""))
  311   I $D(@(GLP AY_"CI,""I NP-REV"")" )) D  
  312    . F  S RE VI=$O(^CHM PAY(CI,"IN P-REV",REV I)) Q:'+RE VI  D  
  313    . . Q:'$D (^CHMPAY(C I,"INP-REV ",REVI,0))
  314    . . S TMP =^CHMPAY(C I,"INP-REV ",REVI,0)
  315    . . S TMP =$P(TMP,U)
  316    . . I TMP =REV22CD S  RTN=1,REV DAT(REVI)= ""
  317    . . Q
  318    . Q
  319    Q RTN
  320    ;
  321    ;SBB 05/1 6/2018 CRU _SNF 03* s eries
  322   ISUNITS(RE VDAT);
  323   ;
  324   N RTN,REVI ,TMP
  325   S RTN=1,RE VI=0,TMP=" "
  326   I $D(REVDA T) D  
  327   . F  S REV I=$O(REVDA T(REVI)) Q :('+REVI)! ('RTN)  D   
  328   . . S TMP= $P(^CHMPAY (CI,"INP-R EV",REVI,0 ),U,4)
  329   . . I +TMP =0 S RTN=0
  330   . . Q
  331   . Q
  332    Q RTN
  333    ;
  334    ;SBB 05/1 6/2018 CRU _SNF 03* s eries
  335   ISHPCD(REV DAT);
  336   ;
  337   N RTN,REVI ,TMP
  338   S RTN=1,RE VI=0,TMP=" "
  339   I $D(REVDA T) D  
  340   . F  S REV I=$O(REVDA T(REVI)) Q :('+REVI)! ('RTN)  D   
  341   . . S TMP= $P(^CHMPAY (CI,"INP-R EV",REVI,0 ),U,6)
  342   . . I TMP= "" S RTN=0  Q
  343   . . I '$D( ^CHMXDIC(7 41201.86,T MP)) S RTN =0
  344   . . Q
  345   . Q
  346    Q RTN
  347    ;
  348  
  349   Difference s
  350  
  351   See  highl ighted inf o above.
  352  
  353  
  354   Passed XIN DEX?  (Y /  N):  N/A
  355  
  356   Routine Na me:  CHMFA 113_______ _________
  357   Developer  Name(s):   __Bellamko nda,Subbar ao_____
  358   Associated  User Stor y/Stories:     ______ _CRU_SNF_3 *_5* stori es________ _______
  359   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  360  
  361   D DIAG,PRO C,ROOM,ITE M,OTHER,IN IT,REV G A 2
  362   END Q
  363  
  364   S ^CHMIMAG E(CHMFPDI, 1,CHMFPGNM ,2,CHMFIMA G,"INP-NS" ,JJ,102,L, 0)=$P(CHMF INP(I,J,"R EV",K),"^" ,3)_U_$P(C HMFINP(I,J ,"REV",K), "^",5)_U_$ P(CHMFINP( I,J,"REV", K),"^",6)  G RV1  ;JE H 2/1/11 D EV007820
  365  
  366   .S $P(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG,"INP -NS",JJ,20 0,L,0),"^" ,6)=$P(CHM FINP(I,J," ITEM",K)," ^",9)
  367  
  368  
  369   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  – Strike  thru, Chan ged - Ital ics)
  370   ;CRU_SNF03 * SBB 05/1 8/2018
  371    ;D DIAG,P ROC,ROOM,I TEM,OTHER, INIT,REV G  A2
  372    D DIAG,PR OC,ROOM,IT EM,OTHER,I NIT,REV,OC CR,SPAN G  A2
  373   END Q
  374  
  375   ;SBB 05/16 /2018 CRU_ SNF update
  376    ;S ^CHMIM AGE(CHMFPD I,1,CHMFPG NM,2,CHMFI MAG,"INP-N S",JJ,102, L,0)=$P(CH MFINP(I,J, "REV",K)," ^",3)_U_$P (CHMFINP(I ,J,"REV",K ),"^",5)_U _$P(CHMFIN P(I,J,"REV ",K),"^",6 ) G RV1  ; JEH 2/1/11  DEV007820
  377    N TMPIMG  S TMPIMG=" "
  378    S TMPIMG= $P(CHMFINP (I,J,"REV" ,K),"^",3) _U_$P(CHMF INP(I,J,"R EV",K),"^" ,5)_U_$P(C HMFINP(I,J ,"REV",K), "^",6)
  379    S TMPIMG= TMPIMG_U_$ P(CHMFINP( I,J,"REV", K),"^",4)_ U_U_$P(CHM FINP(I,J," REV",K),"^ ",7)
  380    S ^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG,"INP-NS ",JJ,102,L ,0)=TMPIMG  G RV1
  381  
  382   .S $P(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG,"INP -NS",JJ,20 0,L,0),"^" ,6)=$P(CHM FINP(I,J," ITEM",K)," ^",9)
  383    ;CRU_SNF0 3* SBB 05/ 18/2018
  384   OCCR S K=0
  385   OCCR1 S K= $O(CHMFINP (I,J,"OCCR ",K)) Q:'K   S HL=999 999
  386    S HL=$O(^ CHMIMAGE(C HMFPDI,1,C HMFPGNM,2, CHMFIMAG," INP-NS",JJ ,103,HL),- 1)
  387    S:'HL HL= 0 S L=HL+1
  388    N TMPIMG  S TMPIMG=" "
  389    S TMPIMG= $P(CHMFINP (I,J,"OCCR ",K),"^")_ U_$P(CHMFI NP(I,J,"OC CR",K),"^" ,2)
  390    S ^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG,"INP-NS ",JJ,103,L ,0)=TMPIMG  G OCCR1
  391    ;
  392    ;CRU_SNF0 3* SBB 05/ 16/2018
  393   SPAN S K=0
  394   SPAN1 S K= $O(CHMFINP (I,J,"SPAN ",K)) Q:'K   S HL=999 999
  395    S HL=$O(^ CHMIMAGE(C HMFPDI,1,C HMFPGNM,2, CHMFIMAG," INP-NS",JJ ,104,HL),- 1)
  396    S:'HL HL= 0 S L=HL+1
  397    N TMPIMG  S TMPIMG=" "
  398    S TMPIMG= $P(CHMFINP (I,J,"SPAN ",K),"^")_ U_$P(CHMFI NP(I,J,"SP AN",K),"^" ,2)_U_$P(C HMFINP(I,J ,"SPAN",K) ,"^",3)
  399    S ^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG,"INP-NS ",JJ,104,L ,0)=TMPIMG  G SPAN1
  400  
  401   Difference s
  402  
  403   See  highl ighted inf o above.
  404  
  405  
  406   Passed XIN DEX?  (Y /  N):  N/A
  407