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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDREVC

Package: Controlled Substances

Routine: PSDREVC


Information

PSDREVC ;BIR/LTL-Review Receipt Transactions ; 29 Aug 94

Source Information

Source file <PSDREVC.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 ^DIC  Y^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSD CP TRANSACTION REVIEW  PSDREC4  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD HEADER+2
^DIC PSDREVC+10
Y^DIQ DEV
^DIR END+1, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Because of the size of this file, look-ups of less than four characters",!!,"are NOT advised. Please enter either the entire transaction number,",!!,"Station-FY-QTR-Control Point-Sequence Number, or at least the four digit"
  • Line Location: PSDREVC+7
Function Call: WRITE
  • Prompt: !!,"Sequence Number.",!!
  • Line Location: PSDREVC+8
Function Call: WRITE
  • Prompt: !!,"There are no receipts for this Transaction.",!!
  • Line Location: PSDREVC+11
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSDLOC,0)),U),!
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+$P($G(^PSD(58.81,+PSDR,0)),U,3),0)),U),!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,Y," ",$E($P($G(^PSDRUG(+$P($G(^PSD(58.81,PSDR,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: !,"History of receipts for Transaction # ",$P($G(^PRCS(410,+PSDCON,0)),U),?57,RPDT,?70,"PAGE: ",PG,!,LN,!
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • PSDREVC+10
Routine Call
  • DIR
  • Line Location:
    • END+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
END PSDREVC+10, PSDREVC+11, DEV+3, 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+2~*
%ZIS("B" DEV+2*
C PSDREVC+9~, DEV*
DIC PSDREVC+9~, PSDREVC+10*!
DIC("A" PSDREVC+10*
DIC("S" PSDREVC+10*
DIC(0 PSDREVC+10*
DIR PSDREVC+9~, HEADER+1!
DIR("A" END+1*
DIR(0 END+1*, HEADER+1*
DT START+1
DTOUT PSDREVC+9~, PSDREVC+10
DUOUT PSDREVC+9~, PSDREVC+10
DUZ HEADER+2
IO("Q" DEV+2!, DEV+3, END+2!
IOF END, HEADER+3
IOP DEV+2~
IOSL LOOP
IOST END, END+1, HEADER+1
LN START+1~, HEADER+3*
PG START+1~*, HEADER+1, HEADER+3*
POP DEV+2~
PSDCON PSDREVC+9~, PSDREVC+10*, PSDREVC+11, LOOP, HEADER+3
PSDEV PSDREVC+9~, DEV*, DEV+2
PSDLOC PSDREVC+9~, DEV+2!, LOOP+1*, LOOP+2*
PSDOUT PSDREVC+9~, PSDREVC+10*, DEV+3*, START+1*, LOOP, END+1, HEADER+1*, HEADER+2*
PSDR START+1~*, LOOP*, LOOP+1, LOOP+2, LOOP+3, LOOP+4
RPDT START+1~*, HEADER+3
U DEV, LOOP+1, LOOP+2, LOOP+3, LOOP+4, HEADER+2, HEADER+3
X PSDREVC+9~
Y PSDREVC+9~, PSDREVC+10, DEV*, START+1*, LOOP+3*, HEADER+1
ZTDESC DEV+3~*, HEADER+2
ZTDTH DEV+3~
ZTIO DEV+3~
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+3~*
ZTSAVE DEV+3~
ZTSAVE("PSDCON" DEV+3*
ZTSK DEV+3~, HEADER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All