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

Package: Drug Accountability

Routine: PSAPROC5


Information

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

Source Information

Source file <PSAPROC5.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Drug Accountability 2 ASKDRUG^PSANDF  (KILL,LIST)^PSAPROC4  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Drug Accountability 2 PSANDF  PSAPROC9  

Entry Points

Name Comments DBIA/ICR reference
MANYUPCS ;List supply synonym data & ask user which on to use
SAMEU ;If more than one drug with same VSN, assign to correct drug.
DIFFU ;If more than one supply with different UPC, assign to correct drug.
CHOOSEU
NDCDIFF ;If New NDC is correct, remove "~" piece with questionable NDC in ^XTMP.
SUPDIFF ;If New UPC is correct, remove "~" piece with questionable UPC in ^XTMP.
VSNDIFF ;If New VSN is correct, remove "~" piece with questionable VSN in ^XTMP.
NEWOLD ;Extended help to 'Is new VSN correct'
NEWOLDN ;Extended help to 'Is new NDC correct'
NEWUPC ;Extended help to 'Is new UPC correct'
UPCHELP ;Extended help for selecting invoiced supply

External References

Name Field # of Occurrence
^DIR CHOOSEU+3, NDCDIFF+7, SUPDIFF+6, VSNDIFF+6
ASKDRUG^PSANDF SAMEU+8, DIFFU+7
KILL^PSAPROC4 SAMEU+8, SAMEU+12, DIFFU+7, DIFFU+11
LIST^PSAPROC4 SAMEU+6, DIFFU+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is more than one supply in the DRUG file",!,"with the same UPC and Vendor Stock Number.",!
  • Line Location: SAMEU+1
Function Call: WRITE
  • Prompt: !!,"There is more than one supply in the DRUG file with the same UPC.",!
  • Line Location: DIFFU+1
Function Call: WRITE
  • Prompt: !?1,PSAMENU_".",?4,"Select another item."
  • Line Location: CHOOSEU+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOSEU+2
Function Call: WRITE
  • Prompt: !!,"There is a change in Vendor Stock Number's NDC."
  • Line Location: NDCDIFF+3
Function Call: WRITE
  • Prompt: !,"New NDC: "_PSANDC_" "
  • Line Location: NDCDIFF+4
