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

Package: Controlled Substances

Routine: PSDREVD


Information

PSDREVD ;BIR/LTL-Review Receipt Transactions for a Drug ; 29 Aug 94

Source Information

Source file <PSDREVD.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD DRUG RECEIPT HISTORY  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC END+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+2
^DIC LOOK+3, CHKD
DT^DICRW PSDREVD+10
Y^DIQ CHKD+5
^DIR CHKD+3, END+1, HEADER+1
^PSDSET PSDREVD+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: !!,"You may select one, several, or ^ALL drugs.",!
  • Line Location: LOOK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,"There have been no receipts for this drug.",!!
  • Line Location: CHKD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
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,+PSDLOC,0)),U),!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,"Receiving site: ",$P($G(^PSD(58.8,+PSDLOC,0)),U),!
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !,Y," "," -> "
  • Line Location: LOOP+7
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 Drug Receipts",?50,RPDT,?70,"PAGE: ",PG,!,LN,!
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • LOOK+3
    • CHKD
Routine Call
  • DIR
  • Line Location:
    • CHKD+3
    • END+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+1, LOOP+7
^DD(58.8 CHKD+5
^PRC(442 LOOP+9
^PRCS(410 LOOP+10
^PSD(58.8 - [#58.8] LOOK+2, CHKD+2, CHKD+5, LOOP+3
^PSD(58.81 - [#58.81] CHKD+1, LOOP, LOOP+11
^PSDRUG - [#50] LOOP+2
^VA(200 - [#200] LOOP+8, HEADER+2

Label References

Name Line Occurrences
CHKD PSDREVD+12
END PSDREVD+8, LOOK+3, CHKD, CHKD+1, CHKD+3, DEV+2, START+2
HEADER START+1, LOOP

Naked Globals

Name Field # of Occurrence
^(0 LOOP+9, LOOP+10
^(8 LOOP+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+1~
%ZIS DEV+1~*
%ZIS("B" DEV+1*
C PSDREVD+9~, CHKD+5*
CNT PSDREVD+9~, PSDREVD+12*, LOOK+5*, CHKD*, CHKD+1
DIC PSDREVD+9~, LOOK*, LOOK+3!, CHKD*!
DIC("A" LOOK*, CHKD*
DIC("B" LOOK+2*
DIC("S" LOOK+1*, CHKD*
DIC(0 LOOK*, CHKD*
DIR PSDREVD+9~, CHKD+3!, HEADER+1!
DIR("?" CHKD+3*
DIR("A" CHKD+3*, END+1*
DIR("B" CHKD+3*
DIR(0 CHKD+3*, END+1*, HEADER+1*
DIRUT PSDREVD+9~, CHKD+3
DT START+1
DTOUT PSDREVD+9~
DUOUT PSDREVD+9~
DUZ HEADER+2
IO("Q" DEV+1!, DEV+2, END+2!
IOF END, HEADER+3
IOP DEV+1~
IOSL LOOP
IOST END, END+1, HEADER+1
LN START+1~, LOOP+12, HEADER+3*
PG START+1~*, HEADER+1, HEADER+3*
POP DEV+1~
PSD PSDREVD+9~
PSD( CHKD*, CHKD+2*, START+2
PSD(0 CHKD+1, START+1
PSDEV PSDREVD+9~, CHKD+5*, DEV+1
PSDLOC PSDREVD+9~, PSDREVD+11*, LOOK+2, LOOK+3*, CHKD+2, CHKD+5, LOOP+1, LOOP+3
PSDLOCN PSDREVD+9~, PSDREVD+11*, LOOK+2, LOOK+3*, LOOK+4, CHKD
PSDOUT PSDREVD+8~*, PSDREVD+9*, DEV+2*, START+1*, START+2, LOOP, END+1, HEADER+1*, HEADER+2*
PSDR PSDREVD+9~, START+1~*, START+2, LOOP*, LOOP+11
PSDR(1 START+2!, LOOP+2*, LOOP+3
PSDR(2 LOOP*, LOOP+1, LOOP+7, LOOP+8, LOOP+9, LOOP+10
>> PSDSITE PSDREVD+8, PSDREVD+11, PSDREVD+12, LOOK+4*
PSDT PSDREVD+9~, CHKD+4*, LOOP
PSDU PSDREVD+9~*, CHKD+2*, START+1*, START+2*, LOOP, LOOP+2
PSDU(1 START+1*, START+2*
RPDT START+1~*, HEADER+3
U PSDREVD+11, PSDREVD+12, LOOK+2, LOOK+3, LOOK+4, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+7
, LOOP+8, LOOP+9, LOOP+10, LOOP+11, HEADER+2
X PSDREVD+9~, CHKD, CHKD+2
Y PSDREVD+9~, LOOK+3, LOOK+4, CHKD, CHKD+4, CHKD+5*, START+1*, LOOP+7*, 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("PSD*" 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