Produced by Araxis Merge on 8/2/2017 2:39:12 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 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US267 SDD.docx | Wed Jun 21 14:47:44 2017 UTC |
| 2 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US267 SDD.docx | Wed Aug 2 18:07:43 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 4 | 250 |
| Changed | 3 | 6 |
| 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 | MCCF EDI T AS US267 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*X XX | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | December 2 016 | |
| 10 | Version 1 | |
| 11 | User Story Number: U S267 | |
| 12 | User Story Name: Cha nge Auto-P ost Site P arameter | |
| 13 | Story | |
| 14 | As a super visor, I w ould like to be able to change the auto- post site parameters without ‘ getting ki cked’ out of VistA. | |
| 15 | ||
| 16 | Conversati on | |
| 17 | A user cha nges auto- post site parameters by using the EDI Lo ckbox Para meters [RC DPE EDI LO CKBOX PARA METERS] op tion. After the user files a change to the aut o-post par ameters, t he softwar e attempts to send a n email to the
|
|
| 18 | ||
| 19 | Resoluti on – Added Changed O bjects | |
| 20 | ||
| 21 | Routines | |
| 22 | Activities | |
| 23 | Routine Na me | |
| 24 | RCDPESP | |
| 25 | Enhancemen t Category | |
| 26 | New | |
| 27 | Modify | |
| 28 | Delete | |
| 29 | No Change | |
| 30 | RTM | |
| 31 | ||
| 32 | Related Op tions | |
| 33 | ||
| 34 | ||
| 35 | Related Ro utines | |
| 36 | Routines “ Called By” | |
| 37 | Routines “ Called” | |
| 38 | ||
| 39 | PRCAP298 | |
| 40 | RCDPEAA1 | |
| 41 | RCDPEAPP | |
| 42 | RCDPEM | |
| 43 | RCDPESP1 | |
| 44 | RCDPESP5 | |
| 45 | ||
| 46 | RCDPESP5@A UDIT | |
| 47 | RCDPESP5L0 @CARC | |
| 48 | RCMSITE@ED ILOCK | |
| 49 | ||
| 50 | ||
| 51 | ||
| 52 | Current Lo gic | |
| 53 | . | |
| 54 | . | |
| 55 | . | |
| 56 | NOTIFY(VAL ,TYPE) ; N otify CBO team of ch ange to Si te Paramet ers | |
| 57 | N GLB,GLO ,MSG,SITE, SUBJ,XMINS TR,XMTO | |
| 58 | S SITE=$$ SITE^VASIT E | |
| 59 | S TYPE=+$ G(TYPE) ; init optio nal parame ter | |
| 60 | ; limit s ubject to 65 chars. | |
| 61 | S SUBJ=$E ("Site Par ameter edi t, Station #"_$P(SIT E,U,3)_" - "_$P(SITE ,U,2),1,65 ) | |
| 62 | S MSG(1)= " " | |
| 63 | S MSG(2)= " S ite: "_$P( SITE,U,2) | |
| 64 | S MSG(3)= " Statio n #: "_$P( SITE,U,3) | |
| 65 | S MSG(4)= " Dom ain: "_$G( ^XMB("NETN AME")) | |
| 66 | S MSG(5)= " Date/T ime: "_$$F MTE^XLFDT( $$NOW^XLFD T,"5ZPM") | |
| 67 | S MSG(6)= " Changed by: "_$P( $G(^VA(200 ,DUZ,0)),U ) | |
| 68 | S MSG(7)= " " | |
| 69 | S MSG(8)= " ENABLE AUTO-POSTI NG OF "_$S (TYPE=1:"P HARMACY",0 :"MEDICAL" )_" CLAIMS = "_VAL | |
| 70 | S MSG(9)= " " | |
| 71 | ;Copy mes sage to eP ayments CB O team | |
| 72 | S XMTO(DU Z)="" | |
| 73 | S:$$PROD^ XUPROD XMT O("
|
|
| 74 | ; | |
| 75 | K ^TMP("X MERR",$J) | |
| 76 | D SENDMSG ^XMXAPI(DU Z,SUBJ,"MS G",.XMTO,. XMINSTR) | |
| 77 | ; | |
| 78 | I $D(^TMP ("XMERR",$ J)) D | |
| 79 | .D MES^XP DUTL("Mail Man report ed a probl em trying to send th e notifica tion messa ge.") | |
| 80 | .D MES^XP DUTL(" ") | |
| 81 | .S (GLO,G LB)="^TMP( ""XMERR"", "_$J | |
| 82 | .S GLO=GL O_")" | |
| 83 | .F S GLO =$Q(@GLO) Q:GLO'[GLB D MES^XP DUTL(" " _GLO_" = " _$G(@GLO)) | |
| 84 | .D MES^XP DUTL(" ") | |
| 85 | Q | |
| 86 | ; | |
| 87 | . | |
| 88 | . | |
| 89 | . | |
| 90 | ||
| 91 | Modified L ogic (Chan ges are in bold) | |
| 92 | . | |
| 93 | . | |
| 94 | . | |
| 95 | NOTIFY(VAL ,TYPE) ; N otify CBO team of ch ange to Si te Paramet ers | |
| 96 | N GLB,GLO ,MSG,SITE, SUBJ,XMINS TR,XMTO | |
| 97 | S SITE=$$ SITE^VASIT E | |
| 98 | S TYPE=+$ G(TYPE) ; init optio nal parame ter | |
| 99 | ; limit s ubject to 65 chars. | |
| 100 | S SUBJ=$E ("Site Par ameter edi t, Station #"_$P(SIT E,U,3)_" - "_$P(SITE ,U,2),1,65 ) | |
| 101 | S MSG(1)= " " | |
| 102 | S MSG(2)= " S ite: "_$P( SITE,U,2) | |
| 103 | S MSG(3)= " Statio n #: "_$P( SITE,U,3) | |
| 104 | S MSG(4)= " Dom ain: "_$G( ^XMB("NETN AME")) | |
| 105 | S MSG(5)= " Date/T ime: "_$$F MTE^XLFDT( $$NOW^XLFD T,"5ZPM") | |
| 106 | S MSG(6)= " Changed by: "_$P( $G(^VA(200 ,DUZ,0)),U ) | |
| 107 | S MSG(7)= " " | |
| 108 | S MSG(8)= " ENABLE AUTO-POSTI NG OF "_$S (TYPE=1:"P HARMACY",1 :"MEDICAL" )_" CLAIMS = "_VAL | |
| 109 | S MSG(9)= " " | |
| 110 | ;Copy mes sage to eP ayments CB O team | |
| 111 | S XMTO(DU Z)="" | |
| 112 | S:$$PROD^ XUPROD XMT O("
|
|
| 113 | ; | |
| 114 | K ^TMP("X MERR",$J) | |
| 115 | D SENDMSG ^XMXAPI(DU Z,SUBJ,"MS G",.XMTO,. XMINSTR) | |
| 116 | ; | |
| 117 | I $D(^TMP ("XMERR",$ J)) D | |
| 118 | .D MES^XP DUTL("Mail Man report ed a probl em trying to send th e notifica tion messa ge.") | |
| 119 | .D MES^XP DUTL(" ") | |
| 120 | .S (GLO,G LB)="^TMP( ""XMERR"", "_$J | |
| 121 | .S GLO=GL O_")" | |
| 122 | .F S GLO =$Q(@GLO) Q:GLO'[GLB D MES^XP DUTL(" " _GLO_" = " _$G(@GLO)) | |
| 123 | .D MES^XP DUTL(" ") | |
| 124 | Q | |
| 125 | ; | |
| 126 | . | |
| 127 | . | |
| 128 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.