iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fixes for CCRMEDS2

This commit is contained in:
sam 2008-10-04 21:52:28 +00:00
parent 69a66c2b04
commit 31e35c2eb9
2 changed files with 195 additions and 192 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
p/CCRMEDS2.m
View File

@ -113,6 +113,7 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. ; Sig data is not in any API. We obtain it using the IEN from
. ; the PEN API to file 52.41. It's in field 3, which is a multiple.
. ; I will be using FM call GETS^DIQ(FILE,IENS,FIELD,FLAGS,TARGET_ROOT)
. K FMSIG ; it's passed via the symbol table, so remove any leftovers from last call
. D GETS^DIQ(52.41,RXIEN,"3*",,"FMSIG")
. N FMSIGNUM S FMSIGNUM=0 ; Sigline number in fileman.
. ; FMSIGNUM gets outputted as "IEN,RXIEN,".
@ -123,6 +124,8 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. F S FMSIGNUM=$O(FMSIG(52.413,FMSIGNUM)) Q:FMSIGNUM="" D
. . N DIRNUM S DIRNUM=$P(FMSIGNUM,",")
. . N SIGDATA M SIGDATA=FMSIG(52.413,FMSIGNUM)
. . ; If this is an order for a refill; it's not really a new order; move on to next
. . I SIGDATA(2)="RF" QUIT
. . S @MAP@("M",DIRNUM,"MEDDIRECTIONDESCRIPTIONTEXT")="" ; This is reserved for systems not able to generate the sig in components.
. . S @MAP@("M",DIRNUM,"MEDDOSEINDICATOR")="1" ; means that we are specifying it. See E2369-05.
. . S @MAP@("M",DIRNUM,"MEDDELIVERYMETHOD")=SIGDATA(13)