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

Package: Drug Accountability

Routine: PSARDCRD


Information

PSARDCRD ;BIRM/JMC - Return Drug Credit Report - Detailed ;06/04/08

Source Information

Source file <PSARDCRD.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.
HDR2 ;
PRINT2 ; Spreadsheet format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF,"Return Drug Credit Report (DETAILED)",?71,"Page: ",$J(PAG,3)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"PHARM LOCATION: ",$E($P(PSAPHLOC,"^",2),1,40),?63,"BATCH #: "_$G(PSABTCH)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"RTN CONTRACTOR: ",$E($G(PSARDCMF),1,31),?$S(PSARDST="AP":57,1:63),"STATUS: ",$G(PSABASTS(PSARDST))
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"CANCELLED CMTS: ",$E($P($G(^PSD(58.35,PSAPHLC1,"BAT",PSABATCH,"CAN")),"^",3),1,31)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?48,$J("CANCELLED BY: "_$E($P($G(^VA(200,+$P($G(^PSD(58.35,PSAPHLC1,"BAT",PSABATCH,"CAN")),"^",2),0)),"^"),1,18),32)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"Date Range: "_$$FMTE^XLFDT(PSARDRBD,"2Z")_" THRU "_$$FMTE^XLFDT(PSARDRED,"2Z")
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?53,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT(),"2Z")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"Total Batch Credit: $"_$J($S(PSARDST="PU":$G(CREDTOT),PSARDST="CO":$G(CRDTOTCO),1:0),0,2)
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,^TMP("PSARDCRD1",$J,X1,X2,X3)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: "PHARM LOC^BATCH #^BATCH STAT^DATE COMPLETED/CANCELLED/PICKED UP^RETURN CONTRACTOR^"
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: "DRUG^NDC^RTRN ORD QTY^RTRN DISP QTY^UPD INVENTORY^ACTUAL CRED^DRUG MFR^DRUG UPC^RTRN RSN^"
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: "CRED STAT^ESTD CRED^DRUG EXPIRE DATE^CREATED BY^CREATED ON^CANCELELD BY^CANCELLED CMTS"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !,^TMP("PSARDCRD1",$J,X1)
  • Line Location: PRINT2+5

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