16. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 12/7/2017 6:27:23 PM Eastern Standard 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.

16.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937657-CPE005-051 Permission Error Message CHMFADRV.RO Thu Dec 7 15:13:24 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937657-CPE005-051 Permission Error Message CHMFADRV.RO Thu Dec 7 16:23:23 2017 UTC

16.2 Comparison summary

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

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

16.4 Active regular expressions

No regular expressions were active.

16.5 Comparison detail

  1   Cache for  OpenVMS/AL PHA V8.x^I NT^WNS^^~F ormat=Cach e.S~^RAW
  2   %RO on 15  Nov 2017 1 1:22:24AM
  3   CHMFADRV^I NT^1^64589 ,45103.129 687^0
  4   CHMFADRV ; PJU/DEN;MA IN DRIVER  CHAMPVA;07 /15/99 10: 42 AM
  5    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  6    ;PT 11392
  7    ;TT 11060  JEH 11/26 /10 - ADDI NG USER LO CK
  8    ;CFS 08/0 1/2017 CPE 005-004 Mo dify the D oc ID Scre en for CHA MPVA and S B EDI Reop en.
  9    ;JSE 10/0 6/2017 CPE 005-051 Re strict use rs to the  reopen men us
  10    ;LEG 10/1 6/2017 CPE 005-001 ad ded "E-ALL " & "E-FIR ST" proces sing in A5 , PDIFIRST , PDIXREFS  and PDICN TS
  11    ;JSG2 10/ 20/2017 CP E005-023 C hanged sta tus to EDI -REOPEN
  12    Q:$$IPUSR LK^CHMFADR V(0)=1 ;TT  11060 JEH  11/26/10
  13    K VQAURLF G,CHELQFLG
  14    N CHMFPDI ,CHMOPDI
  15    S PS=0,FK IL=0,FIPAY =0,BAD=0,X =0
  16    ;S X=$ZF( -1,"USERNA ME")
  17    S CHSS=""
  18    ;;S X=$ZF (-1,X,7),C HSS=X
  19    ; Go to C HMFSET and  set scree n variable s
  20    D ^CHMFSE T
  21    ; If ther e is no DU Z info, ou tput an er ror messag e and quit  the routi ne.
  22    I '$D(^CH MDIC(74100 2.21,DUZ,0 )) D NOUSE ^CHMFADR1  G END
  23    ; Determi ne if User  has data  in piece 1 0. If so,  identify I PSUB value  and go to  CALLSUB o therwise c ontinue.
  24    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= "" S IPSUB ="" D  G:I PSUB'="" C ALLSUB
  25    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 IPSUB="M ANUAL^CHMF ADR4"
  26    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 IPSUB="S CAN^CHMFAD R4"
  27    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 2 IPSUB="O CR^CHMFADR 4"
  28    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 IPSUB="S BOCR^CHMFA DR4"
  29    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 IPSUB="O CR2^CHMFAD R4"
  30    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 IPSUB="S BOCR2^CHMF ADR4"
  31    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 6 IPSUB="O CRR^CHMFAD R4"  ;CPE0 05-004
  32    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 IPSUB="S BOCRR^CHMF ADR4"  ;CP E005-004
  33    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 IPSUB="M ANUALR^CHM FADR4" ;MA NUAL EDI R EOPEN BDB  07262017 
  34    W @IOF       ;SKD
  35   STRT W !!, "Are you e ntering <S >canned, < M>anual, C HAMPVA <E> DI, S<B>/C WVV EDI,"
  36     W !," CH AMPVA <O>C R, SB/C<W> VV OCR, <R C>REOPEN C HAMPVA EDI ,<RS>REOPE N SB EDI,"
  37     W !," or  <ER> REOP EN Manual  EDI submis sions? "
  38    D CSBRS^C HSC2
  39    ; If user  enters "^ ^", goto E ND and qui t routine
  40    G:$D(DUOU T) END
  41    G:$D(DFOU T) END
  42    ; If user  enters no thing and  hits retur n, re-writ e to scree n and retu rn to STRT
  43    ;CPE005-0 04 Add "RC " and "RS"  options t o horizont al menu.
  44    I $D(DQOU T) D  G ST RT
  45    .W !!,"En ter 'S' fo r Scanned,  'M' for M anual, 'E'  for CHV E DI, 'B' fo r SB/CWVV  EDI,"
  46    .W !,"'O'  for CHV O CR, 'W' fo r SB/CWVV  OCR, 'RC'  for REOPEN  CHAMPVA E DI,"
  47    .W !,"'RS ' for REOP EN SB EDI  submission s, or 'ER'  for Manua l EDI ReOp en "
  48    ; Y holds  the first  letter of  whatever  the user e ntered. If  nil, retu rn to STRT
  49    G:Y="" ST RT
  50    I (Y'="M" )&(Y'="E") &(Y'="S")& (Y'="B")&( Y'="O")&(Y '="W")&(Y' ="RC")&(Y' ="RS")&(Y' ="ER") G S TRT
  51    ;CPE005-0 51 Restric t users to  reopen me nu
  52    I Y="RC"! (Y="RS")!( Y="ER") S  MCHK=$$SCH K^CHMFADR1 (DUZ) G:MC HK=0 STRT
  53    ; Set the  10th piec e to equal  the user' s entry an d set IPSU B to the a ppropriate  string.
  54    I Y="M" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 S  IPSUB="MA NUAL^CHMFA DR4" ; MAN UAL
  55    I Y="E" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 S  IPSUB="OC R^CHMFADR4 " ; CHV ED I
  56    I Y="S" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=1 S  IPSUB="SC AN^CHMFADR 4" ; SCANN ED
  57    I Y="B" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 S  IPSUB="SB OCR^CHMFAD R4" ; SB/C WVV EDI
  58    I Y="O" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 S  IPSUB="OC R2^CHMFADR 4" ; CHV O CR
  59    I Y="W" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=5 S  IPSUB="SB OCR2^CHMFA DR4" ; SB/ CWVV OCR
  60    I Y="RC"  S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=6  S IPSUB="O CRR^CHMFAD R4" ; CHV  EDI REOPEN  CPE005-00 4
  61    I Y="RS"  S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=7  S IPSUB="S BOCRR^CHMF ADR4" ; SB /CWVV EDI  REOPEN CPE 005-004
  62    I Y="ER"  S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=8  S IPSUB="M ANUALR^CHM FADR4" ; M ANUAL EDI  REOPEN
  63    ;
  64   CALLSUB ;
  65    ; Do the  routine na med in the  variable  IPSUB.
  66    D @IPSUB
  67    G:$D(CHQU IT) END
  68    G:$D(CHMF PAUS) END
  69    G:$D(CHMF KIL) END
  70    G:$D(CHMF EXIT) END
  71    G:$D(CHMF PDRV) END
  72    G:$D(DUOU T) END
  73    G:$D(DFOU T) END
  74    ;
  75   CHECK ;CHE CK DATA AN D SORT CAL LED IN HER E
  76    ;
  77    G:CHMFPDI ="" A8
  78   A2 D CMPLT ^CHMFIMG
  79    S CHMFPP= "CIP" D ^C HMFWK01
  80    D KLOCK^C HMFADR1
  81    D DELST1^ CHMFADR1
  82    S CHMFPP= "SST"
  83    D ^CHMFWK 01
  84    D ^CHMFSR T ;SENDS C LAIMS TO C LAIM SORT
  85    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  D
  86    .S CHMQNA M="MANUAL( ",CHMOUT=1 ,IPSUB="MA NUAL^CHMFA DR4"
  87    .K CHMIN  D ^CHMIS04 1
  88    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1  D
  89    .S CHMQNA M="IMAGE(" ,CHMOUT=1, IPSUB="SCA N^CHMFADR4 "
  90    .K CHMIN  D ^CHMIS04 1
  91    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2  D
  92    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR^C HMFADR4"
  93    .K CHMIN  D ^CHMIS04 1
  94    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3  D
  95    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4"
  96    .K CHMIN  D ^CHMIS04 1
  97    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4  D
  98    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR2^ CHMFADR4"
  99    .K CHMIN  D ^CHMIS04 1
  100    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5  D
  101    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR 2^CHMFADR4 "
  102    .K CHMIN  D ^CHMIS04 1
  103    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6  D  ;CPE00 5-004
  104    .; CPE005 -023 Chang e status t o EDI-REOP EN
  105    .;S CHMQN AM="OCR(", CHMOUT=1,I PSUB="OCRR ^CHMFADR4"
  106    .S CHMQNA M="EDI-REO PEN",CHMOU T=1,IPSUB= "OCRR^CHMF ADR4"
  107    .;
  108    .K CHMIN  D ^CHMIS04 1
  109    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7  D  ;CPE00 5-004
  110    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR R^CHMFADR4 "
  111    .K CHMIN  D ^CHMIS04 1
  112    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8  D
  113    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="MANUA LR^CHMFADR 4"
  114    .K CHMIN  D ^CHMIS04 1
  115    S CHMFPP= "CST"
  116    D ^CHMFWK 01
  117    S $P(^CHM IMAGE(CHMF PDI,0),"^" ,10)=1
  118    K CHMFCLM S,CHMFCL,C HMFREJ
  119    D SORT^CH FCDUTL
  120    D ^CHFCDD RV ;CALLS  CLAIM EDIT  UTILITY ^ CHMFA801
  121    I $G(CHMO PDI) D  ;b db 1004201 7 original  pdi bene- calc
  122    . NEW CHO SEN
  123    . S CHOSE N=$P(^CHMD IC(741002. 21,DUZ,0), "^",10) I  CHOSEN=6!( CHOSEN=7)! (CHOSEN=8)  D
  124    .. S DIE= 741000.2,D A=CHMOPDI, DR=".06/// 11;.22///" _DT D ^DIE  K DIE
  125    .. N CHMF PDI
  126    .. S CHMF PDI=CHMOPD I
  127    .. D SORT ^CHFCDUTL
  128    .. D QUE1 ^CHFCDUTL  ;queue the  bene chec k and bene  calc
  129    I $D(CHNE WPG) D  G  CALLSUB
  130    .D NEWPG^ CHMFADR1
  131    .S $P(^CH MIMG(CHMFP DI,0),"^", 6)=1
  132    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 D
  133    ..S IPSUB ="MANUAL^C HMFADR4"
  134    ..D PDIUP ^CHMFABU3( CHMFPDI,$P (^CHMIMG(C HMFPDI,0), "^",6))
  135    ..S CHMQN AM="MANUAL (",CHMIN=1
  136    ..K CHMOU T D ^CHMIS 041
  137    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 D
  138    ..S IPSUB ="SCAN^CHM FADR4"
  139    ..S CHMQN AM="IMAGE( ",CHMIN=1
  140    ..K CHMOU T D ^CHMIS 041
  141    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 2 D
  142    ..S IPSUB ="OCR^CHMF ADR4"
  143    ..S CHMQN AM="OCR(", CHMIN=1
  144    ..K CHMOU T D ^CHMIS 041
  145    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 D
  146    ..S IPSUB ="SBOCR^CH MFADR4"
  147    ..S CHMQN AM="OCR(", CHMIN=1
  148    ..K CHMOU T D ^CHMIS 041
  149    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D
  150    ..S IPSUB ="OCR2^CHM FADR4"
  151    ..S CHMQN AM="OCR(", CHMIN=1
  152    ..K CHMOU T D ^CHMIS 041
  153    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D
  154    ..S IPSUB ="SBOCR2^C HMFADR4"
  155    ..S CHMQN AM="OCR(", CHMIN=1
  156    ..K CHMOU T D ^CHMIS 041
  157    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 6 D  ;CPE0 05-004
  158    ..S IPSUB ="OCRR^CHM FADR4"
  159    ..; CPE00 5-023 Chan ge status  to EDI-REO PEN
  160    ..; S CHM QNAM="OCR( ",CHMIN=1
  161    ..S CHMQN AM="EDI-RE OPEN",CHMI N=1
  162    ..K CHMOU T D ^CHMIS 041
  163    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D  ;CPE0 05-004
  164    ..S IPSUB ="SBOCRR^C HMFADR4"
  165    ..S CHMQN AM="OCR(", CHMIN=1
  166    ..K CHMOU T D ^CHMIS 041
  167    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 D
  168    ..S IPSUB ="MANUALR^ CHMFADR4"
  169    ..S CHMQN AM="OCR(", CHMIN=1
  170    ..K CHMOU T D ^CHMIS 041
  171    .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=C HMFPDI
  172    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 0,$P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=8  D REMV1^C HMFADR1
  173   A5 D NOW^% DTC
  174    N CHOSEN
  175    S $P(^CHM IMAGE(CHMF PDI,0),"^" ,5)=%
  176    S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)
  177    I CHOSEN= 6!(CHOSEN= 7)!(CHOSEN =8) D  ;CP E005-004,  CPE005-069
  178    .I $G(CHM OPDI)'=""  D
  179    ..I $D(^C HMPAY("C", CHMFPDI))  D  ;Set ED I Reopen f lag. CPE00 5-004
  180    ...S $P(^ CHMIMG(CHM FPDI,"E-RE OPEN"),"^" )=CHMOPDI, $P(^CHMIMG (CHMFPDI," E-REOPEN") ,"^",3)=1
  181    ...S $P(^ CHMIMG(CHM OPDI,"E-RE OPEN"),"^" ,2)=CHMFPD I,$P(^CHMI MG(CHMOPDI ,"E-REOPEN "),"^",3)= 1
  182    ...; add  ReOpen xre fs: a) "E- FIRST" set s 1st Orig inal for e ach given  subsequent  ReOpen
  183    ...; b) " E-ALL" set s all ReOp ens xrefed  to 1st Or iginal occ urrence
  184    ...D PDIF IRST^CHMFU TLE(CHMFPD I) ; (CPE0 05-001)
  185    ...Q
  186   A8 D KILAL L^CHMFADR1
  187    G:$D(CHRS TSRT) END
  188    D BATCH^C HMFADR1
  189    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  IPSUB="MA NUAL^CHMFA DR4"
  190    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2  IPSUB="OC R^CHMFADR4 "
  191    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1  IPSUB="SC AN^CHMFADR 4"
  192    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3  IPSUB="SB OCR^CHMFAD R4"
  193    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4  IPSUB="OC R2^CHMFADR 4"
  194    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5  IPSUB="SB OCR2^CHMFA DR4"
  195    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6  IPSUB="OC RR^CHMFADR 4"  ;CPE00 5-004
  196    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7  IPSUB="SB OCRR^CHMFA DR4"  ;CPE 005-004
  197    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8  IPSUB="MA NUALR^CHMF ADR4"
  198    G CALLSUB
  199    ;
  200   END I $D(^ CHMDIC(741 002.21,DUZ ,0)) D
  201    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)' =0,$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 8 D REMV^C HMFADR1
  202    X CHRESET
  203    I $D(CHMF PDI) K:CHM FPDI'="" ^ CHMIMAGE(" LOCK",CHMF PDI)
  204    I '$D(CHM FPAUS) D
  205    .D KILALL ^CHMFADR1
  206    .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",2)=" "
  207    .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=" "
  208    .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= ""
  209   QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER
  210    K CHREVOF F,CHREVON, CHULOFF,CH ULON,OUTFL G,IPSUB L
  211    Q:$$IPUSR LK^CHMFADR V(1)=1 ;TT  11060 JEH  11/26/10
  212    Q
  213    ;
  214    ;SUBROUTI NES CALLED  IN DRIVER
  215    ;
  216   ERR1 S DY= 5,DX=10 X  XY W "User  is unknow n to syste m",@CHEOL
  217    S DY=6,DX =10 X XY W  "Please L og onto te rminal aga in",@CHEOL
  218    R RD:2 Q
  219    Q
  220   IPUSRLK(IP FLG) ;USER  LOCK TO P REVENT MUL TIPLE SESS IONS ;TT 1 1060 JEH 1 1/26/10
  221           Q: $$ENVIR^CH TFLIB()'=" LIVE" 0 ;F OR LIVE US E ONLY
  222           N  IPLCK   ;S ETTING LOC K TO ALLOW  USER TO R UN IP 0=UN LOCKED/1=L OCKED
  223           N  IPMSG   ;L OCKING MES SAGE
  224           S  IPLCK=0
  225           I  IPFLG=0 D
  226           .I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",22)=1 D
  227           .. S IPMSG="* ** IMAGE P ROCESSING  (IP) IS CU RRENTLY IN  USE, ONLY  1 SESSION  IS ALLOWE D ***"
  228           .. S IPMSG2=" Please con tact your  Supervisor  for help. "
  229           .. W @IOF,!!, ?(80-$L(IP MSG)/2),IP MSG,!!,IPM SG2,! H 3
  230           .. S IPLCK=1
  231           .E   D
  232           .. S $P(^CHMD IC(741002. 21,DUZ,0), "^",22)=1
  233           .. S IPLCK=0
  234           I  IPFLG=1 D
  235           .S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",22)=0
  236           .S  IPLCK=1
  237           Q  IPLCK
  238   IPHLPDSK ; ALLOW OCIO  HELPDESK  TO LOCK/UN LOCK IP FO R USER ;TT  11060 JEH  11/26/10
  239           N  IPHMSG,TMP Y,IPDUZ
  240           S  IPHMSG="LO CK/UNLOCK  IMAGE PROC ESSING (IP ) SCREEN F OR USER"
  241           W  #,!!,?(80- $L(IPHMSG) /2),IPHMSG ,!!
  242           S  DIR(0)="PO ^741002.21 :EMZ",DIR( "A")="User  to unlock " D ^DIR K  DIR
  243           Q: $D(DIRUT)
  244           Q: Y=-1
  245           S  IPDUZ=+Y
  246           I  $P(^CHMDIC (741002.21 ,+Y,0),"^" ,22)=0&($P (^CHMDIC(7 41002.21,+ Y,0),"^",5 )="") D  Q
  247           .W  !!,$P(^VA (200,+Y,0) ,"^",1),"  DOES NOT H AVE AN OPE N IMAGE PR OCESSING ( IP) SESSIO N TO UNLOC K." H 2
  248           I  $P(^CHMDIC (741002.21 ,+Y,0),"^" ,5)'="" W  !!,"USER H AS SESSION  OPEN WITH  AN ACTIVE  PDI, DOUB LE CHECK B EFORE UNLO CKING.",!
  249           S  TMPY=+Y
  250           W  !
  251           S  DIR(0)="Y" ,DIR("B")= "NO",DIR(" A")="OK TO  UNLOCK" D  ^DIR K DI R
  252           I  Y=1 D
  253           .S  $P(^CHMDI C(741002.2 1,TMPY,0), "^",22)=0
  254           .D  MMMSG
  255           K  DIE,DR,DA, Y
  256           Q
  257   MMMSG ;GEN ERATE MM M ESSAGE TO  CPD TOP 4  SPECIALIST  AND USER  NEEDING UN LOCKED
  258           Q: '$D(IPDUZ)
  259           N  USRNM,UNLD T
  260           D  NOW^%DTC S  UNLDT=$$F MTE^XLFDT( %)
  261           S  USRNM=$P(^ VA(200,IPD UZ,0),"^", 1)
  262           S  CNT=1,^TMP ($J,"CHMIP LK",CNT)=" ",CNT=CNT+ 1
  263           S  ^TMP($J,"C HMIPLK",CN T)="User " _USRNM_" h as been un locked fro m Image Pr ocessing ( IP).",CNT= CNT+1
  264           S  ^TMP($J,"C HMIPLK",CN T)="",CNT= CNT+1
  265           S  ^TMP($J,"C HMIPLK",CN T)="Unlock  was done:  "_UNLDT,C NT=CNT+1
  266           S  ^TMP($J,"C HMIPLK",CN T)="",CNT= CNT+1
  267           S  XMTEXT="^T MP($J,""CH MIPLK"","
  268           S  XMDUZ=.5
  269           S  XMY(IPDUZ) =""   ;COU RTESY COPY  FOR USER  NEEDING UN LOCKED
  270           S  XMY(DUZ)=" " ;COPY FO R USER UNL OCKING VE
  271           ;S  XMY("
P II                  ")="" ;CPD  SUPERVISO RS AND LEA DS MAIL GR OUP - FOR  FUTURE USE
  272           S  XMSUB="IP  UNLOCKED F OR "_USRNM  D ^XMD
  273           Q
  274           ;
  275   .
  276  
  277  
  278