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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSAREV

Package: Drug Accountability

Routine: PSAREV


Information

PSAREV ;BIR/LTL-Purchase Order Review ;7/23/97

Source Information

Source file <PSAREV.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 2 ^DIC  ^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 PSA PURCHASE ORDER REVIEW  

Entry Points

Name Comments DBIA/ICR reference
DEV ;asks device and queueing info
START ;compiles and prints output
LOOP
END
HEADER ;prints header info

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC END+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+2
^DIC PSAREV+8
^DIR END+1, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There have been no receipts for this Purchase Order.",!!
  • Line Location: PSAREV+9
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSALOC,0)),U),!
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+$P($G(^PSD(58.81,+PSAR,0)),U,3),0)),U),!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,Y," ",$E($P($G(^PSDRUG(+$P($G(^PSD(58.81,PSAR,0)),U,5),0)),U),1,25)," -> "
  • Line Location: LOOP+3
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: !?2,"History of receipts for P.O.# ",$P($G(^PRC(442,+PSAPO,0)),U),?50,PSARPDT,?70,"PAGE: ",PSAPG,!,PSALN,!
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • PSAREV+8
Routine Call
  • DIR
  • Line Location:
    • END+1
    • HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+1, LOOP+3
^PRC(442 - [#442] HEADER+3
^PSD(58.8 - [#58.8] LOOP+1, LOOP+2
^PSD(58.81 - [#58.81] PSAREV+9, LOOPLOOP+1, LOOP+2, LOOP+3, LOOP+4
^PSDRUG - [#50] LOOP+3
^VA(200 - [#200] LOOP+4, HEADER+2

Label References

Name Line Occurrences
END PSAREV+8, PSAREV+9, DEV+2, LOOP
HEADER START+1, LOOP

Naked Globals

Name Field # of Occurrence
^(0 LOOP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+1~
%ZIS DEV+1~*
DIC PSAREV+7~, PSAREV+8*!
DIC("A" PSAREV+8*
DIC("S" PSAREV+8*
DIC(0 PSAREV+8*
DIR PSAREV+7~, HEADER+1!
DIR("A" END+1*
DIR(0 END+1*, HEADER+1*
DT START+1
DTOUT PSAREV+7~, PSAREV+8
DUOUT PSAREV+7~, PSAREV+8
DUZ HEADER+2
IO("Q" DEV+1!, DEV+2, END+2!
IOF ENDHEADER+3
IOP DEV+1~
IOSL LOOP
IOST ENDEND+1, HEADER+1
POP DEV+1~
PSALN START+1~, HEADER+3*
PSALOC PSAREV+7~, DEV+1!, LOOP+1*, LOOP+2*
PSAOUT PSAREV+7~, PSAREV+8*, DEV+2*, START+1*, LOOPEND+1, HEADER+1*, HEADER+2*
PSAPG START+1~*, HEADER+1, HEADER+3*
PSAPO PSAREV+7~, PSAREV+8*, LOOPHEADER+3
PSAR START+1~*, LOOP*, LOOP+1, LOOP+2, LOOP+3, LOOP+4
PSARPDT START+1~*, HEADER+3
U LOOP+1, LOOP+2, LOOP+3, LOOP+4, HEADER+2, HEADER+3
X PSAREV+7~
Y PSAREV+7~, PSAREV+8, PSAREV+9, START+1*, LOOP+3*, HEADER+1
ZTDESC DEV+2~*, HEADER+2
ZTDTH DEV+2~
ZTIO DEV+2~
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+2~*
ZTSAVE DEV+2~
ZTSAVE("PSAPO" DEV+2*
ZTSK DEV+2~, 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 |  Naked Globals |  Local Variables  | All