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

Package: Drug Accountability

Routine: PSARDCRS


Information

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

Source Information

Source file <PSARDCRS.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.
PRTFTR() ; Print Footer
PRTLINE(LINE) ; Prints an Item line
PRINT2 ; Spreadsheet format

External References

Name Field # of Occurrence
^%ZISC EXIT+1
$$GET1^DIQ GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+9, ITEMS+4, ITEMS+14, ITEMS+23, ITEMS+25, PRINT+3, PRINT+4
GETS^DIQ ITEMS+10
^DIR HDR+8
$$FMTE^XLFDT HDR+12, HDR+13, ITEMS+23, ITEMS+24, PRINT+4, PRINT+5
$$NOW^XLFDT HDR+13

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

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] GETDATA+2, GETDATA+3, GETDATA+7, GETDATA+8, ITEMS+3, ITEMS+24, ITEMS+27, PRINT+5, PRTLINE+11
^TMP("PSARDCRS" PSARDCRS+5!, EXIT+4!, ITEMS+5*, ITEMS+7, ITEMS+8, ITEMS+33!
^TMP("PSARDCRS1" PSARDCRS+5!, EXIT+4!, GETDATA+14, ITEMS+31*, ITEMS+32*, PRINT+3, PRINT+7, PRINT+8, PRINT+10, PRINT+11!
, PRINT2+6, PRINT2+7, PRINT2+8!
^VA(200 - [#200] ITEMS+27, PRTLINE+11

Label References

Name Line Occurrences
EXIT PSARDCRS+7, PSARDCRS+16
GETDATA PSARDCRS+13, PSARDCRS+15
HDR PSARDCRS+12, PRINT+6, PRINT+9
ITEMS GETDATA+11
PRINT GETDATA+13
PRINT2 GETDATA+14
PRTFTR PRINT+14
PRTLINE PRINT+7, PRINT+10
STATUS PSARDCRS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BATTOT EXIT+3!, GETDATA+1*, GETDATA+10*, GETDATA+19
CRDTOTC1 EXIT+4!, GETDATA+1*, GETDATA+16*, GETDATA+20
CRDTOTCO EXIT+2!, GETDATA+16, ITEMS+6*, ITEMS+28*, PRTFTR+4
CRED EXIT+3!, ITEMS+17*, ITEMS+20, ITEMS+26, ITEMS+28, ITEMS+29
CREDTOT EXIT+2!, GETDATA+15, ITEMS+6*, ITEMS+29*, PRTFTR+4
CREDTOT1 EXIT+2!, GETDATA+1*, GETDATA+15*, GETDATA+20
DATA ITEMS+11!*, ITEMS+33!
DATA( ITEMS+12
DATA(10 ITEMS+17
DATA(11 ITEMS+17
DATA(12 ITEMS+17
DATA(14 ITEMS+15
DATA(17 ITEMS+16
DATA(3 ITEMS+12
DATA(5 ITEMS+14
DATA(6 ITEMS+12
DATA(8 ITEMS+13
DIR HDR+1~, HDR+7~, EXIT+3!
DIR("A" HDR+7*
DIR(0 HDR+7*
DIRUT HDR+9, EXIT+4!
DISPUNT ITEMS+13*, ITEMS+19, ITEMS+26, ITEMS+33!
DRUG ITEMS+12*, ITEMS+18, ITEMS+26, ITEMS+33!
DRUGNAM ITEMS+2~*, ITEMS+4*, ITEMS+5, ITEMS+6*, ITEMS+7*, ITEMS+8, ITEMS+33!
DRUGTOT EXIT+2!, GETDATA+15, ITEMS+2*, ITEMS+29*
DRUGTOT1 EXIT+2!, GETDATA+1*, GETDATA+15*, GETDATA+19
EXPDAT EXIT+2!, ITEMS+23*, ITEMS+24*, ITEMS+26, ITEMS+33!, PRINT+4*, PRINT+5*, PRTLINE+3, PRTLINE+9
FIRST EXIT+4!, PRINT+2~, PRINT+3*, PRTLINE+1, PRTLINE+7, PRTLINE+8*
FIRSTHD PSARDCRS+6*, EXIT+4!, PRINT2+3*
FLDS ITEMS+33!
FLDS( ITEMS+11
I STATUS+1*, STATUS+2, EXIT+3!, ITEMS+2*, ITEMS+3*, ITEMS+4, ITEMS+5, PRINT+2~, PRINT+3*, PRINT+8*
, PRINT+9, PRINT+10, PRINT+11, PRTLINE+12, PRINT2+1~, PRINT2+2*, PRINT2+6*, PRINT2+7, PRINT2+8
IO PSARDCRS+10
IOF HDR+10
IOSL PRINT+6, PRINT+9
IOST HDR+5
ITEM ITEMS+6*, ITEMS+8*, ITEMS+10, ITEMS+11, ITEMS+33!
JJ HDR+1~, HDR+6*
LINE ITEMS+18*, ITEMS+19*, ITEMS+20*, ITEMS+21, ITEMS+30!, ITEMS+33!, PRTLINE~, PRTLINE+12
LINE1 ITEMS+31, ITEMS+33!
LINE1( ITEMS+21*, ITEMS+26*, ITEMS+27*
NDC ITEMS+12*, ITEMS+18, ITEMS+26, ITEMS+33!
ORDUNT ITEMS+14*, ITEMS+19, ITEMS+26, ITEMS+33!
PAG PSARDCRS+5!, HDR+2*, HDR+5, HDR+10, EXIT+3!
PRINTFLG PSARDCRS+4~, PSARDCRS+14*, HDR+20*, GETDATA+13*
PSABASTS PSARDCRS+7, STATUS+1, STATUS+2, EXIT+2!
PSABASTS( PSARDCRS+8, HDR+11, STATUS+3*, ITEMS+26
PSABATCH EXIT+2!, GETDATA+1~*, GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, GETDATA+8, GETDATA+9
, ITEMS+1, ITEMS+3, ITEMS+4, ITEMS+10, ITEMS+11, ITEMS+23, ITEMS+24, ITEMS+25, ITEMS+27, PRINT+3
, PRINT+4, PRINT+5, PRTLINE+11
PSABTCH EXIT+4!
PSADTRNG EXIT+3!
PSAEXCEL PSARDCRS+6, PSARDCRS+11, PSARDCRS+15, EXIT+4!, GETDATA+13, GETDATA+14, GETDATA+18, ITEMS+21, ITEMS+22
PSAOUT PSARDCRS+4~, PSARDCRS+6*, PSARDCRS+8, PSARDCRS+12, PSARDCRS+15, HDR+5, HDR+9*, GETDATA+2, GETDATA+11, GETDATA+13
, GETDATA+14, GETDATA+17, PRINT+1, PRINT+6, PRINT+8, PRINT+9, PRINT+13, PRINT2+6
PSAPHLC1 PSARDCRS+9*, EXIT+3!, GETDATA+1*, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, GETDATA+8
, GETDATA+9, ITEMS+1, ITEMS+3, ITEMS+4, ITEMS+10, ITEMS+11, ITEMS+23, ITEMS+24, ITEMS+25, ITEMS+27
, PRINT+3, PRINT+4, PRINT+5, PRTLINE+11
PSAPHLOC PSARDCRS+9, HDR+11, EXIT+2!, GETDATA+1, ITEMS+26
PSARDCMF EXIT+3!, GETDATA+9*, ITEMS+26, PRTLINE+4, PRTLINE+10
PSARDRBD HDR+12, EXIT+3!, GETDATA+5, GETDATA+7
PSARDRED HDR+12, EXIT+3!, GETDATA+6, GETDATA+8
PSARDRTP EXIT+3!
PSARDST PSARDCRS+4~, PSARDCRS+8*, HDR+11, HDR+16, HDR+18, STATUS+2*, STATUS+3, EXIT+2!, GETDATA+4, GETDATA+5
, GETDATA+6, GETDATA+7, GETDATA+8, GETDATA+15, GETDATA+16, GETDATA+19, GETDATA+20, ITEMS+17, ITEMS+20, ITEMS+23
, ITEMS+24, ITEMS+26, ITEMS+27, ITEMS+28, ITEMS+29, PRINT+4, PRINT+5, PRTFTR+1, PRTFTR+4, PRTLINE+3
, PRTLINE+9, PRTLINE+11
PSASCRL EXIT+4!, PRINT+3*, PRINT+9*, PRTLINE+1, PRTLINE+6*, PRTLINE+8*
QTY ITEMS+12*, ITEMS+19, ITEMS+26, ITEMS+33!
RTRNQTY ITEMS+16*, ITEMS+19, ITEMS+26, ITEMS+33!
SEQ ITEMS+6*, ITEMS+9*, ITEMS+21, ITEMS+26, ITEMS+27, ITEMS+32, ITEMS+33!
SS HDR+1~, HDR+6*
TMPBAT EXIT+2!, ITEMS+25*, ITEMS+26, ITEMS+33!, PRINT+3*, PRINT+9, PRINT+15!, PRTLINE+8
TMPBAT1 EXIT+2!, PRINT+3*, PRINT+9*, PRINT+15!, PRTLINE+2, PRTLINE+5!
TOT EXIT+2!, PRINT+3*, PRINT+9, PRINT+15!, PRTFTR+3, PRTFTR+6
UPDINV ITEMS+15*, ITEMS+20, ITEMS+26, ITEMS+33!
X HDR+1~, HDR+14*, HDR+19, EXIT+2!, EXIT+3!
XX EXIT+2!
Y HDR+9, EXIT+2!
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