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: PSARDCRS

Package: Drug Accountability

Routine: PSARDCRS


Information

PSARDCRS ;BIRM/JMC - Return Drug Credit Report - Summary ;06/04/08

Source Information

Source file <PSARDCRS.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ; - Prints the Header
STATUS ;Create local array of statuses.
EXIT ; KILL VARIABLES AND EXIT
GETDATA ; Retrieve data for printing
ITEMS ; Retrieve individual drug entries that match the criteria for the report.
PRINT ; Print the individual drug entries that match the criteria for the report.
PRTFTR() ; Print Footer
PRTLINE(LINE) ; Prints an Item line
PRINT2 ; Spreadsheet format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** NO BATCHES FOUND ***",!!!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: @IOF,"Return Drug Credit Report (SUMMARY)",?71,"Page: ",$J(PAG,3)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"PHARM LOCATION: ",$E($P(PSAPHLOC,"^",2),1,31),?$S(PSARDST="AP":57,1:63),"STATUS: ",$G(PSABASTS(PSARDST))
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"Date Range: "_$$FMTE^XLFDT(PSARDRBD,"2Z")_" THRU "_$$FMTE^XLFDT(PSARDRED,"2Z")
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?53,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT(),"2Z")
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,?39,$J("ORD",6),?46,"ORDER",?54,$J("DISP",6),?61,"DISP",?68,"UPD"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?73,"ACTUAL"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,"DRUG (NDC)",?39,$J("QTY",6),?46,"UNIT",?54,$J("QTY",6),?61,"UNIT",?68,"INV"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: ?73,"CREDIT$"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,"TOTALS: "_$G(BATTOT)_" Batch"_$S($G(BATTOT)>1:"es",1:"")_", "_$G(DRUGTOT1)_" Drug"_$S($G(DRUGTOT1)>1:"s",1:"")
  • Line Location: GETDATA+19
Function Call: WRITE
  • Prompt: !,"CREDIT TOTAL: $"_$S(PSARDST="CO":$J($G(CRDTOTC1),0,2),PSARDST="PU":$J($G(CREDTOT1),0,2),1:"")
  • Line Location: GETDATA+20
Function Call: WRITE
  • Prompt: !?72,"========"
  • Line Location: PRTFTR+2
Function Call: WRITE
  • Prompt: !?25,"NUMBER OF ITEMS: ",+$G(TOT),?56,"BATCH TOTAL: "
  • Line Location: PRTFTR+3
Function Call: WRITE
  • Prompt: ?72,$J($S(PSARDST="CO":"$"_$J($G(CRDTOTCO),0,2),1:"$"_$J($G(CREDTOT),0,2)),8)
  • Line Location: PRTFTR+4
Function Call: WRITE
  • Prompt: !?25,"NUMBER OF ITEMS: ",+$G(TOT)
  • Line Location: PRTFTR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTFTR+7
Function Call: WRITE
  • Prompt: !,"Batch #: "_TMPBAT1
  • Line Location: PRTLINE+2
Function Call: WRITE
  • Prompt: " "_$S(PSARDST="CA":"Date Cancelled: ",PSARDST="PU":"Date Picked Up: ",PSARDST="CO":"Date Completed: ",1:"Date Entered: ")_EXPDAT
  • Line Location: PRTLINE+3
Function Call: WRITE
  • Prompt: " - "_$E(PSARDCMF,1,22)
  • Line Location: PRTLINE+4
Function Call: WRITE
  • Prompt: !,"Batch #: "_TMPBAT
  • Line Location: PRTLINE+8
Function Call: WRITE
  • Prompt: " "_$S(PSARDST="CA":"Date Cancelled: ",PSARDST="PU":"Date Picked Up: ",PSARDST="CO":"Date Completed: ",1:"Date Entered: ")_EXPDAT
  • Line Location: PRTLINE+9
Function Call: WRITE
  • Prompt: " - "_$E(PSARDCMF,1,29)
  • Line Location: PRTLINE+10
Function Call: WRITE
  • Prompt: !,"Cancelled By: "_$E($P($G(^VA(200,+$P($G(^PSD(58.35,PSAPHLC1,"BAT",PSABATCH,"CAN")),"^",2),0)),"^"),1,18)_" "_"Cancelled Comments: "_$E($P($G(^PSD(58.35,PSAPHLC1,"BAT",PSABATCH,"CAN")),"^",3),1,25)
  • Line Location: PRTLINE+11
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRTLINE+12
Function Call: WRITE
  • Prompt: "PHARM LOC^BATCH #^BATCH STATUS^DATE COMPLETED/CANCELLED/PICKED UP"
  • Line Location: PRINT2+4
Function Call: WRITE
  • Prompt: "^RETURN CONTRACTOR^DRUG^NDC^ORD QTY^ORDER UNIT^DISP QTY^DISP UNIT^UPDATE INVENTORY^ACTUAL CREDIT^CANCELLED BY^CANCELLED CMTS"
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: !,^TMP("PSARDCRS1",$J,I)
  • Line Location: PRINT2+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(51.5 - [#51.5] GET1^DIQ
58.351 GET1^DIQ
58.3511 GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call