Function Call: WRITE
  • Prompt: !,"Old NDC: "_$P($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",5),"~",3),!
  • Line Location: NDCDIFF+5
Function Call: WRITE
  • Prompt: !!,"There is a change in item's Universal Product Code (UPC)."
  • Line Location: SUPDIFF+2
Function Call: WRITE
  • Prompt: !,"New UPC: "_PSAUPC
  • Line Location: SUPDIFF+3
Function Call: WRITE
  • Prompt: !,"Old UPC: "_$P($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",26),"~",3),!
  • Line Location: SUPDIFF+4
Function Call: WRITE
  • Prompt: !!,"There is a change in the NDC's Vendor Stock Number (VSN)."
  • Line Location: VSNDIFF+2
Function Call: WRITE
  • Prompt: !,"New VSN: "_PSAVSN_" "
  • Line Location: VSNDIFF+3
Function Call: WRITE
  • Prompt: !,"Old VSN: "_$P($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",4),"~",3),!
  • Line Location: VSNDIFF+4
Function Call: WRITE
  • Prompt: !?5,"Enter Yes to add another synonym for the NDC with the new VSN.",!?5,"Enter No to discard the new VSN."
  • Line Location: NEWOLD+1
Function Call: WRITE
  • Prompt: !?5,"Enter Yes to add another synonym for the NDC with the new NDC.",!?5,"Enter No to discard the new NDC."
  • Line Location: NEWOLDN+1
Function Call: WRITE
  • Prompt: !?5,"Enter Yes to add another synonym for the NDC with the new UPC.",!?5,"Enter No to discard the new UPC."
  • Line Location: NEWUPC+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the invoiced item. If you select an item from the",!?5,"list, the invoice data will be added to that item. If you select to"
  • Line Location: UPCHELP+1
Function Call: WRITE
  • Prompt: !?5,"add a new entry in the DRUG file for the invoiced item, a new",!?5,"synonym for the item will be added to the DRUG file."
  • Line Location: UPCHELP+2
Routine Call
  • DIR
  • Line Location:
    • CHOOSEU+3
    • NDCDIFF+7
    • SUPDIFF+6
    • VSNDIFF+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] MANYUPCS+5, MANYUPCS+7, MANYUPCS+8, MANYUPCS+9, SAMEU+4, SAMEU+5, DIFFU+3, DIFFU+4
^PSDRUG("C" MANYUPCS+3, MANYUPCS+4
^XTMP("PSAPV" SAMEU+8*, SAMEU+10*, SAMEU+11, DIFFU+7*, DIFFU+9*, DIFFU+10, NDCDIFF+5, NDCDIFF+8*, NDCDIFF+9*, SUPDIFF+4
, SUPDIFF+8*, SUPDIFF+9*, VSNDIFF+4, VSNDIFF+7*, VSNDIFF+8*

Label References

Name Line Occurrences
CHOOSEU SAMEU+7, DIFFU+6
DIFFU MANYUPCS+10
SAMEU MANYUPCS+10

Naked Globals

Name Field # of Occurrence
^( SAMEU+8, SAMEU+10*, DIFFU+7, DIFFU+9*, NDCDIFF+8*, NDCDIFF+9*, SUPDIFF+8*, SUPDIFF+9*, VSNDIFF+7*, VSNDIFF+8*
^("IN" SAMEU+11*, DIFFU+10*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CHOOSEU+3!, NDCDIFF+7!, SUPDIFF+6!, VSNDIFF+6!
DIR("?" CHOOSEU+2*, NDCDIFF+6*, SUPDIFF+5*, VSNDIFF+5*
DIR("??" CHOOSEU+2*, NDCDIFF+7*, SUPDIFF+6*, VSNDIFF+6*
DIR("A" CHOOSEU+2*, NDCDIFF+6*, SUPDIFF+5*, VSNDIFF+5*
DIR("B" NDCDIFF+6*, SUPDIFF+5*, VSNDIFF+5*
DIR(0 CHOOSEU+2*, NDCDIFF+6*, SUPDIFF+5*, VSNDIFF+5*
>> DIRUT CHOOSEU+3, NDCDIFF+7, SUPDIFF+6, VSNDIFF+6
>> PSACNT MANYUPCS+2*, MANYUPCS+9*, MANYUPCS+10, SAMEU+2*, SAMEU+3*, SAMEU+4, DIFFU+2*, DIFFU+3
>> PSACTRL SAMEU+8, SAMEU+10, SAMEU+11, DIFFU+7, DIFFU+9, DIFFU+10, NDCDIFF+5, NDCDIFF+8, NDCDIFF+9, SUPDIFF+4
, SUPDIFF+8, SUPDIFF+9, VSNDIFF+4, VSNDIFF+7, VSNDIFF+8
>> PSADATA MANYUPCS+2, SAMEU+8*, SAMEU+10*, DIFFU+7*, DIFFU+9*, NDCDIFF+8*, NDCDIFF+9*, SUPDIFF+7, SUPDIFF+8*, SUPDIFF+9*
, VSNDIFF+7*, VSNDIFF+8*
PSADIFF MANYUPCS+1!
PSADIFF( MANYUPCS+9*, DIFFU+2, DIFFU+3, DIFFU+9
>> PSAFND MANYUPCS+2*, MANYUPCS+8*, MANYUPCS+10
>> PSAIEN50 MANYUPCS+2*, MANYUPCS+3*, MANYUPCS+4, MANYUPCS+5, MANYUPCS+7, MANYUPCS+8, MANYUPCS+9, SAMEU+4*, SAMEU+5, DIFFU+3*
, DIFFU+4
>> PSAIN SAMEU+11*, DIFFU+10*
>> PSALINE SAMEU+8, SAMEU+10, DIFFU+7, DIFFU+9, NDCDIFF+5, NDCDIFF+8, NDCDIFF+9, SUPDIFF+4, SUPDIFF+8, SUPDIFF+9
, VSNDIFF+4, VSNDIFF+7, VSNDIFF+8
>> PSAMENU SAMEU+2*, SAMEU+4*, SAMEU+8, SAMEU+9, DIFFU+2*, DIFFU+3*, DIFFU+7, DIFFU+8, CHOOSEU*, CHOOSEU+1
, CHOOSEU+2
>> PSANDC MANYUPCS+2*, MANYUPCS+3, MANYUPCS+4, SAMEU+10, DIFFU+9, NDCDIFF+4, NDCDIFF+8, SUPDIFF+7*, SUPDIFF+8, SUPDIFF+9
, VSNDIFF+7, VSNDIFF+8
>> PSANEXT SAMEU+8*, SAMEU+10*, DIFFU+7*, DIFFU+9*, NDCDIFF+8*, NDCDIFF+9*, SUPDIFF+8*, SUPDIFF+9*, VSNDIFF+7*, VSNDIFF+8*
>> PSANODE SAMEU+4*, DIFFU+3*
>> PSAOUT SAMEU+6, SAMEU+7, SAMEU+8, DIFFU+5, DIFFU+6, DIFFU+7, CHOOSEU+3*, NDCDIFF+7*, SUPDIFF+6*, VSNDIFF+6*
>> PSAPICK SAMEU+8, SAMEU+9, SAMEU+10, DIFFU+7, DIFFU+8, DIFFU+9, CHOOSEU+4*
PSASAME MANYUPCS+1!
PSASAME( MANYUPCS+8*, SAMEU+3, SAMEU+4, SAMEU+10
>> PSASUP MANYUPCS+2*, SAMEU+8, SAMEU+10, DIFFU+7, DIFFU+9
>> PSASYN MANYUPCS+3*, MANYUPCS+4*, MANYUPCS+5, MANYUPCS+8, MANYUPCS+9, SAMEU+4*, SAMEU+5, DIFFU+3*, DIFFU+4
>> PSAUPC SUPDIFF+3, SUPDIFF+8
>> PSAVSN MANYUPCS+8, MANYUPCS+9, NDCDIFF+8, NDCDIFF+9, VSNDIFF+3, VSNDIFF+7
>> Y CHOOSEU+4, NDCDIFF+8, SUPDIFF+8, VSNDIFF+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All