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

Package: Drug Accountability

Routine: PSAPROC6


Information

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

Source Information

Source file <PSAPROC6.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Drug Accountability 8 (ASKDRUG,CHECK)^PSANDF  END^PSAPROC  (DUOU,GETOU,PRICE,QTY,RECD,SETLINE)^PSAPROC3  ^PSAPROC7  (DU,DUOU,REORDER,STOCK)^PSAPROC8  MASTER^PSAPROC9  (EDITDISP,SITES)^PSAUTL1  ^PSAUTL5  
VA FileMan 2 ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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 PSAPROC1  PSAPROC2  PSAPROC4  

Entry Points

Name Comments DBIA/ICR reference
SEL ;Loops thru selected invoices
CHECK ;Looks to see if all line items are processed
CHG ;Asks if invoice's status should be changed to verified. If so, status
CORR
LOC
LINES
EDITITEM
FIELDS
PROCESS ;Checks for & prompts for missing data.
MV ;Assigns master vault
PHARM ;Assigns pharmacy location
SUPPLY ;Asks if all items are supply items. If so, invoice is deleted from
NO
HDR ;Screen header
CHGYN ;Extended help - 'Do you want to change the invoice's status to Processed'
DQOR ;Extended help - 'Edit field'
LNHELP ;Extended help - 'Line Number"
ALLSUP ;Extended help - "Are all the items on the invoice supply items" &

External References

Name Field # of Occurrence
^DIC MV+3
^DIR CHG+3, LINES+6, EDITITEM+5, SUPPLY+4, SUPPLY+7
ASKDRUG^PSANDF FIELDS+1
CHECK^PSANDF PROCESS+21
END^PSAPROC CHECK+11, CHECK+13
DUOU^PSAPROC3 FIELDS+4, PROCESS+11
GETOU^PSAPROC3 FIELDS+3, PROCESS+6, PROCESS+7
PRICE^PSAPROC3 PROCESS+12
QTY^PSAPROC3 FIELDS+2
RECD^PSAPROC3 CORR+2
SETLINE^PSAPROC3 PROCESS+21
^PSAPROC7 CHG+10
DU^PSAPROC8 FIELDS+4
DUOU^PSAPROC8 PROCESS+9
REORDER^PSAPROC8 FIELDS+6, PROCESS+16, PROCESS+20
STOCK^PSAPROC8 FIELDS+5, PROCESS+15, PROCESS+19
MASTER^PSAPROC9 CHECK+8
EDITDISP^PSAUTL1 LINES+14, EDITITEM+6
SITES^PSAUTL1 LOC+3
^PSAUTL5 PHARM+6
$$FMTE^XLFDT HDR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"All drugs on the invoice are marked as a controlled substance."
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Processed status!"
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CHG+2
Function Call: WRITE
  • Prompt: !!,"** The invoice's status has not been changed to Processed."
  • Line Location: CHG+4
Function Call: WRITE
  • Prompt: !!,"The invoice status has been changed to Processed!"
  • Line Location: CHG+7
Function Call: WRITE
  • Prompt: !!,"MASTER VAULT: "_$P($G(^PSD(58.8,PSAMV,0)),"^")
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: !!,"Line Item Numbers: "
  • Line Location: LINES+0
Function Call: WRITE
  • Prompt: ?19,PSALINE
  • Line Location: LINES+1
Function Call: WRITE
  • Prompt: !,?19,PSALINE
  • Line Location: LINES+3
Function Call: WRITE
  • Prompt: !,"Invalid line number."
  • Line Location: LINES+9
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: LINES+14
Function Call: WRITE
  • Prompt: !,"5. Stock Level",!,"6. Reorder Level"
  • Line Location: EDITITEM+3
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: EDITITEM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SUPPLY+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUPPLY+6
Function Call: WRITE
  • Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>",!,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES if the invoice is completely correct. You will not be able",!?5,"to edit it again."
  • Line Location: CHGYN+1
