184. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:04 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.

184.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLDME2.m Mon Nov 5 16:39:06 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLDME2.m Mon Nov 5 17:50:05 2018 UTC

184.2 Comparison summary

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

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

184.4 Active regular expressions

No regular expressions were active.

184.5 Comparison detail

  1   CHMLDME2 ; JEH/CHV;DA TA LOAD PE N FILES;08 /13/13  8: 40 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;Buil d 1
  3    ;
  4    ;DEV00369 8 - INTALL  PEN FEE S CHEDULE
  5    ;
  6    ;THIS ROU TINE LOADS  THE FOLLO WING DATA  FILES INTO  CP&E:
  7    ;     Par enteral an d Enteral  Nutrition  Items and  Services ( PEN) Fee S chedule
  8    ;     (EX AMPLE: DME 2013 JAN P EN PUF.txt )
  9    ;
  10    ;FILE FOR MAT FOR PE N
  11    ;      CO LUMN
  12    ;      NU MBER & NAM E            COMMENT
  13    ;  1  --Y EAR
  14    ;      2  --HCPCS CO DE           All curr ent year a ctive and  deleted co des subjec t to DMEPO S floors a nd ceiling s.
  15    ;      3  --1ST MODI FIER         NU--Purc hased, New
  16    ;                                                  RR --Rented
  17    ;                                                  UE --Purchase d, Used
  18    ;      4  --2ND MODI FIER         KE--Bid  Under Roun d I of the  DMEPOS Co mpetitive  Bid Progra m For Use  With Non-C ompetitive  Bid Base  Equipment
  19    ;                                                  BA  --Item Fu rnished In  Conjuncti on with Pa renteral E nteral (PE N) Service s
  20    ;      5  --NATIONAL  FEE SCHED ULE AMOUNT  (RURAL/NO NRUAL INDI CATOR R-RU RAL NR-NON RURAL)
  21    ;      6  --SHORT DE SCRIPTION
  22    ;
  23    ;GLOBALS:
  24    ;     ^CH MDIC(74103 1)  - CHAM PVA DMEPOS  FEE SCHED ULE
  25    ;     ^CH MZHOLD("CH MLDME",     - TEMP GL OBAL TO HO LD EFF & E ND DATE +  FEE SCHED  DATA
  26    ;
  27    ;JEH 9/5/ 13 - ENC01 8925 Post- SLLA/DMEPO S, to add  a history  piece & lo okup optio n to view  DMEPOS fil es
  28    ;DPT DEV0 16554 DEV0 12893 CHAN GE EOF REP LACE DECNE T
  29    ;DPT MTN0 26580 - 7/ 1/16 JUL20 16 MODIFY  LAYOUT ADD  RURAL FIE LD 
  30    ;ENC02501 8 DPT - AP PLY RURAL  NON RURAL  RULES CHAN GE ROUTINE  TO ADD RU RAL AND NO N RURAL AM TS
  31    ;MTN27311  DPT   - C HANGE CAT  TO LOOK UP  CAT IN NE W GLOBAL C HMDIC(7410 31.12 THIS  WILL WAIT
  32    ;MTN02750 4 DPT - FY 2017 UPDAT E
  33    ;MTN        DPT - FY 2018 REMOV E REFERENC E TO ENVIR ONMENT MAN UALLY MOVE  FILE FROM  FS3 FOR N OW
  34   START   ;
  35    D INIT
  36    Q:$D(DUOU T)
  37    G:EFFDATE ="^" END
  38    D GTDME
  39    I $D(^CHM ZHOLD("CHM LDME",CHDL RJ)) D
  40    .S DIR(0) ="Y",DIR(" A")="OK TO  UPDATE PE N GLOBAL", DIR("B")=" NO" D ^DIR  K DIR
  41    .Q:Y=-1
  42    .S ANS=Y
  43    .I ANS=1  D
  44    ..D QUEA^ CHMLDME2    ;TASKING  GLOBAL DAT A UPDATE
  45    .I ANS=""   D CHTOMS G^CHMLDME1 (CHDLRJ,CH FLDT)  ; U PDATE TIME D OUT MESS AGE
  46    D END
  47    Q
  48   GTDME ;GAT HERING PEN  DATA
  49    N STIEN,S TABV
  50    U 0 W !!, "Reading i n PEN FEE  SCHEDULE D ata...",!
  51    ; S $ZE=" ",$ZT="END C^CHMLDME1 "
  52    ; N FOLDE R,CNTR  ;D EV016554 D PT
  53     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"  ;DEV016554  DPT
  54    ;S FILE=F NAME,FOLDE R="" ;DEV0 12893 DPT
  55    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 012893 DPT
  56    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV012893  DPT
  57    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT
  58    ;S FILE=F OLDER_FILE  ;DEV01655 4 DPT
  59    ;S FLDR=" /FS3BIG/CO DEUPDT/DME POSUPDT/"_ UCI ;DEV01 2893 DPT
  60    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 2893
  61    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. DMEPOSUPDT ."_ENVIR_" ]"_FNAME
  62    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME
  63    O FILE:"R ":5
  64    ; S POP=0 ,CNTR=0 ;D EV016554 D PT
  65    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D ;DE V016554 DP T
  66    ;  .X "D  $SYSTEM.Pr ocess.SetZ EOF(1)" ;D EV016554 D PT
  67    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  68    ; .Q ;DEV 016554 DPT
  69    ;I 'POP G  ENDC  ;DE V016554 DP T
  70    ;H 5
  71    S CTR=0
  72    F  U FILE  R REC G:$ $STATUS^%Z ISH ENDC D  ;DEV01655 4 DPT
  73    .S REC=$T R(REC,"~", "^"),REC=$ TR(REC,"(" ,"^"),REC= $TR(REC,") ","^") ;RE MOVE UNWAN TED CHARAC TERS MTN02 6580 DPT
  74    .;F I="$" ,","," "," """ S REC= $TR(REC,I)    ;
  75    .S CRYR=$ P(REC,"^", 1) 
  76    .S CODE=$ P(REC,"^", 2)    ;COD E  MTN0248 89 DPT
  77    .S MOD1=$ P(REC,"^", 3)   ;MODI FIER MTN02 4889 DPT
  78    .S MOD2=$ P(REC,"^", 4)   ;MODI FIER MTN02 4889 DPT
  79    .S JUR=""    ;JURIS  MTN024889  DPT
  80    .S CAT=""   ;CATG  M TN024889 D PT
  81    .I EFFDAT E<3170201 
  82     ..S ST=$ P(REC,"^", 5)           ;STATE M TN024889 D PT
  83     ..S RDC= $P(REC,"^" ,6)   ;RUR UAL INDICA TOR MTN024 889 DPT
  84     ..S RAT= $FN($P(REC ,"^",8),"" ,2)   ;RAT E MTN02488 9 DPT
  85     ..Q
  86    .I EFFDAT E>3170131  D
  87     ..S ST=$ E($P(REC," ^",6),1,2)            ;STATE MTN 024889 DPT
  88     ..S RDC= $P(REC,"^" ,8)   ;RUR UAL INDICA TOR MTN024 889 DPT
  89     ..S RRAT =$P(REC,"^ ",5)
  90     ..S NRAT =$FN($P(RE C,"^",7)," ",2)   ;RA TE MTN0248 89 DPT
  91     ..Q
  92    .S DESC=$ P(REC,"^", 9)   ;DESC RIPTION MT N024889 DP T
  93    .;I RDC'= "R" D        ; BYPASS  RURAL RAT ES FOR NOW  MTN024889  DPT
  94    .;S CTR=C TR+1 
  95    .I EFFDAT E<3170201  S ^CHMZHOL D("CHMLDME ",CHDLRJ,$ I(CTR))=EF FDATE_"^"_ ENDDATE_"^ "_CRYR_"^" _CODE_"^"_ MOD1_"^"_M OD2_"^"_JU R_"^"_CAT_ "^"_"^^"_S T_"^"_RDC_ "^^^^^"_RA T_"^^^"_DE SC
  96    .I EFFDAT E>3170131  S ^CHMZHOL D("CHMLDME ",CHDLRJ,$ I(CTR))=EF FDATE_"^"_ ENDDATE_"^ "_CRYR_"^" _CODE_"^"_ MOD1_"^"_M OD2_"^"_JU R_"^"_CAT_ "^"_"^^"_S T_"^"_RDC_ "^^^^"_NRA T_"^"_RRAT _"^^^"_DES C
  97    ;F  U FIL E R REC Q: $$STATUS^% ZISH  D    ;DEV016554  DPT
  98    ;.S CRYR= $E(REC,1,4 )                                      ;CUR RENT YEAR  ACTIVE
  99    ;.S CODE= $E(REC,6,1 0)                                     ;HCP CS CODE
  100    ;.S MOD1= $TR($E(REC ,12,13),"   ","")             ;1 st MODIFIE R
  101    ;.S MOD2= $TR($E(REC ,15,16),"   ","")             ;2 nd MODIFIE R
  102    ;.S FAMT= $E(REC,25, 31)/100                                ;NAT IONAL FEE  SCHEDULE A MOUNT
  103    ;.S DESC= $E(REC,35, 62)                                    ;SHO RT DESCRIP TION
  104    ;.F STIEN =1:1:56,72 ,78 D
  105    ;..Q:'$D( ^DIC(5,STI EN,0))
  106    ;..S STAB V=$P(^DIC( 5,STIEN,0) ,"^",2)            ;7 2-"PR", 78 -"VI"
  107    ;..S ^CHM ZHOLD("CHM LDME",CHDL RJ,$I(CTR) )=EFFDATE_ "^"_ENDDAT E_"^"_CRYR _"^"_CODE_ "^"_MOD1_" ^"_MOD2_"^ ^^^^"_STAB V_"^^^^"_F AMT_"^^^"_ DESC
  108    C FILE
  109     D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  110    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT
  111    Q
  112   LDDME ;UPD ATE   FEE  SCHEDULE G LOBAL USIN G FM
  113    Q:'$D(^CH MZHOLD("CH MLDME",CHD LRJ))
  114    N EFFDATE ,ENDDATE,C HHCCD,CHMO D1,CHMOD2, CHMOD3,CHM OD4,CHJURI SD,CHCATEG Y
  115    N CHSTATU S,CHSTNM,C HCEILING,C HFLOOR,CHS TRATE,CHDE SC,CHMLRZT N,CHIEN
  116    S CTR=0 F   S CTR=$O (^CHMZHOLD ("CHMLDME" ,CHDLRJ,CT R)) Q:'CTR   D
  117    .S (EFFDA TE,ENDDATE ,CHHCCD,CH MOD1,CHMOD 2,CHMOD3,C HMOD4,CHML RZTN,CHJUR ISD,CHCATE GY,CHDESC, CHSTAT,CHR URL,CHRDC1 )=""  ;mtn 026580 dpt
  118    .S (CHCEI LING,CHFLO OR,CHSTFEA MT)=0
  119    .S EFFDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,1)      ;  EFFECTIVE  DATE
  120    .S ENDDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,2)      ;  END DATE
  121    .S CHHCCD =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 4)       ;  HCPCS COD E
  122    .S CHMOD1 =$TR($P(^C HMZHOLD("C HMLDME",CH DLRJ,CTR), "^",5)," " ,"")  ; MO DIFIER 1
  123    .S CHMOD2 =$TR($P(^C HMZHOLD("C HMLDME",CH DLRJ,CTR), "^",6)," " ,"")  ; MO DIFIER 2
  124    .S CHMOD3 =""   ;$P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",#)         ; MO DIFIER 3    *** NOT U SED - FOR  FUTURE USE  ***
  125    .S CHMOD4 =""   ;$P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",#)         ; MO DIFIER 4    *** NOT U SED - FOR  FUTURE USE  ***
  126    .S CHJURI SD=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",7)     ;  JURISDICT ION
  127    .S CHCATE GY=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",8)     ;  CATEGORY
  128    .S CHSTAT US=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",9)     ;  STATUS    A-ACTIVE C ODE
  129    .S CHSTNM =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 11)      ;  STATE NAM E
  130    .;S CHCEI LNG=$FN($P (^CHMZHOLD ("CHMLDME" ,CHDLRJ,CT R),"^",13) ,"",2) ; C EILING
  131    .;S CHFLO OR=$FN($P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",14), "",2)  ; F LOOR
  132    .I EFFDAT E<3170201  D
  133    ..S CHRDC 1=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,12)         ;RURUAL/ NONRURAL I NDICATOR m tn026580 d pt
  134    ..I CHRDC 1="NR" S C HSTRATE=$F N($P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,17),"",2)  ; STATE R ATE/UPDATE D FEE SCHE DULE AMOUN T
  135    ..I CHRDC 1="R" S CH RURL=$FN($ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",17 ),"",2) ;  STATE RATE /UPDATED F EE SCHEDUL E AMOUNT
  136    ..Q
  137    .I EFFDAT E>3170131  D
  138    ..S CHRDC 1=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,12)         ;RURUAL/ NONRURAL I NDICATOR m tn026580 d pt
  139    ..I CHRDC 1=" " S CH STRATE=$FN ($P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 16),"",2)  S CHRURL=$ FN(0,"",2)  Q ; STATE  RATE/UPDA TED FEE SC HEDULE AMO UNT MTN026 580 DPT
  140    ..I CHRDC 1="R" S CH RURL=$FN($ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",17 ),"",2) S  CHSTRATE=$ FN($P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",16),"",2 ) ; RURAL  STATE RATE /UPDATED F EE SCHEDUL E AMOUNT M TN026580 D PT
  141    ..;S CHRU RL=$FN($P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",17), "",2) ;RUR AL RATE
  142    ..;S CHST RATE=$FN($ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",16 ),"",2) ;  NON RURAL  STATE RATE /UPDATED F EE SCHEDUL E AMOUNT
  143    ..Q
  144    .S CHDESC =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 20)        ; SHORT DE SCRIPTION  MTN024889  DPT 
  145    .S CHMLRZ TN=CHJURIS D_"*"_CHCA TEGY_"*"_C HMOD1_"*"_ CHMOD2_"*" _CHMOD3_"* "_CHMOD4    ; MODIFIE RIZATION P OINTER
  146    .S CHIEN= CHHCCD
  147    .D HSTUPD ^CHMLDME1    ;UPDATE  HISTORY NO DE / QUIT  IF NO CHAN GES          ;JEH 9/5 /13 - ENC0 18925
  148    .S DIC="^ CHMDIC(741 031,",DIC( 0)="L",X=C HIEN D ^DI C
  149    .I Y=-1 K  DIC Q
  150    .S DA=+Y
  151    .S DIE=DI C
  152    .S DR="1/ ///"_EFFDA TE   ; EFF ECTIVE DAT E
  153    .S DR(2,7 41031.01)= "1////"_EN DDATE_";5/ ///"_CHMLR ZTN
  154    .S DR(3,7 41031.15)= "1////"_CH MOD1_";2// /"_CHMOD2_ ";3///"_CH MOD3_";4// /"_CHMOD4_ ";5///"_CH JURISD_";6 ///"_CHCAT EGY_";7/// "_CHSTATUS _";8///"_C HSTNM_";9/ //"_CHDESC _";10///"_ DUZ_";11// /"_CHFLDT_ ";12////"_ CHCEILING_ ";13////"_ CHFLOOR
  155    .S DR(4,7 41031.158) ="1////"_C HSTRATE_"; 2///"_CHRU RL  ;mtn02 6580 dpt
  156    .D ^DIE
  157    .K DIE,DI C,DR,DA,Y
  158    D MMMSG^C HMLDME1($J )
  159    Q
  160   DSPLY ;DIS PLAY RECOR D DATA
  161    Q
  162    W !,"DA =  ",?20,DA
  163    W:$D(DA(1 )) !,"DA(1 ) =",?20,D A(1)
  164    W:$D(DA(2 )) !,"DA(2 ) =",?20,D A(2)
  165    W !
  166    Q
  167   INIT ;INIT ILIZING VA RIABLES
  168    S (EFFDAT E,CHDLRJ,Y ,CHFLDT,CH IO,CTR,REC ,RC1,RC2,E NDDATE,ANS )=""
  169    K ^CHMZHO LD("CHMLDM E",$J)
  170    D NOW^%DT C S CHFLDT =%  ;FILE  LOAD DATE
  171    S:'$D(DUZ ) DUZ=1
  172    S CTR=0
  173    S EFFDATE =""
  174    S CHDLRJ= $J
  175    K FNAME
  176    ;DISPLAY  MENU TITLE
  177    S TITLE=" PEN Fee Sc hedule Dat a Load"
  178    W ?(39-($ L(TITLE)/2 )),TITLE,! !!
  179    ;SET ENVI RONMENT
  180    ;S ENVIR= $$ENVIR^CH TFLIB
  181    ;S DIR("B ")=ENVIR
  182    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  183    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  184    ;S DIR("L ",2)=""
  185    ;S DIR("L ",3)="   1   LIVE"
  186    ;S DIR("L ",4)="   2   TRAIN"
  187    ;S DIR("L ",5)="   3   TEST"
  188    ;S DIR("L ",6)="   4   DEV"
  189    ;S DIR("L ",7)=""
  190    ;S DIR("L ")="   ^    QUIT"
  191    ;D ^DIR K  DIR
  192    ;Q:$D(DUO UT)
  193    ;Q:Y=""
  194    ;Q:Y="^"! (Y="")
  195    ;S ENVIR= Y(0)
  196    K DIR
  197    W !
  198    ;SET PEN  FEE SCHEDU LE FILE
  199    S DIR(0)= "F^3:50"
  200    S DIR("A" )="Enter P EN file na me (DME201 3JANPENPUF .txt)" D ^ DIR K DIR
  201    Q:$D(DUOU T)
  202    Q:Y="^"!( Y="")
  203    S FNAME=Y  K DIR
  204    K ^CHMZHO LD("CHMLDM E",$J)
  205    Q:$D(DUOU T)
  206    ;SET EFFE CTIVE DATE
  207    S EFFDATE ="" K DIR
  208    S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D  ^DIR K DI R
  209    Q:$D(DUOU T)
  210    S EFFDATE =Y
  211    ;SET END  DATE
  212    S ENDDATE ="" K DIR
  213    S DIR(0)= "DO" S DIR ("A")="Ent er End dat e (mm/dd/y y)" D ^DIR  K DIR
  214    Q:$D(DUOU T)
  215    S ENDDATE =Y
  216    Q
  217   ENDC ;CLOS ING FILE
  218    C FILE
  219    ;C CHIO
  220    D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT
  221    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT
  222    Q
  223   END ;END O F ROUTINE
  224    K EFFDATE ,CHDLRJ,Y, CHFLDT,CHI O,CTR,REC, ENDDATE,FI LE
  225    K DIC
  226    W !!,"UPD ATE HAS BE EN TASKED.  MM WILL B E SENT WHE N DONE."
  227    Q
  228   QUEA ;QUE  OR RUN THI S ROUTINE  MANUALLY.
  229    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  230    D NOW^%DT C S DT=X
  231    I '$D(CHF LDT) S CHF LDT=%
  232    S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")=""
  233    S ZTSAVE( "CHDLRJ")= ""
  234    S ZTRTN=" LDDME^CHML DME2",ZTDE SC="PROCES S PEN FEE  FILE"
  235    S ZTIO=""
  236    ;D ^%ZTLO AD
  237    D @ZTRTN         ; U SE IF RUNN ING HOT
  238    Q
  239   MMMSG(CHTO DJ) ;GENER ATE MM MES SAGE
  240    S CNT=1,^ TMP(CHTODJ ,"CHMLDME" ,CNT)="",C NT=CNT+1
  241    S ^TMP(CH TODJ,"CHML DME",CNT)= "GLOBAL 74 1031, HAS  BEEN UPDAT ED.",CNT=C NT+1
  242    S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1
  243    S ^TMP(CH TODJ,"CHML DME",CNT)= "PLEASE CH ECK.",CNT= CNT+1
  244    S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1
  245    S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME"","
  246    S XMDUZ=. 5
  247    S XMY(DUZ )=""
  248    S XMSUB=" GBL 741031  UPDT-CMPL TD" D ^XMD
  249    Q
  250   CHTOMSG(CH TODJ,CHTOF DT)   ;GEN ERATE MESS AGE TO RUN  SECOND PA RT OF UPDA TE
  251    S CNT=1,^ TMP(CHTODJ ,"CHMLDME2 ",CNT)="", CNT=CNT+1
  252    S ^TMP(CH TODJ,"CHML DME2",CNT) ="UPDATE H AS TIMED O UT...",CNT =CNT+1
  253    S ^TMP(CH TODJ,"CHML DME2",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLDME"" ,"_CHTODJ_ ")",CNT=CN T+1
  254    S ^TMP(CH TODJ,"CHML DME2",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 031):",CNT =CNT+1
  255    S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1
  256    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  257    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  258    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   D LDD ME^CHMLDME 1",CNT=CNT +1
  259    S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1
  260    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  261    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  262    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   D QUE A^CHMLDME1 ",CNT=CNT+ 1
  263    S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME2"","
  264    S XMDUZ=. 5
  265    S XMY(DUZ )=""
  266    S XMSUB=" GBL 741031  UPDT-NOT  CMPLTD" D  ^XMD
  267    Q
  268   EDITCAT  ; MTN027311  DPT
  269    ; THIS SE CTION WILL  USE THE P OINTER FOR  THE CATEG ORY CODE
  270    S CHCAT=$ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",8)   ; CATEGO RY MTN0273 11 DPT
  271    
  272    N K,K1  ; MTN027311  DPT
  273    
  274    I CHCAT=" " Q  ;MTN0 27311 DPT
  275    
  276    I $D(^CHM DIC(741031 .12,"B",CH CAT)) S CH CATI=0  ;M TN027311 D PT
  277    S CHCATI= $O(^CHMDIC (741031.12 ,"B",CHCAT ,CHCATI))  Q ;MTN0273 11 DPT
  278    ;IF CATEG ORY NOT IN  DME CATEG ORY GLOBAL  ADD TO GL OBAL PLACE  NEW POINT ER IN DMEP OS 
  279    I '$D(^CH MDIC(74103 1.12,"B",C HCAT)) D ; MTN027311  DPT
  280     .S K=$P( ^CHMDIC(74 1031.12,0) ,"^",3),K1 =$P(^CHMDI C(741031.1 2,0),"^",4 ) ;MTN0273 11 DPT
  281     .S K=K+1 ,K1=K1+1,^ CHMDIC(741 031.12,K,0 )=CHCAT,^C HMDIC(7410 31,"B",CHC AT)="",$P( ^CHMDIC(74 1031.12,0) ,"^",3)=K, $P(^CHMDIC (741031.12 ,0),"^",4) =K1  ;MTN0 27311 DPT
  282     .S CHCAT I=K ;ENC02 5018 DPT
  283     .U 0 W ! ,"ADDED NE W CATEGORY  = ",CHCAT ," AT POIN TER = ",K  ;MTN027311  DPT
  284    
  285    Q  ;MTN02 7311 DPT
  286