Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSOERSE4

PSOERSE4.m

Go to the documentation of this file.
  1. PSOERSE4 ;ALB/RM - PSO ERX UTILITY ROUTINE ;Jan 23, 2023@12:43:34
  1. ;;7.0;OUTPATIENT PHARMACY;**746**;DEC 16, 1997;Build 106
  1. ;
  1. ;
  1. Q ;No Direct Call
  1. ;
  1. BUILDLST(TMPGBL,ERXIEN,PNCOMM) ;
  1. ;Input : TMPGBL - The temporary global location to store the eRx data
  1. ; Example: ^TMP("TIUP",$J)
  1. ; ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
  1. ; PNCOMM - Patient Progress Note Comment.
  1. ; Example. This is a sample eRx patient Progress Note.
  1. ;Output: Create/Build the eRx temporary global
  1. Q:'$G(ERXIEN)
  1. N PATIEN,PHARMIEN,PRVIEN,PHDAT,PATDAT,SUPDAT,PRVDAT,LINE,PRVLNM,PRVMI,PRVFN,EPAT,EPATDOB,VPATIEN,HARY,HL,PROHIBIT,ERXWRDT
  1. N VPATNM,VPATDOB,EPRVIEN,EPRVNM,EPRVNPI,EPRVDEA,VAPRVIEN,VAPRVNM,VAPRVNPI,VAPRVDEA,SUPIEN,ERXDRUG,ERXQTY,ERXFLS,CSCOMM,MEDIEN
  1. N ERXDS,ERXDT,VADRGIEN,VADRG,LINETXT,ERXCOMM,ERXRFLS,PATIENS,VAHREA,VAQTY,VAREF,VASIG,PATDAT,CURSTATE,CURSTATI,WDATE,RRNRXIEN
  1. N LHFOUND,LHMATCH,LHSTATI,VAPDEAEX,ERXCOMM,COMFRST,COMARY,SIGDATA,SIGLOOP,SFIRSPROT,SGLOOP,SIGARY,VADAYS,NRXIEN,ERXPNC,ERXPNARY,PNLOOP
  1. N SLOOP,VASIG,VASARY,FSSIG,VAHSTA,EDIRECT,VAHPER,PAMANVAL,DRMANVAL,PRMANVAL,VPATINST,VAPIARY,VLOOP,FSVPIN,S2017,NEWRXIEN
  1. N DRGARY,DLP,MTYPE,MTYPEE,ERXSTAT,STATIEN,PDIAGTXT,SDIAGTXT,RELIEN,RELMTYPE,ERRIEN,LERXSTAT,LOPSTAT,OPIEN,ERXDSUB,COM,EXSTATUS,R2017,REQIEN
  1. N SFIRST,PATPT,EPRVPT,CIEN,CHGMESRI,CHGMESRQ,NO311,RESPVAL,ERRFLG,PSNF,ERXPNAME,ERXRFNUM,LINE,HTWT,DDASH
  1. ;
  1. K @TMPGBL ;This variable needs to be new'ed in the calling routine
  1. S LINE=0 ;LINE here serves as the counter
  1. S ERXPNAME=$$GET1^DIQ(52.49,ERXIEN,.04,"E")
  1. S ERXRFNUM=$$GET1^DIQ(52.49,ERXIEN,.01,"E")
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Patient: "_ERXPNAME
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Reference #: "_ERXRFNUM
  1. S HTWT=$$BHW^PSOERXIU(ERXIEN)
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)=HTWT
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)=""
  1. ; set the standard field
  1. S S2017=$$GET1^DIQ(52.49,ERXIEN,312.1,"I")
  1. S MTYPE=$$GET1^DIQ(52.49,ERXIEN,.08,"I")
  1. S MTYPEE=$$GET1^DIQ(52.49,ERXIEN,.08,"E")
  1. S STATIEN=$$GET1^DIQ(52.49,ERXIEN,1,"I")
  1. S ERXSTAT=$$GET1^DIQ(52.49,ERXIEN,1)_" - "_$$GET1^DIQ(52.45,$$GET1^DIQ(52.49,ERXIEN,1,"I"),.02)
  1. I MTYPE'="IE" S ERRFLG=0
  1. S PATIEN=$$GET1^DIQ(52.49,ERXIEN,.04,"I") I 'PATIEN S PATIEN=$$GETPAT^PSOERXU5(ERXIEN)
  1. S PATIENS=PATIEN_","
  1. D GETS^DIQ(52.46,PATIENS,"**","IE","PATDAT")
  1. I 'ERRFLG D
  1. . S EPAT=$G(PATDAT(52.46,PATIENS,.01,"E"))
  1. . S EPATDOB=$G(PATDAT(52.46,PATIENS,.08,"I")),EPATDOB=$$FMTE^XLFDT(EPATDOB,"2D")
  1. I ERRFLG D
  1. . S (EPAT,EPATDOB)=""
  1. S VPATIEN=$$GET1^DIQ(52.49,ERXIEN,.05,"I")
  1. S VPATNM=$S(VPATIEN&'ERRFLG:$$GET1^DIQ(2,VPATIEN,.01,"E"),1:"NOT LINKED")
  1. S VPATDOB=$S(VPATIEN&'ERRFLG:$$GET1^DIQ(2,VPATIEN,.03,"I"),1:"N/A")
  1. I VPATDOB S VPATDOB=$$FMTE^XLFDT(VPATDOB,"2D")
  1. S PHARMIEN=$$GET1^DIQ(52.49,ERXIEN,2.5,"I")
  1. D GETS^DIQ(52.47,PHARMIEN,"**","E","PHDAT")
  1. S EPRVIEN=$$GET1^DIQ(52.49,ERXIEN,2.1,"I") I 'EPRVIEN S EPRVIEN=$$GETPROV^PSOERXU5(ERXIEN)
  1. S EPRVNM=$$GET1^DIQ(52.48,EPRVIEN,.01,"E")
  1. ; erx provider primary phone 2017071
  1. I S2017 D
  1. . S EPRVPT=$$COMMVAL^PSOERXU5(EPRVIEN,52.48,11,"PT",1)
  1. I 'S2017 D
  1. . N IENS,TYPE,EXT
  1. . S EPRVPT="",CIEN=$O(^PS(52.48,EPRVIEN,3,"C","TE",0))
  1. . I CIEN D
  1. . . S IENS=CIEN_","_EPRVIEN_","
  1. . . S EPRVPT=$$GET1^DIQ(52.483,IENS,.01,"I")
  1. . I 'CIEN D
  1. . . S CIEN=0
  1. . . F S CIEN=$O(^PS(52.48,EPRVIEN,3,CIEN)) Q:CIEN'?1.N D Q:EPRVPT]""
  1. . . . S IENS=CIEN_","_EPRVIEN_","
  1. . . . S EPRVPT=$$GET1^DIQ(52.483,IENS,.01,"I")
  1. . . . S TYPE=$$GET1^DIQ(52.483,IENS,.02,"I")
  1. . . . S:TYPE="EM" EPRVPT=""
  1. . I EPRVPT]"" D
  1. . . S EXT=$$GET1^DIQ(52.483,IENS,.03,"I")
  1. . . S:EXT]"" EPRVPT=EPRVPT_"X"_EXT
  1. I 'S2017 S EPRVNPI=$$GET1^DIQ(52.48,EPRVIEN,1.5,"E")
  1. I S2017 S EPRVNPI=$$GET1^DIQ(52.48,EPRVIEN,15.1,"E")
  1. S EPRVDEA=$$GET1^DIQ(52.48,EPRVIEN,1.6,"E")
  1. S VAPRVIEN=$$GET1^DIQ(52.49,ERXIEN,2.3,"I")
  1. S ERXWRDT=$$GET1^DIQ(52.49,ERXIEN,5.9,"I")
  1. S VAPRVNM=$S(VAPRVIEN:$$GET1^DIQ(200,VAPRVIEN,.01,"E"),1:"NOT LINKED")
  1. S VAPRVNPI=$S(VAPRVIEN:$$GET1^DIQ(200,VAPRVIEN,41.99,"E"),1:"N/A")
  1. S VAPRVDEA=$S(VAPRVIEN:$$DEA^XUSER(0,VAPRVIEN,ERXWRDT),1:"N/A")
  1. D GETS^DIQ(52.48,EPRVIEN,"**","E","PRVDAT")
  1. S SUPIEN=$$GET1^DIQ(52.49,ERXIEN,2.6,"I")
  1. D GETS^DIQ(52.48,SUPIEN,"**","E","SUPDAT")
  1. S PAMANVAL=$$GET1^DIQ(52.49,ERXIEN,1.7,"I")
  1. S PRMANVAL=$$GET1^DIQ(52.49,ERXIEN,1.3,"I")
  1. S DRMANVAL=$$GET1^DIQ(52.49,ERXIEN,1.5,"I")
  1. S WDATE=$$GET1^DIQ(52.49,ERXIEN,5.9,"E")
  1. S CHGMESRQ=$$GET1^DIQ(52.49,ERXIEN,315.1,"I")
  1. S CHGMESRI=$$GET1^DIQ(52.45,CHGMESRQ,.01,"I")
  1. S RESPVAL=$$GET1^DIQ(52.49,ERXIEN,52.1,"E")
  1. S:'ERRFLG PATPT=$$GETPTPH^PSOERXU7(PATIEN,S2017,"PT,HP")
  1. ; only set the hold reason if the eRx has a hold status
  1. S CURSTATE=$$GET1^DIQ(52.49,ERXIEN,1,"E")
  1. S (VAHSTA,VAHREA)=""
  1. I S2017,MTYPE'="RE" D
  1. . S MEDIEN=$O(^PS(52.49,ERXIEN,311,"C","P",0))
  1. . S EDIRECT=$$GET1^DIQ(52.49,MEDIEN_","_ERXIEN_",",8,"E")
  1. . I $G(MEDIEN) S ERXPNC=$$GET1^DIQ(52.49311,MEDIEN_","_ERXIEN_",",5) ;retrieved provider notes/comments
  1. I S2017,MTYPE="RE" D
  1. . S MEDIEN=$O(^PS(52.49,ERXIEN,311,"C","MR",0))
  1. I 'S2017 D
  1. . S EDIRECT=$$GET1^DIQ(52.49,ERXIEN,7,"E")
  1. I $E(CURSTATE,1)="H" D
  1. . S CURSTATI=$$GET1^DIQ(52.49,ERXIEN,1,"I")
  1. . S LHMATCH=999999,LHFOUND=0 F S LHMATCH=$O(^PS(52.49,ERXIEN,19,LHMATCH),-1) Q:'LHMATCH!(LHFOUND) D
  1. . . S LHSTATI=$$GET1^DIQ(52.4919,LHMATCH_","_ERXIEN_",",.02,"I") I LHSTATI=CURSTATI D S LHFOUND=LHMATCH Q
  1. . . . S VAHREA=$$GET1^DIQ(52.4919,LHMATCH_","_ERXIEN_",",1)
  1. . . . S VAHSTA=$$GET1^DIQ(52.45,LHSTATI,.01,"E")_" - "_$$GET1^DIQ(52.45,LHSTATI,.02,"E")
  1. . . . S VAHPER=$$GET1^DIQ(52.4919,LHMATCH_","_ERXIEN_",",.03,"E")
  1. I (",RE,CN,"[(","_MTYPE_","))!((MTYPE="CX")&$$CHGMTYPE^PSOERX1D(ERXIEN,MTYPE,RESPVAL,CHGMESRI)) S MTYPEE=$G(MTYPEE)_" - "_$$GET1^DIQ(52.49,ERXIEN,52.1,"E")
  1. S LINETXT=""
  1. I $$GET1^DIQ(52.49,ERXIEN,95.1,"I") S $E(MTYPEE,63)="EPCS DEA VALIDATED"
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)=MTYPEE
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Status: "_$S($E(CURSTATE,1)="H":VAHSTA,1:ERXSTAT)
  1. I ",CX,CR,"[(","_MTYPE_","),$$QTSUMDT1^PSOERSE5(TMPGBL,ERXIEN,MTYPE,CHGMESRI,CHGMESRQ,RESPVAL,.LINE) D Q
  1. . I ",CR,"[(","_MTYPE_",") D ADDPNOTE^PSOERX1H(.LINE,$G(PNCOMM))
  1. ;
  1. I $G(CSCOMM)]"" S LINE=LINE+1 S @TMPGBL@(LINE,0)="Current Status Details: "_CSCOMM
  1. I $D(LERXSTAT) S LINE=LINE+1 S @TMPGBL@(LINE,0)="Last New Rx status: "_LERXSTAT
  1. I $D(LOPSTAT) S LINE=LINE+1 S @TMPGBL@(LINE,0)="Outpatient Prescription status: "_LOPSTAT
  1. I @TMPGBL@(LINE,0)'="" S LINE=LINE+1 S @TMPGBL@(LINE,0)=""
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)="**************************MEDICATION PRESCRIBED******************************"
  1. I 'ERRFLG,$L($G(PATPT)) S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Patient Primary Telephone: "_PATPT
  1. S LINE=LINE+1
  1. D ADDITEM^PSOERX1A(.LINETXT,"eRx Patient: ",EPAT,1,52)
  1. D ADDITEM^PSOERX1A(.LINETXT,"DOB: ",EPATDOB,57,20)
  1. S @TMPGBL@(LINE,0)=LINETXT S LINETXT=""
  1. S LINE=LINE+1
  1. I $L($G(EPRVPT)) S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Provider Primary Telephone: "_EPRVPT
  1. S LINE=LINE+1
  1. D ADDITEM^PSOERX1A(.LINETXT,"eRx Provider: ",EPRVNM,1,52)
  1. S @TMPGBL@(LINE,0)=LINETXT S LINETXT=""
  1. D ADDITEM^PSOERX1A(.LINETXT,"DEA#: ",EPRVDEA,30,20)
  1. D ADDITEM^PSOERX1A(.LINETXT,"NPI: ",EPRVNPI,57,20)
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)=LINETXT S LINETXT=""
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)=""
  1. S ERXDRUG=$$GET1^DIQ(52.49,ERXIEN,3.1,"E") I '$L(ERXDRUG) S ERXDRUG=$$GETDRUG^PSOERXU5(ERXIEN)
  1. S ERXQTY=$$GET1^DIQ(52.49,ERXIEN,5.1,"E")
  1. I $G(S2017) S ERXRFLS=$$GET1^DIQ(52.49,ERXIEN,5.6,"E")
  1. ;If the message type is 'CX' for RXCHANGERESPONSE, display the Prescriber Drug Use Evaluation.
  1. I MTYPE="CX" D DSPLYDUE^PSOERSE3(ERXIEN,.LINE,1,TMPGBL)
  1. ;setting 10.6 refill value
  1. I '$G(S2017) D
  1. . S ERXRFLS=$$GET1^DIQ(52.49,ERXIEN,5.6,"E")
  1. . I ERXRFLS="" S ERXRFLS=$$GET1^DIQ(52.49,ERXIEN,5.7,"I")
  1. S ERXDS=$$GET1^DIQ(52.49,ERXIEN,5.5,"E")
  1. S ERXDT=$$GET1^DIQ(52.49,ERXIEN,.03,"E")
  1. I S2017 D
  1. . S ERXDT=$S(MEDIEN:$$EFFDATE^PSOERXU5(ERXIEN,MEDIEN),1:"")
  1. S VADRGIEN=$$GET1^DIQ(52.49,ERXIEN,3.2,"I")
  1. S VADRG=$$GET1^DIQ(52.49,ERXIEN,3.2,"E")
  1. S VAREF=$$GET1^DIQ(52.49,ERXIEN,20.5,"E")
  1. S VAQTY=$$GET1^DIQ(52.49,ERXIEN,20.1,"E")
  1. S VADAYS=$$GET1^DIQ(52.49,ERXIEN,20.2,"E")
  1. I VADRG']"" S VADRG="NOT LINKED"
  1. D TXT2ARY^PSOERXD1(.DRGARY,ERXDRUG,,70)
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Drug: "_$G(DRGARY(1))_" "_$P($$ERXDRSCH^PSOERXUT(ERXIEN),"^",2)
  1. S DLP=1
  1. F S DLP=$O(DRGARY(DLP)) Q:'DLP D
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)=" "_$G(DRGARY(DLP))
  1. S LINE=LINE+1
  1. D ADDITEM^PSOERX1A(.LINETXT,"eRx Qty: ",ERXQTY,1,17)
  1. D ADDITEM^PSOERX1A(.LINETXT,"eRx Refills: ",ERXRFLS,19,16)
  1. D ADDITEM^PSOERX1A(.LINETXT,"eRx Days Supply: ",ERXDS,37,20)
  1. I 'S2017 D ADDITEM^PSOERX1A(.LINETXT,"eRx Date: ",$P(ERXDT,"@"),58,22)
  1. S @TMPGBL@(LINE,0)=LINETXT S LINETXT=""
  1. I S2017 D
  1. . S LINE=LINE+1
  1. . D ADDITEM^PSOERX1A(.LINETXT,"eRx Written Date: ",$P(WDATE,"@"),1,35)
  1. . D ADDITEM^PSOERX1A(.LINETXT,"eRx Issue Date: ",ERXDT,40,70)
  1. . S @TMPGBL@(LINE,0)=LINETXT S LINETXT=""
  1. . S LINE=LINE+1
  1. . I MTYPE="N"!((MTYPE="CX")&$$PROHIBIT^PSOERX1D(RESPVAL,CHGMESRI)) D
  1. . . S PROHIBIT=$$GET1^DIQ(52.49,ERXIEN,301.3,"I")
  1. . . S PROHIBIT=$S(PROHIBIT=1:"Yes",1:"No")
  1. . . S @TMPGBL@(LINE,0)="Prohibit Renewals: "_PROHIBIT
  1. D TXT2ARY^PSOERXD1(.SIGARY,$G(EDIRECT),,70)
  1. S SFIRST=$O(SIGARY(0))
  1. I 'S2017 D
  1. . S SGLOOP=0 F S SGLOOP=$O(SIGARY(SGLOOP)) Q:'SGLOOP D
  1. . . S LINE=LINE+1 S @TMPGBL@(LINE,0)=$S(SGLOOP=SFIRST:"eRx Sig: ",1:" ")_$G(SIGARY(SGLOOP))
  1. I S2017,$G(MEDIEN) D
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Sig: "
  1. . S SGLOOP=0 F S SGLOOP=$O(^PS(52.49,ERXIEN,311,MEDIEN,8,SGLOOP)) Q:'SGLOOP D
  1. . . I SGLOOP=1 S @TMPGBL@(LINE,0)=@TMPGBL@(LINE,0)_$G(^PS(52.49,ERXIEN,311,MEDIEN,8,SGLOOP,0)) Q
  1. . . S LINE=LINE+1 S @TMPGBL@(LINE,0)=$G(^PS(52.49,ERXIEN,311,MEDIEN,8,SGLOOP,0))
  1. . K ERXPNARY D TXT2ARY^PSOERXD1(.ERXPNARY,$G(ERXPNC),,80)
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)="eRx Provider Notes/Comments:"
  1. . I $D(ERXPNARY) D
  1. . . S PNLOOP=0 F S PNLOOP=$O(ERXPNARY(PNLOOP)) Q:'PNLOOP D
  1. . . . S LINE=LINE+1 S @TMPGBL@(LINE,0)=$G(ERXPNARY(PNLOOP))
  1. I (",CX,CR,"[(","_MTYPE_",")),$$QTSUMDT2^PSOERSE5(TMPGBL,ERXIEN,MTYPE,CHGMESRI,RESPVAL,.LINE) D Q
  1. . I ",CR,"[(","_MTYPE_",") D ADDPNOTE^PSOERX1H(.LINE,$G(PNCOMM))
  1. ;
  1. DISPRX ;
  1. I "RR,CA,CN,IE"'[MTYPE!(MTYPE="N") D
  1. . I MTYPE="RE",$$GET1^DIQ(52.49,ERXIEN,52.1,"I")'="R" Q
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)=""
  1. . S PSNF="" I $G(VADRGIEN) S PSNF=$S($P(^PSDRUG(VADRGIEN,0),"^",9):"***(N/F)***",1:"") ;p689
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)="Vista Drug"_$S(DRMANVAL:"[v]",1:"")_": "_VADRG_" "_$P($$VADRSCH^PSOERXUT(VADRGIEN),"^",3)_PSNF
  1. . S LINE=LINE+1
  1. . D ADDITEM^PSOERX1A(.LINETXT,"Vista Qty: ",$G(VAQTY),1,25)
  1. . D ADDITEM^PSOERX1A(.LINETXT,"Vista Refills: ",$G(VAREF),27,18)
  1. . D ADDITEM^PSOERX1A(.LINETXT,"Vista Days Supply: ",$G(VADAYS),54,22)
  1. . S @TMPGBL@(LINE,0)=LINETXT S LINETXT=""
  1. . S VASIG=""
  1. . S SLOOP=0 F S SLOOP=$O(^PS(52.49,ERXIEN,"SIG",SLOOP)) Q:'SLOOP D
  1. . . I '$L($G(VASIG)) S VASIG=$G(^PS(52.49,ERXIEN,"SIG",SLOOP,0)) Q
  1. . . S VASIG=$G(VASIG)_" "_$G(^PS(52.49,ERXIEN,"SIG",SLOOP,0))
  1. . D TXT2ARY^PSOERXD1(.VASARY,VASIG,,68)
  1. . S FSSIG=$O(VASARY(0))
  1. . S ERXDSUB=$$GET1^DIQ(52.49,ERXIEN,5.8,"I")
  1. . S ERXDSUB=$S(ERXDSUB=1:"NO",ERXDSUB=0:"YES",1:"")
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)="Substitutions? :"_ERXDSUB
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)="Vista Sig: "_$S(FSSIG:$G(VASARY(FSSIG)),1:"")
  1. . S SLOOP=1 F S SLOOP=$O(VASARY(SLOOP)) Q:'SLOOP D
  1. . . S LINE=LINE+1 S @TMPGBL@(LINE,0)=" "_VASARY(SLOOP)
  1. . S VPATINST=$$GET1^DIQ(52.49,ERXIEN,27,"E")
  1. . I VPATINST]"" S VPATINST=$$LSIG^PSOQUTIL(VPATINST)
  1. . D TXT2ARY^PSOERXD1(.VAPIARY,VPATINST," ",68)
  1. . S FSVPIN=$O(VAPIARY(0))
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)=" Pat Inst: "_$S(FSVPIN:$G(VAPIARY(FSVPIN)),1:"")
  1. . S VLOOP=1 F S VLOOP=$O(VAPIARY(VLOOP)) Q:'VLOOP D
  1. . . S LINE=LINE+1 S @TMPGBL@(LINE,0)=" "_VAPIARY(VLOOP)
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)="Hold Status: "_$G(VAHSTA)
  1. S VAHREA="Hold Reason: "_$G(VAHREA)
  1. D TXT2ARY^PSOERXD1(.HARY,VAHREA," ",80)
  1. S HL=0 F S HL=$O(HARY(HL)) Q:'HL D
  1. . S LINE=LINE+1 S @TMPGBL@(LINE,0)=$G(HARY(HL))
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)="Placed on hold by: "_$G(VAHPER)
  1. S LINE=LINE+1 S @TMPGBL@(LINE,0)=""
  1. S ERXCOMM="eRx Notes: "_$$GET1^DIQ(52.49,ERXIEN,8,"E")
  1. D TXT2ARY^PSOERXD1(.COMARY,ERXCOMM," ",68)
  1. S COM=0 F S COM=$O(COMARY(COM)) Q:'COM S LINE=LINE+1 S @TMPGBL@(LINE,0)=$G(COMARY(COM))
  1. I ",CR,"[(","_MTYPE_",") D ADDPNOTE^PSOERX1H(.LINE,$G(PNCOMM))
  1. Q