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

Package: Drug Accountability

Routine: PSAPROC4


Information

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

Source Information

Source file <PSAPROC4.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Drug Accountability 3 ASKDRUG^PSANDF  HDR^PSAPROC6  EDIT1^PSAUTL1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Drug Accountability 3 PSANDF  PSAPROC5  PSAPROC9  

Entry Points

Name Comments DBIA/ICR reference
MANYNDCS ;List drug synonym data & ask user which on to use
DIFFV ;If more than one drug with different VSN, assign to correct drug.
LIST
SAMEV ;If more than one drug with same NDC, assign to correct drug.
SAME ;If more than one drug with same VSN, assign to correct drug.
MANYVSNS ;List drug synonym data & ask user which on to use
KILL
CHOOSE
DIFF ;If more than one drug with different VSN, assign to correct drug.
NDCHELP ;Extended help for selecting invoiced drug

External References

Name Field # of Occurrence
^DIR CHOOSE+3
ASKDRUG^PSANDF SAME+7, DIFF+7, SAMEV+7, DIFFV+7
HDR^PSAPROC6 SAME+13, DIFF+13, SAMEV+13, DIFFV+14
EDIT1^PSAUTL1 SAME+13, DIFF+13, SAMEV+13, DIFFV+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file",!,"with the same NDC and Vendor Stock Number.",!
  • Line Location: SAME+1
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file with the same NDC.",!
  • Line Location: DIFF+1
Function Call: WRITE
  • Prompt: !?1,PSAMENU_".",?4,$P($G(^PSDRUG(PSAIEN50,0)),"^")
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: ?60,"(INACTIVE)"
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !,?4,"NDC : "_$P(PSANODE,"^",2)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !?4,"Order Unit: "_$P(^DIC(51.5,+$P(PSANODE,"^",5),0),"^"),?45,"Price Per Order Unit : $"_$S(+$P(PSANODE,"^",6):$P(PSANODE,"^",6),1:"(Blank)")
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !?4,"Price Per Order Unit: $"_$P(PSANODE,"^",6)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !?1,PSAMENU,".",?4,"Select another drug."
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOSE+2
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file",!,"with the same NDC and Vendor Stock Number.",!
  • Line Location: SAMEV+1
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file with the same VSN.",!
  • Line Location: DIFFV+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoiced drug. If you select a drug",!?5,"from the list, the invoiced drug will be matched to that drug. If you"
  • Line Location: NDCHELP+1
Function Call: WRITE
  • Prompt: !?5,"choose to select another drug, you can select the invoiced drug from the",!?5,"DRUG file or flag this item as a supply item."
  • Line Location: NDCHELP+2
Routine Call
  • DIR
  • Line Location:
    • CHOOSE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] LIST+4