Function Call: WRITE
  • Prompt: !!?5,"Enter NO if you need to edit the invoice again. You can edit it again",!?5,"by selecting the Process Orders option."
  • Line Location: CHGYN+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number or range of numbers of the field you want to edit."
  • Line Location: DQOR+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the item on the invoice you want to edit. You can",!?5,"enter a line item number then edit that line item. The ""Line Number""",!?5,"prompt will be displayed again. You can keep entering and editing line"
  • Line Location: LNHELP+1
Function Call: WRITE
  • Prompt: !?5,"items until you press the Return key at the ""Line Number"" prompt."
  • Line Location: LNHELP+2
Function Call: WRITE
  • Prompt: !!?5,"Enter YES if none of the line items on the invoice are",!?5,"in the DRUG file and will never be in the DRUG file.",!!?5,"Enter NO if there is at least one line item on the",!?5,"invoice that is in the DRUG file."
  • Line Location: ALLSUP+2
Routine Call
  • DIC
  • Line Location:
    • MV+3
Routine Call
  • DIR
  • Line Location:
    • CHG+3
    • LINES+6
    • EDITITEM+5
    • SUPPLY+4
    • SUPPLY+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] CHECK+8, LOC, LOC+3, EDITITEM+3, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20
, MV+1
^PSDRUG - [#50] FIELDS+4, PROCESS+6, PROCESS+9
^XTMP("PSAPV" CHECK+2, CHECK+3, CHECK+7*, CHECK+8, CHECK+9*, CHECK+10*, CHG+4*, CHG+5*, CORR+1, LINES+1
, LINES+2, LINES+9, LINES+10, PROCESS+1, PROCESS+2, MV+4*, PHARM+6*, NO+1*, NO+2, NO+3*

Label References

Name Line Occurrences
CHECK SEL+1
CHG CHECK+11
CORR SEL+1
EDITITEM LINES+15
HDR CORR+2
MV LOC
NO SUPPLY+5
PHARM LOC+5
PROCESS FIELDS+7

Naked Globals

Name Field # of Occurrence
^("IN" CHECK+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC MV+1*, MV+3!
DIC("A" MV+1*
DIC("B" MV+1*
DIC("S" MV+2*
DIC(0 MV+1*
DIR CHG+3!, LINES+6!, EDITITEM+5!, SUPPLY+4!, SUPPLY+7!
DIR("?" CHG+2*, LINES+5*, EDITITEM+4*, SUPPLY+3*, SUPPLY+6*
DIR("??" CHG+3*, LINES+5*, EDITITEM+4*, SUPPLY+4*, SUPPLY+7*
DIR("A" CHG+2*, LINES+5*, EDITITEM+4*, SUPPLY+2*, SUPPLY+6*
DIR("B" SUPPLY+2*, SUPPLY+6*
DIR(0 CHG+2*, LINES+5*, EDITITEM+4*, SUPPLY+2*, SUPPLY+6*
>> DIRUT CHG+4, SUPPLY+4, SUPPLY+7
DT NO+3
>> DTOUT LINES+6, EDITITEM+5, MV+3
>> DUOUT LINES+6, EDITITEM+5, MV+3
DUZ NO+3
IOF HDR+1
>> PSA NO, NO+1
>> PSACHG CHG+4*, CHG+5*
>> PSACHO EDITITEM+2*, EDITITEM+3*, EDITITEM+4
>> PSACNTER NO*
>> PSACOMB LOC+3
>> PSACS CHECK+1*, CHECK+5*, CHECK+6, CHECK+10, CORR*
>> PSACTRL CHECK+2, CHECK+3, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHG+4, CHG+5, CORR*, CORR+1
, LINES+1, LINES+2, LINES+9, LINES+10, PROCESS+1, PROCESS+2, MV+4, PHARM+6, NO+1, NO+2
, NO+3
>> PSADATA CHECK+3*, CHECK+4, CHECK+5, LINES+10*, LINES+11, LINES+12, LINES+13, PROCESS+2*, PROCESS+3, PROCESS+5
, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20
>> PSADONE LINES*, LINES+7*
>> PSADU EDITITEM+6*, PROCESS+9*
>> PSAERR CHECK+1*
>> PSAERR( CHG+6!, CORR, NO*
>> PSAFLD FIELDS*, FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6
>> PSAFLDS EDITITEM+6*, FIELDS
>> PSAIEN LINES+11*, FIELDS+4, PROCESS+3*, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+11, PROCESS+15, PROCESS+16, PROCESS+19
, PROCESS+20
>> PSAIN CORR+1*, LOC, LOC+1, LINES+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20
, MV+4*, PHARM+6*, HDR+1
>> PSALINE CHECK+1*, CHECK+2*, CHECK+3, LINES+1*, LINES+2*, LINES+3, LINES+4, LINES+8*, LINES+9, LINES+10
, PROCESS+1, PROCESS+2, NO+1*, NO+2*, NO+3
>> PSALINES CHECK+1*, CHECK+4*, CHECK+11, CORR*
>> PSALNCNT CHECK+1*, CHECK+3*, CHECK+6, CHECK+11, CORR*
>> PSALNSU CHECK+1*
>> PSALOC CORR+1*, LOC+3, LINES+13*, EDITITEM+3, PROCESS+15*, PROCESS+16*, PROCESS+19*, PROCESS+20*, PHARM+6
>> PSALOCN LOC+3*, LOC+5
>> PSAMENU SEL+1*, CHG+6, CORR
>> PSAMV CORR+1*, LOC, MV+1, MV+4*
>> PSANDC LINES+12*
>> PSAOK( NO!, NO+1!
>> PSAOUT SEL+1, CHECK+1*, CORR+2, LOC, LOC+1, LINES, LINES+6*, EDITITEM+5*, FIELDS, FIELDS+7
, PROCESS+5, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+15, PROCESS+16, PROCESS+19, PROCESS+20, PROCESS+21, MV+3*
, SUPPLY+4*, SUPPLY+7*
>> PSAPC SEL+1*
>> PSAPCF FIELDS*
>> PSARECD CORR+1*
>> PSASEL SEL+1
>> PSASLN LINES+14, EDITITEM+6, HDR+1
>> PSASUB LINES+12*, PROCESS+3*, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+11
>> PSASUP CHECK+1*, LINES+12*, NO+1*
>> PSAVSN LINES+12*
>> X LINES+7, LINES+8
>> Y CHG+4, CHG+5, EDITITEM+6, MV+3, MV+4, SUPPLY+5, NO
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