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

Package: Drug Accountability

Routine: PSANDF


Information

PSANDF ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97

Source Information

Source file <PSANDF.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Drug Accountability 3 ^PSAPROC4  MANYUPCS^PSAPROC5  EDITDISP^PSAUTL1  
VA Fileman 2 ^DIC  ^DIR  
National Drug File 1 $$PSA^PSNAPIS  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Drug Accountability 6 PSAPROC4  PSAPROC5  PSAPROC6  PSAPROC9  PSAVER2  PSAVERA2  

Entry Points

Name Comments DBIA/ICR reference
NONE
GETNDC ;Gets NDC for selected drug.
SUPPLY ;Asks if item is a supply. If so, asks for supply info.
LOOKNDF
MANY ;Display for selection if more than 1 drug is found for the Product Name
ONE ;Display for selection if 1 drug is found for that Product Name.
GETUPC ;Gets UPC for selected drug.
ASKDRUG ;If the NDC found by searching NDF is not correct OR if the NDC can't
CHECK

External References

Name Field # of Occurrence
^DIC ASKDRUG+4
^DIR MANY+7, MANY+12, CHECK+8, ONE+5, GETNDC+2, GETUPC+2, SUPPLY+1, SUPPLY+4
^PSAPROC4 NONE+1, MANY+17
MANYUPCS^PSAPROC5 PSANDF+17
EDITDISP^PSAUTL1 MANY+14, ASKDRUG+12, ONE+6
$$PSA^PSNAPIS LOOKNDF

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The NDC has the VA Product Name of "_PSAVAPN_".",!,"The following drugs have the same VA Product Name.",!
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: !!,"If the item will never be in the DRUG, press the Return key then",!,"answer YES to the ""Is this a supply item?"" prompt. To bypass this",!,"line item, enter ""^"" then press the Return key.",!
  • Line Location: ASKDRUG+2
Function Call: WRITE
  • Prompt: !!,"The NDC has the VA Product Name of "_PSAVAPN_"."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !,"You must enter exactly twelve numbers."
  • Line Location: GETNDC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUPPLY+3
Routine Call
  • DIC
  • Line Location:
    • ASKDRUG+4
Routine Call
  • DIR
  • Line Location:
    • MANY+7
    • MANY+12
    • CHECK+8
    • ONE+5
    • GETNDC+2
    • GETUPC+2
    • SUPPLY+1
    • SUPPLY+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] PSANDF+15, LOOKNDF+4, LOOKNDF+5, LOOKNDF+6, NONE+3, CHECK+2
