Produced by Araxis Merge on 4/17/2018 8:06:31 PM Central 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 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US170+v1.01.docx | Sun Mar 11 20:03:23 2018 UTC |
| 2 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US170+v1.01.docx | Tue Apr 17 20:34:12 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 630 |
| Changed | 0 | 0 |
| 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 US170 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | Department of Vetera ns Affairs | |
| 8 | January 20 18 | |
| 9 | Version 1. 01 | |
| 10 | User Story Number: U SRX-35 | |
| 11 | User Story Name: Dis play Rejec t Informat ion (RI) S creen Comm ents in Vi ew Prescri ption | |
| 12 | Product Ba cklog ID: 199 | |
| 13 | Backlog Pr iority: | |
| 14 | Initial Si zing Estim ate: | |
| 15 | Rational I D: TBD | |
| 16 | Rally ID: US170 | |
| 17 | ||
| 18 | Design – S ummary | |
| 19 | Add any us er entered Reject In formation comments t o the ‘ECM E Log’ sec tion of th e View Pre scription screen. | |
| 20 | “User ente red” comme nts will b e defined as comment s in which the assoc iated user is not PO STMASTER. | |
| 21 | Continue t o display the curren t comments for the E CME Log se ction in a ddition to the Rejec t Info Scr een Commen ts. Commen ts will be displayed in ascend ing date/t ime order. | |
| 22 | List of Co mponents: | |
| 23 | Routine: P SOORAL1 | |
| 24 | Routine: P SORXVW1 | |
| 25 | ||
| 26 | Design – D etail | |
| 27 | ECME^PSOOR AL1 will b e updated to loop th rough Acti vity Log ( #52.3) and Reject In fo (#52.25 ), compili ng an arra y (PSOAR) that will contain th e required informati on for the ECME Log section. T he code wi ll assembl e the arra y in ascen ding date/ time order . | |
| 28 | The data o utput from the Activ ity Log wi ll remain unchanged. The logic to produc e the outp ut from th e Activity Log will be updated to make t he code mo re readabl e and supp ortable. | |
| 29 | ||
| 30 | Subroutine Name | |
| 31 | ECME^PSOOR AL1 | |
| 32 | Enhancemen t Category | |
| 33 | New | |
| 34 | Modify | |
| 35 | Delete | |
| 36 | No Change | |
| 37 | Story | |
| 38 | US170 | |
| 39 | Related Me nu Options or ListMa n Actions | |
| 40 | View Presc ription | |
| 41 | Current Lo gic | |
| 42 | ||
| 43 | ECME ; ECM E activity log | |
| 44 | N N,P1,RF T,PSOACBRK ,PSOACBRV, MIG,SG,I,N OTFND,CNT, LINE | |
| 45 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)=" ", IEN=IEN+1, ^TMP("PSOA L",$J,IEN, 0)="ECME L og:" | |
| 46 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)="# Date/Time Rx Ref Ini tiator Of Activity" | |
| 47 | S IEN=IEN +1,$P(^TMP ("PSOAL",$ J,IEN,0)," =",79)="=" | |
| 48 | S NOTFND= 1,I=0 F S I=$O(^PSR X(DA,"A",I )) Q:'I S Z=$G(^PSR X(DA,"A",I ,0)) I $P( Z,"^",2)=" M" S NOTFN D=0 Q | |
| 49 | I NOTFND S IEN=IEN+ 1,^TMP("PS OAL",$J,IE N,0)="Ther e's NO ECM E Activity to report " Q | |
| 50 | S CNT=0 | |
| 51 | F N=0:0 S N=$O(^PSR X(DA,"A",N )) Q:'N S P1=^(N,0) D | |
| 52 | .I $P(P1, "^",2)'="M " Q | |
| 53 | .S IEN=IE N+1,CNT=CN T+1 | |
| 54 | .K STA,RN S $P(RN," ",15)=" " ,RF=+$P(P1 ,"^",4) | |
| 55 | .S LINE=C NT,$E(LINE ,5)=$$FMTE ^XLFDT($P( P1,"^"),2) ,$E(LINE,2 5)=$S(RF:" REFILL "_R F,1:"ORIGI NAL") | |
| 56 | .S $E(LIN E,41)=$$GE T1^DIQ(200 ,+$P(P1,"^ ",3),.01) | |
| 57 | .S ^TMP(" PSOAL",$J, IEN,0)=LIN E | |
| 58 | .I $P(P1, "^",5)]"" D | |
| 59 | ..S PSOAC BRV=$P(P1, "^",5) | |
| 60 | ..;PSO*7* 240 Use fi leman for parsing | |
| 61 | ..K ^UTIL ITY($J,"W" ) S X="Com ments: "_P SOACBRV,(D IWR,DIWL)= 1,DIWF="C8 0" D ^DIWP F I=1:1:^ UTILITY($J ,"W",1) S IEN=IEN+1, ^TMP("PSOA L",$J,IEN, 0)=$G(^UTI LITY($J,"W ",1,I,0)) | |
| 62 | .I $O(^PS RX(DA,"A", N,2,0)) F I=0:0 S I= $O(^PSRX(D A,"A",N,2, I)) Q:'I S MIG=^PSR X(DA,"A",N ,2,I,0) D | |
| 63 | ..F SG=1: 1:$L(MIG) D | |
| 64 | ...S:$L(^ TMP("PSOAL ",$J,IEN,0 )_" "_$P(M IG," ",SG) )>80 IEN=I EN+1,$P(^T MP("PSOAL" ,$J,IEN,0) ," ",9)=" " | |
| 65 | ...S:$P(M IG," ",SG) '="" ^TMP( "PSOAL",$J ,IEN,0)=$G (^TMP("PSO AL",$J,IEN ,0))_" "_$ P(MIG," ", SG) | |
| 66 | D DISPREJ | |
| 67 | K ^UTILIT Y($J,"W"), DIWR,DIWF, DIWL | |
| 68 | Q | |
| 69 | ||
| 70 | Modified L ogic (Chan ges are hi ghlighted) | |
| 71 | ||
| 72 | ECME ; ECM E activity log | |
| 73 | ; | |
| 74 | N DIWF,DI WL,DIWR,I, II,III,LIN E,PSOAR,PS OCNT,PSOCN T1,PSOCOMM ENT | |
| 75 | N PSODATA ,PSODATE,P SODATE1,PS OFIELDS,PS OFILE,PSOI ENS,PSOLIN E | |
| 76 | N PSOREFI LL,PSOREFI LL1,PSOUSE R,PSOUSER1 | |
| 77 | ; | |
| 78 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)=" " | |
| 79 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)="ECM E Log:" | |
| 80 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)="# Date/Time Rx Ref Ini tiator Of Activity" | |
| 81 | S IEN=IEN +1,$P(^TMP ("PSOAL",$ J,IEN,0)," =",79)="=" | |
| 82 | ; | |
| 83 | ; The com ments from ACTIVITY LOG (#52.3 ) and REJE CT INFO (# 52.25) | |
| 84 | ; will be compiled in array P SOAR. This array wil l allow co mments | |
| 85 | ; from ea ch sub-fil e to be so rted in as cending or der by dat e. | |
| 86 | ; A count er (PSOCNT ) will be used to ac commodate multiple | |
| 87 | ; comment s with the exact sam e date/tim e. | |
| 88 | ; | |
| 89 | ; PSOAR a rray defin ition: | |
| 90 | ; | |
| 91 | ; PSOAR( PSODATE)=P SOCNT | |
| 92 | ; PSOAR( PSODATE,PS OCNT)=PSOD ATE^PSOUSE R1^PSOREFI LL1^PSOCOM MENT | |
| 93 | ; PSOAR( PSODATE,PS OCNT,PSOCN T1)=Additi onal Comme nts (if an y) | |
| 94 | ; | |
| 95 | ; PSODA TE ---- Da te/time of comment - internal format | |
| 96 | ; PSOCN T ----- Co unter of c omments, b y date | |
| 97 | ; PSOCN T1 ---- Co unter of a dditional comments ( if any) | |
| 98 | ; PSOUS ER1 --- Us er who ent ered comme nt - exter nal format | |
| 99 | ; PSORE FILL1 - Re fill numbe r - extern al format | |
| 100 | ; PSOCO MMENT - Co mment | |
| 101 | ; | |
| 102 | ; Kill PS OAR to ini tialize ar ray | |
| 103 | ; | |
| 104 | K PSOAR | |
| 105 | ; | |
| 106 | ; Loop th rough ACTI VITY LOG ( file #52.3 ) searchin g for ECME Entries. | |
| 107 | ; ECME En tries are defined as REASON="M ". | |
| 108 | ; | |
| 109 | ; ACTIVIT Y LOG Fiel ds: | |
| 110 | ; .01 = Activity L og (Date) | |
| 111 | ; .02 = Reason | |
| 112 | ; .03 = Initiator of Activit y (User) | |
| 113 | ; .04 = RX Referen ce (Refill #) | |
| 114 | ; .05 = Comment | |
| 115 | ; | |
| 116 | ; The abo ve fields will be st ored in ar ray PSODAT A via a ca ll to ^DIQ . | |
| 117 | ; | |
| 118 | S I=0 | |
| 119 | F S I=$O (^PSRX(DA, "A",I)) Q: 'I D | |
| 120 | . ; | |
| 121 | . S PSOCN T=0 | |
| 122 | . S PSOFI LE=52.3 | |
| 123 | . S PSOIE NS=I_","_D A_"," | |
| 124 | . S PSOFI ELDS=".01; .02;.03;.0 4;.05" | |
| 125 | . K PSODA TA | |
| 126 | . ; | |
| 127 | . D GETS^ DIQ(PSOFIL E,I_","_DA ,PSOFIELDS ,"IE","PSO DATA") | |
| 128 | . ; | |
| 129 | . ; If re ason is no t M (ECME) , do not i nclude com ment. | |
| 130 | . ; | |
| 131 | . I $G(PS ODATA(PSOF ILE,PSOIEN S,.02,"I") )'="M" Q | |
| 132 | . ; | |
| 133 | . S PSODA TE=$G(PSOD ATA(PSOFIL E,PSOIENS, .01,"I")) | |
| 134 | . S PSOUS ER1=$G(PSO DATA(PSOFI LE,PSOIENS ,.03,"E")) | |
| 135 | . S PSORE FILL1=$G(P SODATA(PSO FILE,PSOIE NS,.04,"E" )) | |
| 136 | . S PSOCO MMENT=$G(P SODATA(PSO FILE,PSOIE NS,.05,"I" )) | |
| 137 | . ; | |
| 138 | . S PSOCN T=$G(PSOAR (PSODATE)) +1 | |
| 139 | . S PSOAR (PSODATE)= PSOCNT | |
| 140 | . S PSOAR (PSODATE,P SOCNT)=$$F MTE^XLFDT( PSODATE,2) _U_PSOUSER 1_U_PSOREF ILL1_U_PSO COMMENT | |
| 141 | . ; | |
| 142 | . ; Node 2 of the A CTIVITY LO G contains any addit ional comm ents. | |
| 143 | . ; Loop through OT HER COMMEN TS sub-fil e (file #5 2.34) to a dd to PSOA R | |
| 144 | . ; for r eporting. | |
| 145 | . ; | |
| 146 | . I $D(^P SRX(DA,"A" ,I,2)) D | |
| 147 | . . S PSO CNT1=0 | |
| 148 | . . S II= 0 | |
| 149 | . . F S II=$O(^PSR X(DA,"A",I ,2,II)) Q: 'II D | |
| 150 | . . . S P SOCNT1=PSO CNT1+1 | |
| 151 | . . . S P SOAR(PSODA TE,PSOCNT, PSOCNT1)=$ $GET1^DIQ( 52.34,II_" ,"_I_","_D A,.01) | |
| 152 | ; | |
| 153 | ; Loop th rough REJE CT INFO Co mments (Fi le #52.255 1) searchi ng for | |
| 154 | ; User Cr eated entr ies. | |
| 155 | ; User Cr eated entr ies are de fined as U ser'="POST MASTER" | |
| 156 | ; | |
| 157 | ; REJECT INFO Comme nts Fields : | |
| 158 | ; .01 = Date/Time | |
| 159 | ; 1 = User | |
| 160 | ; 2 = Comments | |
| 161 | ; | |
| 162 | ; The abo ve fields will be st ored in ar ray PSODAT A via a ca ll to ^DIQ . | |
| 163 | ; | |
| 164 | S I=0 F S I=$O(^PS RX(DA,"REJ ",I)) Q:'I S PSODAT E=0 F S P SODATE=$O( ^PSRX(DA," REJ",I,"CO M","B",PSO DATE)) Q:' PSODATE D . S III=0 F S III= $O(^PSRX(D A,"REJ",I, "COM","B", PSODATE,II I)) Q:'III D . . S REC=$G(^P SRX(DA,"RE J",I,"COM" ,III,0)) . . S PSOUS ER=$P(REC, U,2),PSOUS ER1=$P($G( ^VA(200,PS OUSER,0)), U,1) . . S PSOCOMMEN T=$P(REC,U ,3) . . ; . . S PSOR EFILL=$$GE T1^DIQ(52. 25,I_","_D A,5) . . I PSOREFILL =0 S PSORE FILL1="ORI GINAL" . . E S PSOR EFILL1="RE FILL #"_PS OREFILL . . ; . . S PSOCNT=$G( PSOAR(PSOD ATE))+1 . . S PSOAR( PSODATE)=P SOCNT . . S PSOAR(PS ODATE,PSOC NT)=$$FMTE ^XLFDT(PSO DATE,2)_U_ PSOUSER1_U _PSOREFILL 1_U_PSOCOM MENT ; | |
| 165 | ; If PSOA R array co ntains no data, ther e is No EC ME Activit y to repor t. | |
| 166 | ; | |
| 167 | I '$D(PSO AR) S IEN= IEN+1,^TMP ("PSOAL",$ J,IEN,0)=" There's NO ECME Acti vity to re port" Q | |
| 168 | ; | |
| 169 | ; Loop th rough PSOA R array an d assign d ata to ^TM P array fo r reportin g. | |
| 170 | ; | |
| 171 | ; PSOLINE = ECME Lo g Entry li ne number. | |
| 172 | ; | |
| 173 | S PSODATE ="",PSOCNT ="",PSOLIN E="" | |
| 174 | F S PSOD ATE=$O(PSO AR(PSODATE )) Q:PSODA TE="" D | |
| 175 | . F S PS OCNT=$O(PS OAR(PSODAT E,PSOCNT)) Q:PSOCNT= "" D | |
| 176 | . . S PSO DATA=$G(PS OAR(PSODAT E,PSOCNT)) | |
| 177 | . . ; | |
| 178 | . . S IEN =IEN+1 | |
| 179 | . . S PSO LINE=PSOLI NE+1 | |
| 180 | . . S PSO DATE1=$P(P SODATA,U) | |
| 181 | . . S PSO USER=$P(PS ODATA,U,2) | |
| 182 | . . S PSO REFILL=$P( PSODATA,U, 3) | |
| 183 | . . S LIN E=PSOLINE | |
| 184 | . . S $E( LINE,5)=PS ODATE1 | |
| 185 | . . S $E( LINE,25)=P SOREFILL | |
| 186 | . . S $E( LINE,41)=P SOUSER | |
| 187 | . . S ^TM P("PSOAL", $J,IEN,0)= LINE | |
| 188 | . . ; | |
| 189 | . . ; D ^ DIWP forma ts comment s into ^UT ILITY($J," W") | |
| 190 | . . ; | |
| 191 | . . S PSO COMMENT=$P (PSODATA," ^",4) | |
| 192 | . . ; | |
| 193 | . . K ^UT ILITY($J," W") | |
| 194 | . . ; | |
| 195 | . . S X=" Comments: "_PSOCOMME NT | |
| 196 | . . S (DI WR,DIWL)=1 ,DIWF="C80 " | |
| 197 | . . D ^DI WP | |
| 198 | . . ; | |
| 199 | . . ; Add itional co mments (if any) | |
| 200 | . . ; | |
| 201 | . . S PSO CNT1="" | |
| 202 | . . F S PSOCNT1=$O (PSOAR(PSO DATE,PSOCN T,PSOCNT1) ) Q:PSOCNT 1="" D | |
| 203 | . . . S X =PSOAR(PSO DATE,PSOCN T,PSOCNT1) | |
| 204 | . . . S D IWF="C80I1 0" | |
| 205 | . . . D ^ DIWP | |
| 206 | . . ; | |
| 207 | . . ; Loo p through ^UTILITY($ J,"W"), ad ding comme nts to ^TM P | |
| 208 | . . ; | |
| 209 | . . F I=1 :1:^UTILIT Y($J,"W",1 ) D | |
| 210 | . . . S I EN=IEN+1 | |
| 211 | . . . S ^ TMP("PSOAL ",$J,IEN,0 )=$G(^UTIL ITY($J,"W" ,1,I,0)) | |
| 212 | ; | |
| 213 | D DISPREJ | |
| 214 | ; | |
| 215 | K ^UTILIT Y($J,"W"), DIWR,DIWF, DIWL | |
| 216 | Q | |
| 217 | ||
| 218 | ||
| 219 | ||
| 220 | ACT^PSOORA L1 and ACT ^PSORXVW1 will be up dated to i nclude the time stam p to the a ctivity lo g section of the VER View Pres cription. Currently only the date is gi ven. | |
| 221 | ||
| 222 | Subroutine Name | |
| 223 | ACT^PSOORA L1 | |
| 224 | Enhancemen t Category | |
| 225 | New | |
| 226 | Modify | |
| 227 | Delete | |
| 228 | No Change | |
| 229 | Story | |
| 230 | US170 | |
| 231 | Related Me nu Options or ListMa n Actions | |
| 232 | View Presc ription | |
| 233 | Current Lo gic | |
| 234 | ACT ;activ ity log | |
| 235 | N CNT | |
| 236 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)=" ", IEN=IEN+1, ^TMP("PSOA L",$J,IEN, 0)="Activi ty Log:" | |
| 237 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)="# Date Reason Rx Ref Initiat or Of Acti vity",IEN= IEN+1,$P(^ TMP("PSOAL ",$J,IEN,0 ),"=",79)= "=" | |
| 238 | I '$O(^PS RX(DA,"A", 0)) S IEN= IEN+1,^TMP ("PSOAL",$ J,IEN,0)=" There's NO Activity to report" Q | |
| 239 | S CNT=0 | |
| 240 | F N=0:0 S N=$O(^PSR X(DA,"A",N )) Q:'N S P1=^(N,0) ,DTT=P1\1 D DAT D | |
| 241 | .I $P(P1, "^",2)="M" Q | |
| 242 | .S IEN=IE N+1,CNT=CN T+1,^TMP(" PSOAL",$J, IEN,0)=CNT _" "_DAT _" ",$P (RN," ",15 )=" ",REA= $P(P1,"^", 2),REA=$F( "HUCELPRWS IVDABXGKN" ,REA)-1 | |
| 243 | .I REA D | |
| 244 | ..S STA=$ P("HOLD^UN HOLD^DISCO NTINUED^ED IT^RENEWED ^PARTIAL^R EINSTATE^R EPRINT^SUS PENSE^RETU RNED^INTER VENTION^DE LETED^DRUG INTERACTI ON^PROCESS ED^X-INTER FACE^PATIE NT INSTR.^ PKI/DEA^DI SP COMPLET ED^","^",R EA) | |
| 245 | ..S ^TMP( "PSOAL",$J ,IEN,0)=^T MP("PSOAL" ,$J,IEN,0) _STA_$E(RN ,$L(STA)+1 ,15) | |
| 246 | .E S $P( STA," ",15 )=" ",^TMP ("PSOAL",$ J,IEN,0)=^ TMP("PSOAL ",$J,IEN,0 )_STA | |
| 247 | .K STA,RN S $P(RN," ",15)=" " ,RF=+$P(P1 ,"^",4) | |
| 248 | .S RFT=$S (RF>0&(RF< 6):"REFILL "_RF,RF=6 :"PARTIAL" ,RF>6:"REF ILL "_(RF- 1),1:"ORIG INAL") | |
| 249 | .S ^TMP(" PSOAL",$J, IEN,0)=^TM P("PSOAL", $J,IEN,0)_ RFT_$E(RN, $L(RFT)+1, 15)_$S($D( ^VA(200,+$ P(P1,"^",3 ),0)):$P(^ (0),"^"),1 :$P(P1,"^" ,3)) | |
| 250 | .;S:$P(P1 ,"^",5)]"" IEN=IEN+1 ,^TMP("PSO AL",$J,IEN ,0)="Comme nts: "_$P( P1,"^",5) | |
| 251 | .I $P(P1, "^",5)]"" N PSOACBRK ,PSOACBRV D | |
| 252 | ..S PSOAC BRV=$P(P1, "^",5) | |
| 253 | ..;PSO*7* 240 Use fi leman for parsing | |
| 254 | ..K ^UTIL ITY($J,"W" ) S X="Com ments: "_P SOACBRV,(D IWR,DIWL)= 1,DIWF="C8 0" D ^DIWP F I=1:1:^ UTILITY($J ,"W",1) S IEN=IEN+1, ^TMP("PSOA L",$J,IEN, 0)=$G(^UTI LITY($J,"W ",1,I,0)) | |
| 255 | .I $P($G( ^PSRX(DA," A",N,1))," ^")]"" S I EN=IEN+1,$ P(^TMP("PS OAL",$J,IE N,0)," ",5 )=$P($G(^P SRX(DA,"A" ,N,1)),"^" ) I $P($G( ^PSRX(DA," A",N,1))," ^",2)]"" S ^TMP("PSO AL",$J,IEN ,0)=^TMP(" PSOAL",$J, IEN,0)_":" _$P($G(^PS RX(DA,"A", N,1)),"^", 2) | |
| 256 | .I $O(^PS RX(DA,"A", N,2,0)) F I=0:0 S I= $O(^PSRX(D A,"A",N,2, I)) Q:'I S MIG=^PSR X(DA,"A",N ,2,I,0) D | |
| 257 | ..S:MIG[" Mail Track ing Info.: " IEN=IEN +1,$P(^TMP ("PSOAL",$ J,IEN,0)," ",9)=" " | |
| 258 | ..F SG=1: 1:$L(MIG) S:$L(^TMP( "PSOAL",$J ,IEN,0)_" "_$P(MIG," ",SG))>80 IEN=IEN+1 ,$P(^TMP(" PSOAL",$J, IEN,0)," " ,9)=" " S: $P(MIG," " ,SG)'="" ^ TMP("PSOAL ",$J,IEN,0 )=$G(^TMP( "PSOAL",$J ,IEN,0))_" "_$P(MIG, " ",SG) | |
| 259 | K MIG,SG, I,^UTILITY ($J,"W"),D IWF,DIWL,D IWR | |
| 260 | Q | |
| 261 | ||
| 262 | Modified L ogic (Chan ges are hi ghlighted) | |
| 263 | ||
| 264 | ACT ;activ ity log | |
| 265 | N CNT | |
| 266 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)=" ", IEN=IEN+1, ^TMP("PSOA L",$J,IEN, 0)="Activi ty Log:" | |
| 267 | S IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)="# Date/Time Reason Rx Ref Initiato r Of Activ ity",IEN=I EN+1,$P(^T MP("PSOAL" ,$J,IEN,0) ,"=",79)=" =" | |
| 268 | I '$O(^PS RX(DA,"A", 0)) S IEN= IEN+1,^TMP ("PSOAL",$ J,IEN,0)=" There's NO Activity to report" Q | |
| 269 | S CNT=0 | |
| 270 | F N=0:0 S N=$O(^PSR X(DA,"A",N )) Q:'N S P1=^(N,0) ,DTT=P1\1 D DAT D | |
| 271 | .I $P(P1, "^",2)="M" Q | |
| 272 | .S DAT=$$ FMTE^XLFDT ($P(P1,"^" ),2)_" " | |
| 273 | .S IEN=IE N+1,CNT=CN T+1,^TMP(" PSOAL",$J, IEN,0)=CNT _" "_DAT _" ",$P (RN," ",15 )=" ",REA= $P(P1,"^", 2) | |
| 274 | .S REA=$F ("HUCELPRW SIVDABXGKN ",REA)-1 | |
| 275 | .I REA D | |
| 276 | ..S STA=$ P("HOLD^UN HOLD^DISCO NTINUED^ED IT^RENEWED ^PARTIAL^R EINSTATE^R EPRINT^SUS PENSE^RETU RNED^INTER VENTION^DE LETED^DRUG INTERACTI ON^PROCESS ED^X-INTER FACE^PATIE NT INSTR.^ PKI/DEA^DI SP COMPLET ED^","^",R EA) | |
| 277 | ..S ^TMP( "PSOAL",$J ,IEN,0)=^T MP("PSOAL" ,$J,IEN,0) _STA_$E(RN ,$L(STA)+1 ,15) | |
| 278 | .E S $P( STA," ",15 )=" ",^TMP ("PSOAL",$ J,IEN,0)=^ TMP("PSOAL ",$J,IEN,0 )_STA | |
| 279 | .K STA,RN S $P(RN," ",15)=" " ,RF=+$P(P1 ,"^",4) | |
| 280 | .S RFT=$S (RF>0&(RF< 6):"REFILL "_RF,RF=6 :"PARTIAL" ,RF>6:"REF ILL "_(RF- 1),1:"ORIG INAL") | |
| 281 | .S ^TMP(" PSOAL",$J, IEN,0)=^TM P("PSOAL", $J,IEN,0)_ RFT_$E(RN, $L(RFT)+1, 15)_$E($S( $D(^VA(200 ,+$P(P1,"^ ",3),0)):$ P(^(0),"^" ),1:$P(P1, "^",3)),1, 24) | |
| 282 | .;S:$P(P1 ,"^",5)]"" IEN=IEN+1 ,^TMP("PSO AL",$J,IEN ,0)="Comme nts: "_$P( P1,"^",5) | |
| 283 | .I $P(P1, "^",5)]"" N PSOACBRK ,PSOACBRV D | |
| 284 | ..S PSOAC BRV=$P(P1, "^",5) | |
| 285 | ..;PSO*7* 240 Use fi leman for parsing | |
| 286 | ..K ^UTIL ITY($J,"W" ) S X="Com ments: "_P SOACBRV,(D IWR,DIWL)= 1,DIWF="C8 0" D ^DIWP F I=1:1:^ UTILITY($J ,"W",1) S IEN=IEN+1, ^TMP("PSOA L",$J,IEN, 0)=$G(^UTI LITY($J,"W ",1,I,0)) | |
| 287 | .I $P($G( ^PSRX(DA," A",N,1))," ^")]"" S I EN=IEN+1,$ P(^TMP("PS OAL",$J,IE N,0)," ",5 )=$P($G(^P SRX(DA,"A" ,N,1)),"^" ) I $P($G( ^PSRX(DA," A",N,1))," ^",2)]"" S ^TMP("PSO AL",$J,IEN ,0)=^TMP(" PSOAL",$J, IEN,0)_":" _$P($G(^PS RX(DA,"A", N,1)),"^", 2) | |
| 288 | .I $O(^PS RX(DA,"A", N,2,0)) F I=0:0 S I= $O(^PSRX(D A,"A",N,2, I)) Q:'I S MIG=^PSR X(DA,"A",N ,2,I,0) D | |
| 289 | ..S:MIG[" Mail Track ing Info.: " IEN=IEN +1,$P(^TMP ("PSOAL",$ J,IEN,0)," ",9)=" " | |
| 290 | ..F SG=1: 1:$L(MIG) S:$L(^TMP( "PSOAL",$J ,IEN,0)_" "_$P(MIG," ",SG))>80 IEN=IEN+1 ,$P(^TMP(" PSOAL",$J, IEN,0)," " ,9)=" " S: $P(MIG," " ,SG)'="" ^ TMP("PSOAL ",$J,IEN,0 )=$G(^TMP( "PSOAL",$J ,IEN,0))_" "_$P(MIG, " ",SG) | |
| 291 | K MIG,SG, I,^UTILITY ($J,"W"),D IWF,DIWL,D IWR | |
| 292 | Q | |
| 293 | ||
| 294 | ||
| 295 | Subroutine Name | |
| 296 | ACT^PSORXV W1 | |
| 297 | Enhancemen t Category | |
| 298 | New | |
| 299 | Modify | |
| 300 | Delete | |
| 301 | No Change | |
| 302 | Story | |
| 303 | US170 | |
| 304 | Related Me nu Options or ListMa n Actions | |
| 305 | View Presc ription | |
| 306 | Current Lo gic | |
| 307 | ||
| 308 | ACT ;activ ity log N CNT S IEN= IEN+1,^TMP ("PSOAL",$ J,IEN,0)=" ",IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)="Act ivity Log: " S IEN=IE N+1,^TMP(" PSOAL",$J, IEN,0)="# Date Reason R x Ref Initia tor Of Act ivity",IEN =IEN+1,$P( ^TMP("PSOA L",$J,IEN, 0),"=",79) ="=" I '$O (^PSRX(DA, "A",0)) S IEN=IEN+1, ^TMP("PSOA L",$J,IEN, 0)="There' s NO Activ ity to rep ort" Q S C NT=0 F N=0 :0 S N=$O( ^PSRX(DA," A",N)) Q:' N S P1=^( N,0),DTT=P 1\1 D DAT D .I $P(P1 ,"^",2)="M " Q .S IEN =IEN+1,CNT =CNT+1,^TM P("PSOAL", $J,IEN,0)= CNT_" "_DA T_" ",$P(R N," ",15)= " ",REA=$P (P1,"^",2) .S REA=$F ("HUCELPRW SIVDABXGKN M",REA)-1 .I REA D . .S STA=$P( "HOLD^UNHO LD^DISCONT INUED^EDIT ^RENEWED^P ARTIAL^REI NSTATE^REP RINT^SUSPE NSE^RETURN ED^INTERVE NTION^DELE TED^DRUG I NTERACTION ^PROCESSED ^X-INTERFA CE^PATIENT INSTR.^PK I/DEA^DISP COMPLETED ^ECME^","^ ",REA) ..S ^TMP("PSO AL",$J,IEN ,0)=^TMP(" PSOAL",$J, IEN,0)_STA _$E(RN,$L( STA)+1,15) .E S $P( STA," ",15 )=" ",^TMP ("PSOAL",$ J,IEN,0)=^ TMP("PSOAL ",$J,IEN,0 )_STA .K S TA,RN S $P (RN," ",15 )=" ",RF=+ $P(P1,"^", 4) .S RFT= $S(RF>0&(R F<6):"REFI LL "_RF,RF =6:"PARTIA L",RF>6:"R EFILL "_(R F-1),1:"OR IGINAL") . K DIC,X,Y S DIC="^VA (200,",DIC (0)="N,Z", X=$P(P1,"^ ",3) D ^DI C .S ^TMP( "PSOAL",$J ,IEN,0)=^T MP("PSOAL" ,$J,IEN,0) _RFT_$E(RN ,$L(RFT)+1 ,15)_$S(+Y :$P(Y,"^", 2),1:$P(P1 ,"^",3)) . ;S:$P(P1," ^",5)]"" I EN=IEN+1,^ TMP("PSOAL ",$J,IEN,0 )="Comment s: "_$P(P1 ,"^",5) .I $P(P1,"^" ,5)]"" N P SOACBRK,PS OACBRV D . .S PSOACBR V=$P(P1,"^ ",5) ..;PS O*7*240 Us e fileman to format ..K ^UTILI TY($J,"W") S X="Comm ents: "_PS OACBRV,(DI WR,DIWL)=1 ,DIWF="C80 " D ^DIWP F I=1:1:^U TILITY($J, "W",1) S I EN=IEN+1,^ TMP("PSOAL ",$J,IEN,0 )=$G(^UTIL ITY($J,"W" ,1,I,0)) . I $G(^PSRX (DA,"A",N, 1))]"" S I EN=IEN+1,$ P(^TMP("PS OAL",$J,IE N,0)," ",5 )=$P(^PSRX (DA,"A",N, 1),"^") I $P(^PSRX(D A,"A",N,1) ,"^",2)]"" S ^TMP("P SOAL",$J,I EN,0)=^TMP ("PSOAL",$ J,IEN,0)_" :"_$P(^PSR X(DA,"A",N ,1),"^",2) .I $O(^PS RX(DA,"A", N,2,0)) F I=0:0 S I= $O(^PSRX(R XN,"A",N,2 ,I)) Q:'I S MIG=^PS RX(RXN,"A" ,N,2,I,0) D ..S:MIG[ "Mail Trac king Info. : " IEN=IE N+1,$P(^TM P("PSOAL", $J,IEN,0), " ",9)=" " ..F SG=1: 1:$L(MIG) S:$L(^TMP( "PSOAL",$J ,IEN,0)_" "_$P(MIG," ",SG))>80 IEN=IEN+1 ,$P(^TMP(" PSOAL",$J, IEN,0)," " ,9)=" " S: $P(MIG," " ,SG)'="" ^ TMP("PSOAL ",$J,IEN,0 )=$G(^TMP( "PSOAL",$J ,IEN,0))_" "_$P(MIG, " ",SG) K MIG,SG,I,^ UTILITY($J ,"W"),DIWF ,DIWL,DIWR Q | |
| 309 | ||
| 310 | Modified L ogic (Chan ges are hi ghlighted) | |
| 311 | ||
| 312 | ACT ;activ ity log N CNT S IEN= IEN+1,^TMP ("PSOAL",$ J,IEN,0)=" ",IEN=IEN +1,^TMP("P SOAL",$J,I EN,0)="Act ivity Log: " S IEN=IE N+1,^TMP(" PSOAL",$J, IEN,0)="# Date/Tim e Reason Rx Ref Initiat or Of Acti vity",IEN= IEN+1,$P(^ TMP("PSOAL ",$J,IEN,0 ),"=",79)= "=" I '$O( ^PSRX(DA," A",0)) S I EN=IEN+1,^ TMP("PSOAL ",$J,IEN,0 )="There's NO Activi ty to repo rt" Q S CN T=0 F N=0: 0 S N=$O(^ PSRX(DA,"A ",N)) Q:'N S P1=^(N ,0),DTT=P1 \1 D DAT D .I $P(P1, "^",2)="M" Q | |
| 313 | .S DAT=$$ FMTE^XLFDT ($P(P1,"^" ),2)_" " .S IEN=IE N+1,CNT=CN T+1,^TMP(" PSOAL",$J, IEN,0)=CNT _" "_$E(DA T,1,21)_" ",$P(RN," ",15)=" ", REA=$P(P1, "^",2) .S REA=$F("HU CELPRWSIVD ABXGKNM",R EA)-1 .I R EA D ..S S TA=$P("HOL D^UNHOLD^D ISCONTINUE D^EDIT^REN EWED^PARTI AL^REINSTA TE^REPRINT ^SUSPENSE^ RETURNED^I NTERVENTIO N^DELETED^ DRUG INTER ACTION^PRO CESSED^X-I NTERFACE^P ATIENT INS TR.^PKI/DE A^DISP COM PLETED^ECM E^","^",RE A) ..S ^TM P("PSOAL", $J,IEN,0)= ^TMP("PSOA L",$J,IEN, 0)_STA_$E( RN,$L(STA) +1,15) .E S $P(STA, " ",15)=" ",^TMP("PS OAL",$J,IE N,0)=^TMP( "PSOAL",$J ,IEN,0)_ST A .K STA,R N S $P(RN, " ",15)=" ",RF=+$P(P 1,"^",4) . S RFT=$S(R F>0&(RF<6) :"REFILL " _RF,RF=6:" PARTIAL",R F>6:"REFIL L "_(RF-1) ,1:"ORIGIN AL") .K DI C,X,Y S DI C="^VA(200 ,",DIC(0)= "N,Z",X=$P (P1,"^",3) D ^DIC .S ^TMP("PSO AL",$J,IEN ,0)=^TMP(" PSOAL",$J, IEN,0)_RFT _$E(RN,$L( RFT)+1,15) _$E($S(+Y: $P(Y,"^",2 ),1:$P(P1, "^",3)),1, 24) .;S:$P (P1,"^",5) ]"" IEN=IE N+1,^TMP(" PSOAL",$J, IEN,0)="Co mments: "_ $P(P1,"^", 5) .I $P(P 1,"^",5)]" " N PSOACB RK,PSOACBR V D ..S PS OACBRV=$P( P1,"^",5) ..;PSO*7*2 40 Use fil eman to fo rmat ..K ^ UTILITY($J ,"W") S X= "Comments: "_PSOACBR V,(DIWR,DI WL)=1,DIWF ="C80" D ^ DIWP F I=1 :1:^UTILIT Y($J,"W",1 ) S IEN=IE N+1,^TMP(" PSOAL",$J, IEN,0)=$G( ^UTILITY($ J,"W",1,I, 0)) .I $G( ^PSRX(DA," A",N,1))]" " S IEN=IE N+1,$P(^TM P("PSOAL", $J,IEN,0), " ",5)=$P( ^PSRX(DA," A",N,1),"^ ") I $P(^P SRX(DA,"A" ,N,1),"^", 2)]"" S ^T MP("PSOAL" ,$J,IEN,0) =^TMP("PSO AL",$J,IEN ,0)_":"_$P (^PSRX(DA, "A",N,1)," ^",2) .I $ O(^PSRX(DA ,"A",N,2,0 )) F I=0:0 S I=$O(^P SRX(RXN,"A ",N,2,I)) Q:'I S MI G=^PSRX(RX N,"A",N,2, I,0) D ..S :MIG["Mail Tracking Info.: " I EN=IEN+1,$ P(^TMP("PS OAL",$J,IE N,0)," ",9 )=" " ..F SG=1:1:$L( MIG) S:$L( ^TMP("PSOA L",$J,IEN, 0)_" "_$P( MIG," ",SG ))>80 IEN= IEN+1,$P(^ TMP("PSOAL ",$J,IEN,0 )," ",9)=" " S:$P(MI G," ",SG)' ="" ^TMP(" PSOAL",$J, IEN,0)=$G( ^TMP("PSOA L",$J,IEN, 0))_" "_$P (MIG," ",S G) K MIG,S G,I,^UTILI TY($J,"W") ,DIWF,DIWL ,DIWR Q | |
| 314 | ||
| 315 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.