104. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:55 AM Central 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.

104.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMFADRV.m Mon Nov 5 16:39:38 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMFADRV.m Mon Nov 5 17:45:51 2018 UTC

104.2 Comparison summary

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

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

104.4 Active regular expressions

No regular expressions were active.

104.5 Comparison detail

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