Produced by Araxis Merge on 9/24/2019 1:38:08 PM Eastern 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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSCLPOST.RTN | Wed Jul 31 17:35:31 2019 UTC |
| 2 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSCLPOST.RTN | Fri Sep 20 20:37:00 2019 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 46 |
| Changed | 1 | 2 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| 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 |
No regular expressions were active.
| 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 | YSCLPOST^I NT^1^63910 ,74846^0 | |
| 4 | YSCLPOST ; DVAMC/RLM- Clozapine Post Init ;APR 24,19 90@15:26 | |
| 5 | ;;5.01;ME NTAL HEALT H;**18,22* *;DEC 30, 1994 | |
| 6 | START ; | |
| 7 | S YSCLDOM =$G(^XMB(" NETNAME")) ,YSCLDM=0 S:YSCLDOM= "" YSCLDOM ="^" | |
| 8 | F S YSCL DM=$O(^DIC (4.2,"B",Y SCLDOM,YSC LDM)) Q:'Y SCLDM Q:$ P($G(^DIC( 4.2,+YSCLD M,0)),"^") =YSCLDOM | |
| 9 | S YSCLST= $P($G(^DIC (4.2,+YSCL DM,0)),"^" ,13) I YSC LST="" S Y SCLST=^DD( "SITE")_" ERROR IN F ILE 4.2" | |
| 10 | S YSCLDAT A(1)="No C lozapine p atients fo und at "_Y SCLST | |
| 11 | S (YSCLA, YSCLLN)=0 F S YSCLA =$O(^PS(55 ,"ASAND1", YSCLA)) W "." Q:YSCL A="" D | |
| 12 | . S YSCLB =$O(^PS(55 ,"ASAND1", YSCLA,"")) I YSCLB=" " S YSCLER =" record is in erro r (1) at " D ERR Q | |
| 13 | . I '$D(^ PS(55,YSCL B,0)) S YS CLER=" rec ord is in error (2) at " D ERR Q | |
| 14 | . S YSCLB =$P(^PS(55 ,YSCLB,0), "^") I YSC LB="" S YS CLER=" rec ord is in error (3) at " D ERR Q | |
| 15 | . I '$D(^ PS(55,YSCL B,"SAND")) S YSCLER= " record i s in error (4) at " D ERR Q | |
| 16 | . S DIC=" ^DPT(",DIC (0)="X",D= "SSN",(YSC LSSN,X)=$P (^DPT(YSCL B,0),"^",9 ) | |
| 17 | . I $D(^Y SCL(603.01 ,"B",YSCLA )) S YSCLX =$O(^YSCL( 603.01,"B" ,YSCLA,"") ) S:YSCLX] "" YSCLX=$ P(^YSCL(60 3.01,YSCLX ,0),"^",2) ,YSCLER=" Clozapine # is in us e by "_$P( $G(^DPT(YS CLX,0)),"^ ")_" at " D ERR Q | |
| 18 | . D MIX^D IC1 S YSCL PT=+Y I Y= -1 S YSCLE R=" could not be add ed at " D ERR Q | |
| 19 | . K DD S DIC="^YSCL (603.01,", X=YSCLA,DI C("DR")="1 ////"_YSCL PT D FILE^ DICN | |
| 20 | . S YSCLX =$O(^YSCL( 603.01,"B" ,YSCLA,"") ) S:YSCLX] "" YSCLX=$ P(^YSCL(60 3.01,YSCLX ,0),"^",2) ,YSCLER=", "_YSCLSSN_ " assigned to "_$P($ G(^DPT(YSC LX,0)),"^" )_" at " D ERR | |
| 21 | S %H=$H D YMD^%DTC S XMDUN="N CCC LOGGER ",XMDUZ=". 5",XMSUB=Y SCLST_" NC CC ENROLLE R ("_X_%_" )",XMTEXT= "YSCLDATA( ",XMY("
|
|
| 22 | K %,%H,D, DIC,X,XMDU N,XMDUZ,XM SUB,XMTEXT ,XMY,XMZ,Y ,YSCLA,YSC LB,YSCLDAT A,YSCLDM,Y SCLDOM,YSC LER,YSCLLN ,YSCLPT,YS CLSSN,YSCL ST,YSCLX Q | |
| 23 | ERR S YSCL LN=YSCLLN+ 1,YSCLDATA (YSCLLN)=Y SCLA_YSCLE R_YSCLST Q | |
| 24 | ZEOR ;YSCL POST |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.