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

Package: Controlled Substances

Routine: PSDREPV


Information

PSDREPV ;BIR/LTL-Review PV Receipt Transactions ; 29 Aug 94

Source Information

Source file <PSDREPV.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 (,IX)^DIC  DT^DICRW  ^DIR  
Controlled Substances 1 ^PSDREPD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSD PV INVOICE REVIEW  PSDREC2  

Entry Points

Name Comments DBIA/ICR reference
START ;compiles and prints output
END
LOOP
DEV ;(PSD*3*18) Changed %ZIS( call to fileman - SQA.
HEADER ;prints header info

External References

Name Field # of Occurrence
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC END+2
^%ZTLOAD DEV+6
$$S^%ZTLOAD HEADER+2
^DIC DEV+3
IX^DIC PSDREPV+10
DT^DICRW PSDREPV+7
^DIR PSDREPV+9, END+1, HEADER+1
^PSDREPD PSDREPV+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDREPV+10
Function Call: WRITE
  • Prompt: !!,"No Prime Vendor Invoice for this transaction."
  • Line Location: PSDREPV+11
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSDLOC,0)),U),!
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,Y," "
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,Y," "
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"History of receipts for Invoice # ",PSD(2),?57,RPDT,?70,"PAGE: ",PG,!,LN,!
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • DIC
  • Line Location:
    • DEV+3
Routine Call
  • DIR
  • Line Location:
    • PSDREPV+9
    • END+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5
Routine Call
  • DIC
  • Line Location:
    • PSDREPV+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.81 - [#58.81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+1, LOOP+3, LOOP+10
^PSD(58.8 - [#58.8] DEV+2, LOOP+1, LOOP+7
^PSD(58.81 - [#58.81] PSDREPV+10, DEV+2, LOOP
^PSDRUG - [#50] LOOP+4, LOOP+11
^VA(200 - [#200] LOOP+6, LOOP+13, HEADER+2

Label References

Name Line Occurrences
END PSDREPV+9, PSDREPV+10, PSDREPV+11, DEV+5, DEV+6, LOOP
HEADER START+2, LOOP, LOOP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+1~
%ZIS DEV+5~*
%ZIS("B" DEV+5*
C PSDREPV+6~
D PSDREPV+6~, PSDREPV+10*
DIC PSDREPV+6~, PSDREPV+10*!, DEV+3*
DIC("A" PSDREPV+10*
DIC(0 PSDREPV+10*, DEV+3*
DIR PSDREPV+6~, PSDREPV+9!, HEADER+1!
DIR("?" PSDREPV+9*
DIR("A" PSDREPV+8*, END+1*
DIR("B" PSDREPV+9*
DIR(0 PSDREPV+8*, END+1*, HEADER+1*
DIRUT PSDREPV+6~
DT START+1
DTOUT PSDREPV+6~
DUOUT PSDREPV+6~
DUZ HEADER+2
IO("Q" DEV+5!, DEV+6, END+2!
IOF END, HEADER+3
IOP DEV+5~
IOSL LOOP, LOOP+8
IOST END, END+1, HEADER+1
LN START+1~, HEADER+3*
PG START+1~*, HEADER+1, HEADER+3*
POP DEV+5~
PSD PSDREPV+6~, PSDREPV+10*
PSD(1 START+1*, LOOP*, LOOP+2, LOOP+8*, LOOP+9
PSD(2 PSDREPV+10*, PSDREPV+11, LOOP, HEADER+3
PSD(3 LOOP*, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+9*, LOOP+10
, LOOP+11, LOOP+12, LOOP+13
PSDEV PSDREPV+6~, DEV+3*, DEV+5
PSDL PSDREPV+6~
PSDL( LOOP+2*, LOOP+8, LOOP+9
PSDL(0 LOOP+7
>> PSDLOC DEV+2, LOOP+1*, LOOP+2
PSDOUT PSDREPV+6~, PSDREPV+10*, PSDREPV+11*, DEV+5*, DEV+6*, START+1*, LOOP, LOOP+8, END+1, HEADER+1*
, HEADER+2*
RPDT START+1~*, HEADER+3
U PSDREPV+10, DEV+2, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+10
, LOOP+11, LOOP+12, LOOP+13, HEADER+2
X PSDREPV+6~, DEV+2*
Y PSDREPV+6~, PSDREPV+9, PSDREPV+10, DEV+2, DEV+3, START+1*, LOOP+3*, LOOP+10*, HEADER+1
ZTDESC DEV+6~*, HEADER+2
ZTDTH DEV+6~
ZTIO DEV+6~
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+6~*
ZTSAVE DEV+6~
ZTSAVE("PSD*" DEV+6*
ZTSK DEV+6~, HEADER+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