^PSDRUG - [#50] MANYNDCS+4, MANYNDCS+6, MANYNDCS+7, MANYNDCS+8, SAME+3, SAME+4, DIFF+3, DIFF+4, LIST, LIST+1
, MANYVSNS+4, MANYVSNS+6, MANYVSNS+7, MANYVSNS+8, SAMEV+3, SAMEV+4, DIFFV+3, DIFFV+4, DIFFV+12
^PSDRUG("AVSN" MANYVSNS+2, MANYVSNS+3
^PSDRUG("C" MANYNDCS+2, MANYNDCS+3
^XTMP("PSAPV" MANYNDCS+1, SAME+9*, SAME+10, SAME+11*, SAME+12, DIFF+9*, DIFF+10, DIFF+11*, DIFF+12, MANYVSNS+1
, SAMEV+9*, SAMEV+10, SAMEV+11*, SAMEV+12, DIFFV+9*, DIFFV+10, DIFFV+11*, DIFFV+12*, DIFFV+13

Label References

Name Line Occurrences
CHOOSE SAME+6, DIFF+6, SAMEV+6, DIFFV+6
DIFF MANYNDCS+9
DIFFV MANYVSNS+9
KILL SAME+7, SAME+14, DIFF+7, SAMEV+7, SAMEV+14, DIFFV+7, DIFFV+15
LIST SAME+5, DIFF+5, SAMEV+5, DIFFV+5
SAME MANYNDCS+9
SAMEV MANYVSNS+9

Naked Globals

Name Field # of Occurrence
^( SAME+9*, SAME+11*, DIFF+9*, DIFF+11*, SAMEV+9*, SAMEV+11*, DIFFV+9*, DIFFV+11*
^("IN" SAME+12*, DIFF+12*, SAMEV+12*, DIFFV+13*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CHOOSE+3!
DIR("?" CHOOSE+2*
DIR("??" CHOOSE+2*
DIR("A" CHOOSE+2*
DIR(0 CHOOSE+2*
DT SAME+11, DIFF+11, SAMEV+11, DIFFV+11
>> DTOUT CHOOSE+3
>> DUOUT CHOOSE+3
DUZ SAME+11, DIFF+11, SAMEV+11, DIFFV+11
>> PSACNT MANYNDCS+1*, MANYNDCS+8*, MANYNDCS+9, SAME+2*, SAME+3, DIFF+2*, DIFF+3, MANYVSNS+1*, MANYVSNS+8*, MANYVSNS+9
, SAMEV+2*, SAMEV+3, DIFFV+2*, DIFFV+3
>> PSACTRL MANYNDCS+1, SAME+9, SAME+10, SAME+11, SAME+12, DIFF+9, DIFF+10, DIFF+11, DIFF+12, MANYVSNS+1
, SAMEV+9, SAMEV+10, SAMEV+11, SAMEV+12, DIFFV+9, DIFFV+10, DIFFV+11, DIFFV+12, DIFFV+13
>> PSADATA SAME+9*, SAME+11*, DIFF+9*, DIFF+11*, SAMEV+9*, SAMEV+11*, DIFFV+11*
PSADIFF MANYNDCS+1!, MANYVSNS+1!
PSADIFF( MANYNDCS+8*, DIFF+2, DIFF+3, DIFF+9, DIFF+10, DIFF+11, MANYVSNS+8*, DIFFV+2, DIFFV+3, DIFFV+9
, DIFFV+10, DIFFV+11, DIFFV+12
PSAFND MANYNDCS+1*, MANYNDCS+7*, MANYNDCS+9, KILL!, MANYVSNS+1*, MANYVSNS+7*, MANYVSNS+9
>> PSAIEN50 MANYNDCS+1*, MANYNDCS+2*, MANYNDCS+3, MANYNDCS+4, MANYNDCS+6, MANYNDCS+7, MANYNDCS+8, SAME+3*, SAME+4, DIFF+3*
, DIFF+4, LIST, LIST+1, MANYVSNS+1*, MANYVSNS+2*, MANYVSNS+3, MANYVSNS+4, MANYVSNS+6, MANYVSNS+7, MANYVSNS+8
, SAMEV+3*, SAMEV+4, DIFFV+3*, DIFFV+4
>> PSAIN SAME+12*, DIFF+12*, SAMEV+12*, DIFFV+13*
>> PSALINE MANYNDCS+1, SAME+9, SAME+10, SAME+11, DIFF+9, DIFF+10, DIFF+11, MANYVSNS+1, SAMEV+9, SAMEV+10
, SAMEV+11, DIFFV+9, DIFFV+10, DIFFV+11, DIFFV+12
>> PSAMENU SAME+2*, SAME+3*, SAME+7, SAME+8, DIFF+2*, DIFF+3*, DIFF+7, DIFF+8, LIST+1, CHOOSE*
, CHOOSE+1, CHOOSE+2, SAMEV+2*, SAMEV+3*, SAMEV+7, SAMEV+8, DIFFV+2*, DIFFV+3*, DIFFV+7, DIFFV+8
>> PSANDC MANYNDCS+1*, MANYNDCS+2, MANYNDCS+3, SAME+9, DIFF+9, MANYVSNS+7, MANYVSNS+8, DIFFV+12*
>> PSANEXT SAME+9*, SAME+11*, DIFF+9*, DIFF+11*, SAMEV+9*, SAMEV+11*, DIFFV+9*
>> PSANODE SAME+3*, DIFF+3*, LIST, LIST+3, LIST+4, LIST+5, LIST+6, LIST+7, SAMEV+3*, DIFFV+3*
>> PSAOUT SAME+5, SAME+6, DIFF+5, DIFF+6, CHOOSE+3*, SAMEV+5, SAMEV+6, DIFFV+5, DIFFV+6
>> PSAPICK SAME+7, SAME+8, SAME+9, SAME+10, SAME+11, DIFF+7, DIFF+8, DIFF+9, DIFF+10, DIFF+11
, CHOOSE+4*, SAMEV+7, SAMEV+8, SAMEV+9, SAMEV+10, SAMEV+11, DIFFV+7, DIFFV+8, DIFFV+9, DIFFV+10
, DIFFV+11, DIFFV+12
PSASAME MANYNDCS+1!, KILL!, MANYVSNS+1!
PSASAME( MANYNDCS+7*, SAME+2, SAME+3, SAME+9, SAME+10, SAME+11, MANYVSNS+7*, SAMEV+2, SAMEV+3, SAMEV+9
, SAMEV+10, SAMEV+11
>> PSASYN MANYNDCS+2*, MANYNDCS+3*, MANYNDCS+4, MANYNDCS+7, MANYNDCS+8, SAME+3*, SAME+4, DIFF+3*, DIFF+4, MANYVSNS+2*
, MANYVSNS+3*, MANYVSNS+4, MANYVSNS+7, MANYVSNS+8, SAMEV+3*, SAMEV+4, DIFFV+3*, DIFFV+4
>> PSAVSN MANYNDCS+7, MANYNDCS+8, MANYVSNS+1*, MANYVSNS+2, MANYVSNS+3, SAMEV+9, DIFFV+9
>> Y SAME+6, DIFF+6, CHOOSE+4, SAMEV+6, DIFFV+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All