^PSDRUG("C" PSANDF+8, PSANDF+9
^TMP("PSACNT" MANY+3*, MANY+9, MANY+14, MANY+15!
^TMP("PSANDF" LOOKNDF+1!*, LOOKNDF+4, LOOKNDF+5*, NONE+3, MANY+2, MANY+4, MANY+15!, ONE+1, ONE+3, ONE+6!
^XTMP("PSAPV" PSANDF+12, PSANDF+14*, PSANDF+15*, PSANDF+16, NONE+1, MANY+9*, MANY+14*, MANY+17, ASKDRUG+9*, ASKDRUG+10!
, ASKDRUG+11*, CHECK+1*, CHECK+3*, CHECK+5*, CHECK+6, CHECK+9*, CHECK+10*, ONE+6*, SUPPLY+7*

Label References

Name Line Occurrences
ASKDRUG PSANDF+12, NONE+2, MANY+10, ONE+7
GETNDC CHECK+9, GETNDC+3
GETUPC CHECK+10
ONE NONE+3
SUPPLY ASKDRUG+7

Naked Globals

Name Field # of Occurrence
^( PSANDF+14*, NONE+1, MANY+9*, MANY+14*, MANY+17, ASKDRUG+9, ASKDRUG+11*, CHECK+6, CHECK+10*, ONE+6*
, SUPPLY+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC ASKDRUG+3*, ASKDRUG+4!
DIC("A" ASKDRUG+3*
DIC(0 ASKDRUG+3*
DIR MANY+7!, MANY+12!, CHECK+8!, ONE+5!, GETNDC+2!, GETUPC+2!, SUPPLY+1!, SUPPLY+4!
DIR("?" MANY+6*, MANY+7*, MANY+12*, ONE+4*, GETNDC+1*, GETUPC+1*, SUPPLY+1*, SUPPLY+4*
DIR("??" MANY+7*, MANY+12*, CHECK+8*, ONE+4*, GETNDC+1*, GETUPC+1*, SUPPLY+1*, SUPPLY+4*
DIR("A" MANY+6*, MANY+11*, CHECK+8*, ONE+3*, GETNDC+1*, GETUPC+1*, SUPPLY+1*, SUPPLY+3*
DIR("B" CHECK+8*, ONE+3*
DIR(0 MANY+6*, MANY+11*, CHECK+8*, ONE+3*, GETNDC+1*, GETUPC+1*, SUPPLY+1*, SUPPLY+3*
>> DIRUT CHECK+8, ONE+5, GETNDC+2, GETUPC+2, SUPPLY+1
DT MANY+9, MANY+14, ASKDRUG+9, ASKDRUG+11, ONE+6
>> DTOUT MANY+8, MANY+13, ASKDRUG+4, SUPPLY+4
>> DUOUT MANY+7, ASKDRUG+4, SUPPLY+4
DUZ MANY+9, MANY+14, ASKDRUG+9, ASKDRUG+11, ONE+6
>> PSACNT PSANDF+7*, PSANDF+9*, PSANDF+10, PSANDF+13, PSANDF+17*, LOOKNDF*, LOOKNDF+5, NONE, NONE+3, MANY+2*
, MANY+3*, MANY+4, MANY+5, MANY+6, MANY+10, MANY+11, MANY+15
>> PSACTRL PSANDF+12, PSANDF+14, PSANDF+15, PSANDF+16, NONE+1, MANY+9, MANY+14, MANY+17, ASKDRUG+9, ASKDRUG+10
, ASKDRUG+11, CHECK+1, CHECK+3, CHECK+5, CHECK+6, CHECK+9, CHECK+10, ONE+6, SUPPLY+7
>> PSADATA PSANDF+5, PSANDF+6, PSANDF+7, PSANDF+12*, PSANDF+16*, MANY+14*, ASKDRUG+9*, ASKDRUG+11*
>> PSAFND CHECK+1*, CHECK+2*, CHECK+3
>> PSAGET MANY+2*, MANY+5, MANY+7*
>> PSAIEN PSANDF+14*, PSANDF+15, MANY+2, MANY+5, MANY+9*, MANY+10, MANY+14*, MANY+16, ASKDRUG+9*, ASKDRUG+10*
, CHECK+2, ONE+6*
>> PSAIEN50 PSANDF+7*, PSANDF+8*, PSANDF+9, MANY+2*, MANY+3, MANY+4, ONE+1*, ONE+3, ONE+6
>> PSALINE PSANDF+12, PSANDF+14, PSANDF+15, PSANDF+16, NONE+1, MANY+9, MANY+14, MANY+17, ASKDRUG+9, ASKDRUG+10
, ASKDRUG+11, CHECK+1, CHECK+3, CHECK+5, CHECK+6, CHECK+9, CHECK+10, ONE+6, SUPPLY+7
PSALIST LOOKNDF, LOOKNDF+6, LOOKNDF+7!
PSALIST( LOOKNDF+1, LOOKNDF+5
PSALIST(0 LOOKNDF+6
>> PSANDC PSANDF+5, PSANDF+15*, LOOKNDF, CHECK, CHECK+1, CHECK+2, CHECK+9*, CHECK+10*
>> PSAOUT MANY+8*, MANY+10, MANY+13*, MANY+16, ASKDRUG+4*, ASKDRUG+7, CHECK+8*, CHECK+9, CHECK+10, ONE+5*
, GETNDC+2*, GETUPC+2*, SUPPLY+4*
>> PSAPASS ASKDRUG+3*, SUPPLY+2*
>> PSAREA ASKDRUG+5*, ASKDRUG+9, SUPPLY+4*, SUPPLY+5*
>> PSASKIP ASKDRUG+3*, ASKDRUG+6, ASKDRUG+8*
>> PSASSUB PSANDF+9*
>> PSASUB PSANDF+14*, PSANDF+15, CHECK+2*, CHECK+3
PSASUP PSANDF+7!*, PSANDF+8, PSANDF+9, PSANDF+15
PSASUP( PSANDF+9*
PSASUP(0 PSANDF+17
PSASUP(1 PSANDF+14
>> PSASUPP ASKDRUG+6, ASKDRUG+8, SUPPLY+1*, SUPPLY+2
>> PSAUPC CHECK+10*
>> PSAVAPN LOOKNDF+4*, LOOKNDF+6*, NONE+3*, MANY+1, ONE+2
>> PSAVER SUPPLY+6
>> PSAVSN PSANDF+15*
X LOOKNDF*, LOOKNDF+1*, LOOKNDF+5*, LOOKNDF+7!
XX LOOKNDF+4*!
>> Y MANY+9, MANY+10, MANY+12, MANY+14, ASKDRUG+6, ASKDRUG+10, ASKDRUG+11, CHECK+9, CHECK+10, ONE+6
, GETNDC+3, SUPPLY+1, SUPPLY+4
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