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

Package: Drug Accountability

Routine: PSATI


Information

PSATI ;BIR/LTL-Single Drug Match ;7/23/97

Source Information

Source file <PSATI.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  DT^DICRW  ^DIE  ^DIR  
Drug Accountability 2 PSANDC1^PSAHELP  $$ITEM^PSAUTL  
IFCAP 1 ($$DESCR,$$VENNAME)^PRCPUX1  
National Drug File 1 $$CIRN2^PSNAPIS  

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

Package Total Caller Graph
Drug Accountability 3 PSA SINGLE DRUG MATCH  PSADRUG  PSAUNL  

Entry Points

Name Comments DBIA/ICR reference
START
LOOK
DIS
QUES1
NDC
MORE
FSN
FAIL
CON
NDF ;Offer NDF path
AGAIN
QUIT
BINGO

External References

Name Field # of Occurrence
^DIC LOOK
DT^DICRW START
^DIE CON, BINGO+4
^DIR QUES1, NDF+2, NDF+11, AGAIN+1, BINGO+3
$$DESCR^PRCPUX1 DIS, DIS+1, NDC+1, MORE, FSN+1, BINGO+2
$$VENNAME^PRCPUX1 DIS+1
PSANDC1^PSAHELP NDF+9
$$ITEM^PSAUTL NDC
$$CIRN2^PSNAPIS NDF+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P($G(^PSDRUG(+PSAIT,0)),U),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"This drug is currently linked to the following item(s):",!!
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: !!,"Current potential ITEM MASTER file links based on NDC or FSN are:",!!
  • Line Location: QUES1+1
Function Call: WRITE
  • Prompt: "DRUG file NDC: "_PSANDC
  • Line Location: NDC+0
Function Call: WRITE
  • Prompt: ?40,"ITEM NUMBER: "_PSAI,!!,"DESC: "_$$DESCR^PRCPUX1(0,PSAI),!
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: !?60,"* Inactive item"
  • Condition for execution: $G(^PRC(441,+PSAI,3))
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: !?40,"ITEM NUMBER: "_PSAI(PSAZ),!!,"DESC: ",$$DESCR^PRCPUX1(0,PSAI(PSAZ))
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: !?60,"* Inactive item"
  • Condition for execution: $G(^PRC(441,+PSAI(PSAZ),3))
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: " NO NDC MATCH IN ITEM MASTER file.",!!,"DRUG file FSN: "_PSAFSN,?40,"ITEM NUMBER: "_PSAI,!!,"DESC: ",$$DESCR^PRCPUX1(0,PSAI),!
  • Line Location: FSN+1
Function Call: WRITE
  • Prompt: !!,"No NDF link, can't help.",!
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !!,"No NDF link, can't help.",!
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !!,"No matching PACKAGE SIZE in the National Drug File."
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: !!,"No matching PACKAGE TYPE in the National Drug file."
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: !!,"This drug is linked to the NATIONAL DRUG file.",!!,"There may be an NDC there that will link to the ITEM MASTER file.",!
  • Line Location: NDF+1
Function Call: WRITE
  • Prompt: !,"Sorry, there is no entry in the PSNDF VA PRODUCT NAME, cannot find match.",!
  • Line Location: NDF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+1
Function Call: WRITE
  • Prompt: !!,"DRUG file: "_$P(^PSDRUG(PSADRUG,0),U),!!,"Item #: "_PSAI," Desc: ",$$DESCR^PRCPUX1(0,PSAI),!
  • Line Location: BINGO+2
Function Call: WRITE
  • Prompt: " linked."
  • Line Location: BINGO+4
Routine Call
  • DIC
  • Line Location:
    • LOOK
Routine Call
  • DIE
  • Line Location:
    • CON
    • BINGO+4
Routine Call
  • DIR
  • Line Location:
    • QUES1
    • NDF+2
    • NDF+11
    • AGAIN+1
    • BINGO+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] DIS+1, NDC+1, MORE, FSN, FSN+1, BINGO
