Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPPDRX

Package: Registration

Routine: DGPPDRX


Information

DGPPDRX ;SLC/RM - PRESUMPTIVE PSYCHOSIS DETAIL REPORT RELEASED PRESCRIPTION ; January 14, 2021@1:00 pm

Source Information

Source file <DGPPDRX.m>

Entry Points

Name Comments DBIA/ICR reference
PPRX(DGDFN,DGSORT) ; RR RX Released Prescription
RX1 ;continuation of RX line tag from above
RXBSTAT(PPIBRX) ;Rx B Cross Reference in ^TMP($J,"DGPPDRX52"
SORTORRX ;Sort Original RX
IBSTAT ;Extract the IB Status in File #350 and File #399
SORTRFRX ;Sort Refill RX
SETRF ;set Refill RX
RXNOSTAT ;Extract those RX's that has not been charge
RXNOSTA1 ;
RXNOSTA2 ;
PRINTRX ;display all Released Prescription for this PP patient
PRINTRX1 ;
PRINTRX3 ;
PRINTRX2 ;
RXCOL ;display Rx column name
RXHDR(FLAG) ;Released Prescription Header
SITE(FLAG) ;site where Rx's released
CHKDATE(DATE,DGSORT) ;check if dates fall within the Begin and End dates

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"<< end of report >>"
  • Line Location: PPRX+30
Function Call: WRITE
  • Prompt: !!,">> No Released Prescription found from "_$$FMTE^XLFDT(DGSORT("DGBEG"),"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5ZF")_"."
  • Line Location: PRINTRX+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTRX+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTRX+8
Function Call: WRITE
  • Prompt: !,"Total Number of Rx: ",+DGTOTALRX,!!!
  • Line Location: PRINTRX+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTRX+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTRX+18
Function Call: WRITE
  • Prompt: ?41,$$FMTE^XLFDT($P(^TMP($J,"DGALLPPDRX",DGRXNUM,PPDOS,PPDIV,DFN,DGRXCNT),U,6),"5Z")
  • Line Location: PRINTRX+29
Function Call: WRITE
  • Prompt: !,">> No Released Prescription found from "_$$FMTE^XLFDT(DGSORT("DGBEG"),"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5ZF")_"."
  • Line Location: PRINTRX+47
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTRX+48
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTRX+48
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PRINTRX+50
Function Call: WRITE
  • Prompt: $E($P(^TMP($J,"DGALLPPDRX",DGRXNUM,PPDOS,PPDIV,DFN,DGRXCNT),U),1,20)
  • Line Location: PRINTRX1+2
Function Call: WRITE
  • Prompt: ?22,$E($P(^TMP($J,"DGALLPPDRX",DGRXNUM,PPDOS,PPDIV,DFN,DGRXCNT),U,12),1,17)
  • Line Location: PRINTRX1+3
Function Call: WRITE
  • Prompt: ?41,$$FMTE^XLFDT($P(^TMP($J,"DGALLPPDRX",DGRXNUM,PPDOS,PPDIV,DFN,DGRXCNT),U,6),"5Z")
  • Line Location: PRINTRX1+4
Function Call: WRITE
  • Prompt: ?53,$$FMTE^XLFDT(+TMPRXRLDTE\1,"5Z")
  • Line Location: PRINTRX3+2
Function Call: WRITE
  • Prompt: "R"
  • Line Location: PRINTRX3+3
Function Call: WRITE
  • Prompt: "P"
  • Line Location: PRINTRX3+4
Function Call: WRITE
  • Prompt: ?68,$P(^TMP($J,"DGALLPPDRX",DGRXNUM,PPDOS,PPDIV,DFN,DGRXCNT),U,8)
  • Line Location: PRINTRX2+1
Function Call: WRITE
  • Prompt: ?83,$J($TR(CHRGAMNT,"$()",""),14)
  • Line Location: PRINTRX2+3
Function Call: WRITE
  • Prompt: ?100,$E($P(^TMP($J,"DGALLPPDRX",DGRXNUM,PPDOS,PPDIV,DFN,DGRXCNT),U,10),1,20)
  • Line Location: PRINTRX2+4
Function Call: WRITE
  • Prompt: !,"Rx #",?22,"Patient Status",?41,"Fill Date",?53,"Released Date",?68,"Bill #",?83,"Charge Amount",?100,"IB Status",!
  • Line Location: RXCOL+1
Function Call: WRITE
  • Prompt: !,?132-$L(TITLE)\2,TITLE,!
  • Line Location: RXHDR+3
Function Call: WRITE
  • Prompt: ?39,"'R' = Return Medication To Stock 'P' = Partial Fill",!
  • Line Location: RXHDR+6
Function Call: WRITE
  • Prompt: ?48,"'R' = Return Medication To Stock",!
  • Line Location: RXHDR+7
Function Call: WRITE
  • Prompt: ?55,"'P' = Partial Fill",!
  • Line Location: RXHDR+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call