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

Package: Controlled Substances

Routine: PSDREC4


Information

PSDREC4 ;BIR/LTL-Issues Receiving ; 8 Aug 94

Source Information

Source file <PSDREC4.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIC  ^DIE  ^DIR  
Controlled Substances 1 DEV^PSDREVC  
IFCAP 1 $$UNITCODE^PRCPUX1  

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
Controlled Substances 1 PSDREC2  

Entry Points

Name Comments DBIA/ICR reference
PRE
CHO
SEL
ITEM
NON
IT
DISP
POST
MON
TR
FIND
QUIT

External References

Name Field # of Occurrence
NOW^%DTC POST+3
^DIC SEL, NON+1, MON+1, FIND+1, FIND+6
^DIE NON+9, IT+2, MON+2, FIND+2
^DIR PRE, CHO, NON+8, POST
$$UNITCODE^PRCPUX1 ITEM+3
DEV^PSDREVC PRE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Previous receipts have been processed for this transaction.",!
  • Line Location: PRE+0
Function Call: WRITE
  • Prompt: !!,$P(PSDIT,U)
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: ?5,$E($P($G(^PRCS(410,+PSDCON,"IT",+PSDI,1,PSDW,0)),U),1,75),!
  • Line Location: ITEM+1
Function Call: WRITE
  • Prompt: !,"Packaging: "
  • Line Location: ITEM+2
Function Call: WRITE
  • Prompt: $$UNITCODE^PRCPUX1(+$P(PSDIT,U,3))
  • Line Location: ITEM+3
Function Call: WRITE
  • Prompt: ?18,"Price :$",$P(PSDIT,U,7)
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: ?33,"Item #: ",$P(PSDIT,U,5),?48,"Vendor Stock #: ",$P(PSDIT,U,6),!
  • Line Location: ITEM+5
Function Call: WRITE
  • Prompt: !!,PSDRUGN,!!
  • Line Location: IT+1
Function Call: WRITE
  • Prompt: !!,"Quantity ordered: ",$P($G(^PRCS(410,+PSDCON,"IT",+PSDI,0)),U,2)
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: ?40,"Quantity warehouse posted: ",$P($G(^(0)),U,12)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"Quantity received by Primary: ",$P($G(^(0)),U,13)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: ?40,"Converted quantity: ",PSDREC*$P($G(^PSDRUG(+PSDRUG,660)),U,5),!
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Sorry, but this drug is not stocked in this pharmacy location.",!
  • Line Location: DISP+5
Routine Call
  • DIC
  • Line Location:
    • SEL
    • NON+1
    • MON+1
    • FIND+1
    • FIND+6
Routine Call
  • DIE
  • Line Location:
    • NON+9
    • IT+2
    • MON+2
    • FIND+2
Routine Call
  • DIR
  • Line Location:
    • PRE
    • CHO
    • NON+8
    • POST

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PSDRUG - [#50] Classic Fileman Calls
^PSD(58.8 - [#58.8] Classic Fileman Calls
^PSD(58.81 - [#58.81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] NON+3, NON+5
^PRCS(410 - [#410] CHO+1, ITEM+1, DISP, DISP+1, DISP+2
^PSD(58.8 - [#58.8] NON, NON+2, DISP+5, POST+1, POST+2, POST+4, POST+5*, POST+6, MON, MON+1
, FIND+3
^PSD(58.81 - [#58.81] PRE, TR, FIND*, FIND+1
^PSDRUG - [#50] NON+2, IT, DISP+3
^PSDRUG("AB" NON, NON+3, IT

Label References

Name Line Occurrences
FIND FIND
ITEM CHO+1, SEL
QUIT PRE, CHO, CHO+1, SEL
SEL CHO

Naked Globals

Name Field # of Occurrence
^(0 DISP, DISP+1, DISP+2, POST+1, MON*, FIND+3*
^(660 DISP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % POST+3
DA NON+9*, IT+2*, MON+2*, FIND+2*, FIND+6!
DA(1 SEL*, NON+1*, MON+1*, MON+2*, FIND+5*
DA(2 MON+1*, MON+2*, FIND+5*
DIC SEL*!, NON+1*!, MON+1*!, FIND+1*!, FIND+4*, FIND+6!
DIC("A" NON+1*
DIC("S" NON+1*
DIC(0 SEL*, NON+1*, MON+1*, FIND+1*, FIND+4*
DIE NON+9*!, IT+2*!, MON+2*, FIND+2*!
>> DILOCKTM POST+2, TR
>> DINUM FIND+1*, FIND+5*
DIR PRE!, CHO!, NON+8!, POST!
DIR("?" CHO*, NON+7*, POST*
DIR("A" PRE*, CHO*, NON+4*, NON+5*, NON+6*, NON+7*, POST*
DIR("B" PRE*, CHO*, NON+6*, POST*
DIR(0 PRE*, CHO*, NON+4*, POST*
>> DIRUT PRE, CHO
DLAYGO FIND+1*!, FIND+4*, FIND+6!
>> DR NON+9*, IT+2*, MON+2*, FIND+2*
DT MON+1, MON+2
>> DTOUT CHO+1, SEL, NON, NON+1
>> DUOUT CHO+1, SEL, NON, NON+1
>> PSDAT POST+3*
>> PSDB NON+2*, POST+4*, POST+5
>> PSDCON PRE, CHO+1, SEL, ITEM+1, DISP, DISP+1, DISP+2
>> PSDI CHO*, CHO+1*, SEL*, ITEM+1, DISP, DISP+1, DISP+2
>> PSDIT CHO+1*, SEL*, ITEM, ITEM+3, ITEM+4, ITEM+5, NON, NON+3, NON+5, NON+9
, IT
>> PSDLOC NON, NON+1, NON+2, DISP+5, POST+1, POST+2, POST+4, POST+5, POST+6, MON
, MON+1, MON+2, FIND+3, FIND+5
>> PSDLOCN NON+1
>> PSDREC DISP*, DISP+1*, DISP+2*, DISP+3*, POST+1, POST+5
PSDRUG NON+2*, NON+9, IT*, IT+2!, DISP+3, DISP+5, POST!, POST+1, POST+2, POST+4
, POST+5, POST+6, MON, MON+1, MON+2, FIND+3, FIND+5, FIND+6!
>> PSDRUGN NON+2*, NON+6, NON+9, IT*, IT+1
>> PSDT FIND*, FIND+1, FIND+2, FIND+5
>> PSDW ITEM+1*
U ITEM, ITEM+1, ITEM+3, ITEM+4, ITEM+5, NON, NON+2, NON+3, NON+5, NON+9
, IT, DISP, DISP+1, DISP+2, DISP+3, POST+1, POST+4, POST+5, FIND
>> X MON+1*, FIND+1*, FIND+5*
>> Y PRE, CHO, CHO+1, SEL, NON, NON+1, NON+2, NON+8, NON+9*, IT+2
, POST
>> Y(0 SEL
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