Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZISC  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSARDCRP  

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

External References

Name Field # of Occurrence
^%ZISC EXIT+1
$$GET1^DIQ GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+9, GETDATA+10, ITEMS+4, ITEMS+14, ITEMS+41
GETS^DIQ ITEMS+10
^DIR HDR+5
$$FMTE^XLFDT HDR+13, HDR+14, ITEMS+13, ITEMS+15, ITEMS+41, ITEMS+42, ITEMS+43
$$NOW^XLFDT HDR+14

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
Routine Call
  • DIR
  • Line Location:
    • HDR+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.35 - [#58.35] HDR+11, HDR+12, GETDATA+2, GETDATA+3, GETDATA+7, GETDATA+8, ITEMS+3, ITEMS+42, ITEMS+46
^TMP("PSARDCRD" PSARDCRD+7!, EXIT+5!, ITEMS+5*, ITEMS+7, ITEMS+8, ITEMS+49!
^TMP("PSARDCRD1" PSARDCRD+7!, EXIT+5!, GETDATA+12, GETDATA+13, ITEMS+47*, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+9!
, PRINT2+4, PRINT2+5, PRINT2+6!
^VA(200 - [#200] HDR+12, ITEMS+46

Label References

Name Line Occurrences
EXIT PSARDCRD+8, PSARDCRD+16
GETDATA PSARDCRD+13
HDR PSARDCRD+15, GETDATA+12, PRINT+6
HDR2 GETDATA+13
ITEMS GETDATA+11
PRINT GETDATA+12
PRINT2 GETDATA+13
STATUS PSARDCRD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BATTOT EXIT+3!
CRDTOTCO HDR+15, EXIT+2!, ITEMS+6*, ITEMS+38*
CREATEBY EXIT+4!, ITEMS+15*, ITEMS+25, ITEMS+45
CREATEON EXIT+4!, ITEMS+15*, ITEMS+26, ITEMS+43*, ITEMS+45
CRED EXIT+3!, ITEMS+20*, ITEMS+23, ITEMS+38, ITEMS+39, ITEMS+44
CRED1 EXIT+4!
CREDSTAT EXIT+4!, ITEMS+19*, ITEMS+20, ITEMS+22, ITEMS+23, ITEMS+45
CREDTOT HDR+15, EXIT+2!, ITEMS+6*, ITEMS+39*
CREDTOT1 EXIT+2!
DATA ITEMS+11*, ITEMS+48!, ITEMS+49!
DATA( ITEMS+12
DATA(1 ITEMS+15, ITEMS+43
DATA(10 ITEMS+19
DATA(11 ITEMS+20, ITEMS+45
DATA(12 ITEMS+20
DATA(14 ITEMS+16
DATA(15 ITEMS+17
DATA(16 ITEMS+15
DATA(17 ITEMS+12
DATA(2 ITEMS+13
DATA(3 ITEMS+12
DATA(4 ITEMS+15
DATA(5 ITEMS+14
DATA(6 ITEMS+12
DATA(8 ITEMS+18
DATA(9 ITEMS+13
DIR HDR+1~, EXIT+3!
DIR("A" HDR+5*
DIR(0 HDR+5*
DIRUT HDR+6, EXIT+5!
DISPUNT ITEMS+18*, ITEMS+26, ITEMS+44, ITEMS+49!
DRUG ITEMS+12*, ITEMS+22, ITEMS+44, ITEMS+49!
DRUGNAM ITEMS+2~*, ITEMS+4*, ITEMS+5, ITEMS+6*, ITEMS+7*, ITEMS+8, ITEMS+49!
DRUGTOT EXIT+2!
DRUGTOT1 EXIT+2!
DSPUNT ITEMS+49!
EXPDAT ITEMS+13*, ITEMS+24, ITEMS+45, ITEMS+49!
EXPDAT1 ITEMS+41*, ITEMS+42*, ITEMS+44, ITEMS+49!
FIRSTHD PSARDCRD+9*, EXIT+5!, HDR2+1*
FLDS ITEMS+49!
FLDS( ITEMS+11
I STATUS+1*, STATUS+2, EXIT+3!, ITEMS+2~*, ITEMS+3*, ITEMS+4, ITEMS+5
IO PSARDCRD+13
IOF HDR+7
IOSL PRINT+6
IOST HDR+3
ITEM ITEMS+6*, ITEMS+8*, ITEMS+10, ITEMS+11, ITEMS+49!
J EXIT+4!, ITEMS+2~*
JJ HDR+1~, HDR+4*
LINE ITEMS+47, ITEMS+48!, ITEMS+49!
LINE( ITEMS+30*, ITEMS+31*, ITEMS+32*, ITEMS+33*, ITEMS+34*, ITEMS+35*, ITEMS+36*, ITEMS+37*, ITEMS+44*, ITEMS+45*
, ITEMS+46*
LINE1 ITEMS+22*, ITEMS+30, ITEMS+48!, ITEMS+49!
LINE2 ITEMS+23*, ITEMS+31, ITEMS+48!
LINE3 ITEMS+24*, ITEMS+32, ITEMS+48!
LINE4 ITEMS+25*, ITEMS+33, ITEMS+48!
LINE5 ITEMS+26*, ITEMS+34, ITEMS+48!
LINE6 ITEMS+27*, ITEMS+35, ITEMS+48!
LINE7 ITEMS+28*, ITEMS+36, ITEMS+48!
LINE8 ITEMS+29*, ITEMS+37, ITEMS+48!
MFR EXIT+4!, ITEMS+13*, ITEMS+23, ITEMS+45
NDC ITEMS+12*, ITEMS+24, ITEMS+44, ITEMS+49!
ORDUNT ITEMS+14*, ITEMS+25, ITEMS+44, ITEMS+49!
PAG PSARDCRD+7!, HDR+2*, HDR+3, HDR+7, EXIT+3!
PRINTFLG PSARDCRD+5~, PSARDCRD+12*, PSARDCRD+14, PSARDCRD+15*, PRINT+10*
PSABASTS PSARDCRD+8, STATUS+1, STATUS+2, EXIT+2!
PSABASTS( PSARDCRD+10, HDR+9, STATUS+3*, ITEMS+44
PSABATCH HDR+10, HDR+11, HDR+12, EXIT+2!, GETDATA+1~*, GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6
, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, ITEMS+1, ITEMS+3, ITEMS+4, ITEMS+10, ITEMS+11, ITEMS+41
, ITEMS+42, ITEMS+46
PSABTCH PSARDCRD+12*, HDR+8, EXIT+4!, GETDATA+9*, ITEMS+44
PSADTRNG EXIT+3!
PSAEXCEL PSARDCRD+9, PSARDCRD+14, EXIT+5!, GETDATA+12, GETDATA+13, ITEMS+21, ITEMS+40
PSAOUT PSARDCRD+5~, PSARDCRD+6*, PSARDCRD+10, PSARDCRD+12*, PSARDCRD+13, HDR+3, HDR+6*, GETDATA+2, GETDATA+11, GETDATA+12
, GETDATA+13, PRINT+1, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT2+1, PRINT2+4
PSAPHLC1 PSARDCRD+11*, HDR+11, HDR+12, EXIT+3!, GETDATA+1*, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6
, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, ITEMS+1, ITEMS+3, ITEMS+4, ITEMS+10, ITEMS+11, ITEMS+41
, ITEMS+42, ITEMS+46
PSAPHLOC PSARDCRD+11, HDR+8, EXIT+2!, GETDATA+1, ITEMS+44
PSARDCMF PSARDCRD+12*, HDR+9, EXIT+3!, GETDATA+10*, ITEMS+44
PSARDRBD HDR+13, EXIT+3!, GETDATA+5, GETDATA+7
PSARDRED HDR+13, EXIT+3!, GETDATA+6, GETDATA+8
PSARDRTP EXIT+3!
PSARDST PSARDCRD+5~, PSARDCRD+10*, HDR+9, HDR+10, HDR+15, STATUS+2*, STATUS+3, EXIT+2!, GETDATA+4, GETDATA+5
, GETDATA+6, GETDATA+7, GETDATA+8, ITEMS+20, ITEMS+23, ITEMS+30, ITEMS+31, ITEMS+32, ITEMS+33, ITEMS+34
, ITEMS+35, ITEMS+36, ITEMS+37, ITEMS+38, ITEMS+39, ITEMS+41, ITEMS+42, ITEMS+44, ITEMS+46
QTY ITEMS+12*, ITEMS+25, ITEMS+44, ITEMS+49!
RTNQTY ITEMS+12*, ITEMS+26, ITEMS+44, ITEMS+49!
RTRNRSN EXIT+4!, ITEMS+17*, ITEMS+28, ITEMS+45
SEQ ITEMS+6*, ITEMS+9*, ITEMS+30, ITEMS+31, ITEMS+32, ITEMS+33, ITEMS+34, ITEMS+35, ITEMS+36, ITEMS+37
, ITEMS+44, ITEMS+45, ITEMS+46, ITEMS+49!
SS HDR+1~, HDR+4*
UPC EXIT+4!, ITEMS+15*, ITEMS+27, ITEMS+45
UPDINV EXIT+4!, ITEMS+16*, ITEMS+27, ITEMS+44, ITEMS+49!
X HDR+1~, HDR+16*, EXIT+3!, ITEMS+2~*
X1 EXIT+4!, PRINT+2~, PRINT+3*, PRINT+4*, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT2+2~, PRINT2+3*
, PRINT2+4*, PRINT2+5, PRINT2+6
X2 EXIT+4!, PRINT+2~, PRINT+3*, PRINT+5*, PRINT+7, PRINT+8, PRINT+9
X3 EXIT+4!, PRINT+2~, PRINT+3*, PRINT+7*, PRINT+8, PRINT+9
XX EXIT+4!, ITEMS+2~*, ITEMS+29
>> Y HDR+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All