^PSDRUG - [#50] START+2, DIS, NDC, FSN, CON+1, CON+2, CON+4, CON+5, NDF+5, BINGO+2
^PSDRUG("AB" BINGO+1

Label References

Name Line Occurrences
AGAIN QUES1, CON+1, CON+2, CON+4, CON+5, NDF+2, NDF+5
BINGO NDF+8
QUIT LOOK, QUES1, CON
START AGAIN+1

Naked Globals

Name Field # of Occurrence
^(0 FSN
^(2 NDC

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 PSATI+9~
D1 PSATI+9~
DA PSATI+9~, CON*, BINGO+4*
DIC PSATI+9~, LOOK*!
DIC("S" LOOK*
DIC(0 START+2*, LOOK*
DIE PSATI+9~, CON*!, BINGO+4*
DIR PSATI+9~, QUES1!, NDF+2!, NDF+11!, AGAIN+1!, BINGO+3!
DIR("?" BINGO+3*
DIR("A" QUES1*, NDF+2*, NDF+11*, AGAIN+1*, BINGO+3*
DIR("B" QUES1*, NDF+2*, NDF+11*, AGAIN+1*, BINGO+3*
DIR(0 QUES1*, NDF+2*, NDF+11*, AGAIN+1*, BINGO+3*
DIRUT PSATI+9~, CON*, NDF+2, NDF+11
DLAYGO PSATI+9~
DR PSATI+9~, CON*, BINGO+4*
DTOUT PSATI+9~, LOOK, CON
DUOUT PSATI+9~, LOOK, CON+2!
PSA NDF+8!, NDF+9*, NDF+10*, NDF+11, AGAIN!, QUIT!, BINGO
PSAD AGAIN!, QUIT!
PSADO AGAIN!, QUIT!
PSADRUG LOOK*, DIS, NDC, FSN, CON, CON+1, CON+2, CON+4, CON+5, NDF+5
, AGAIN!, QUIT!, BINGO+2, BINGO+4
PSAF AGAIN!, QUIT!
PSAFSN FSN*, FSN+1, AGAIN!, QUIT!
PSAI DIS*, DIS+1, QUES1, NDC*, NDC+1, MORE, FSN, FSN+1*, FAIL*, AGAIN!
, AGAIN+1!, QUIT!, BINGO*, BINGO+1, BINGO+2
PSAI( MORE*
PSAIAC AGAIN!, QUIT!
PSAILC AGAIN!, QUIT!
PSAIM DIS*, AGAIN!, QUIT!
PSAINV AGAIN!, QUIT!
PSAINVN AGAIN!, QUIT!
PSAIQ AGAIN!, QUIT!
PSAIQT AGAIN!, QUIT!
PSAIT PSATI+9~, START+2, LOOK*, AGAIN+1!, QUIT~
PSAIT(1 QUIT
>> PSALOC QUES1, AGAIN+1
PSANDC NDC*, NDC+1, MORE, NDF+9*, AGAIN!, QUIT!
PSANDCX NDF+9!
PSANDF NDF+7, AGAIN!, QUIT!
PSANDF( NDF+8
PSAOLD NDF+9*!
PSAP AGAIN!, QUIT!
PSAPB AGAIN!, QUIT!
PSAS AGAIN!, AGAIN+1, QUIT!
PSAT AGAIN!, QUIT!
PSATB AGAIN!, QUIT!
PSAU AGAIN!, QUIT!
PSAV AGAIN!, QUIT!
>> PSAVP NDF+5*, NDF+7
PSAZ MORE*, AGAIN!, QUIT!
>> PSX NDF+8*, NDF+9, NDF+10
U START+2, LOOK, DIS, DIS+1, NDC, FSN, CON+2, CON+4, CON+5, BINGO+2
X START+2*, NDF+7*, AGAIN!, QUIT!
Y LOOK, QUES1, CON, NDF+2, NDF+8, NDF+11, AGAIN!, AGAIN+1, QUIT~!, BINGO+3!
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