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

Package: Drug Accountability

Routine: PSALFM


Information

PSALFM ;BIR/LTL-Controlled Connection by FSN Match ;7/23/97

Source Information

Source file <PSALFM.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 DT^DICRW  ^DIE  ^DIR  ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA FSN CONTROL LOOP  

Entry Points

Name Comments DBIA/ICR reference
QUIT
USED
END
FORM
OFFER
START ;compiles data for edit
SH
EXPL
OK
INAC
LOOP

External References

Name Field # of Occurrence
DT^DICRW PSALFM+3
^DIE OK
^DIR LOOP+1, END, OFFER
^DIWP INAC+3
^DIWW INAC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"I'll loop through the FSNs in your DRUG file.",!,"If I find a match in the ITEM MASTER file, I'll let you know.",!
  • Line Location: EXPL+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,PSAFSN
  • Line Location: FORM+0
Function Call: WRITE
  • Prompt: !,$E($P(^PSDRUG(PSAD,0),U),1,39)
  • Line Location: FORM+1
Function Call: WRITE
  • Prompt: !,"**"_$P(^PSDRUG(PSADD,0),U)_" is already linked to Item #"_PSAIT_"**"
  • Line Location: USED+0
Function Call: WRITE
  • Prompt: !,"Sorry, Item #"_PSAIT_" is INACTIVE, can't link.",!
  • Line Location: INAC+0
Function Call: WRITE
  • Prompt: ?40,$G(^PRC(441,+PSAIT,1,1,0)),!
  • Line Location: INAC+1
Function Call: WRITE
  • Prompt: " Linked to Item #"_PSAIT
  • Line Location: OK+0
Routine Call
  • DIE
  • Line Location:
    • OK
Routine Call
  • DIR
  • Line Location:
    • LOOP+1
    • END
    • OFFER

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] FORM, FORM+1, INAC, INAC+1, INAC+3
^PSDRUG - [#50] LOOP, FORM, FORM+1, USED
^PSDRUG("AB" USED
^UTILITY($J INAC+2!

Label References

Name Line Occurrences
END LOOP
OFFER SH
SH INAC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 EXPL+1~
D1 EXPL+1~
DA EXPL+1~, OK*
DIC EXPL+1~
DIE EXPL+1~, OK*
DIR EXPL+1~, LOOP+1!, OFFER!
DIR("A" END*, OFFER*
DIR("B" OFFER*
DIR(0 LOOP+1*, END*, OFFER*
DIRUT EXPL+1~, OFFER
DIW EXPL+1~
DIWF EXPL+1~, INAC+2*
DIWL EXPL+1~, INAC+2*
DIWR EXPL+1~, INAC+2*
DIWT EXPL+1~
DLAYGO EXPL+1~
DR EXPL+1~, OK*
DTOUT EXPL+1~
DUOUT EXPL+1~
IOF LOOP+1
IOSL LOOP+1
PSA EXPL+1~*, INAC+3*, INAC+4*
PSAD EXPL+1~*, LOOP*, FORM, FORM+1, OK
PSADD EXPL+1~, FORM+1~, USED*, INAC*, SH
PSAF EXPL+1~
PSAFSN EXPL+1~, FORM*, FORM+1
PSAIT EXPL+1~, FORM+1*, USED, INAC, INAC+1, INAC+3, OK
PSAOUT EXPL+1~, LOOP, LOOP+1*, END, OFFER*
U LOOP, FORM, FORM+1, USED
X EXPL+1~, INAC+3*
Y EXPL+1~, LOOP+1, OFFER
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All