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

Package: Drug Accountability

Routine: PSAUP1


Information

PSAUP1 ;BIR/JMB-Upload and Process Prime Vendor Invoice Data - CONT'D ;7/23/97

Source Information

Source file <PSAUP1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 C^%DTC  

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

Package Total Caller Graph
Drug Accountability 1 PSAUP  

Entry Points

Name Comments DBIA/ICR reference
XTMP ;This modules copies the prime vendor data in ^TMP("PSAPV SET",$J) to
DUPLICAT ;
DAV
CHKDUP ;Checks for duplicate orders & invoices and duplicates in XTMP.
KILLDUP
PRT2 ;Extended help to second "Print invoices?"
YNPRINT ;Extended help to "Print invoices?"
YNPROCES ;Extended help to "Do you want to process the invoices now?"
YNUPLOAD ;Extended help to "Are you ready to upload the prime vendor invoice data?"
DATES ;PSA*3*12 Check for Y2K compliance of dates

External References

Name Field # of Occurrence
C^%DTC XTMP+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"CHECKING DUPLICATE"
  • Line Location: DUPLICAT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: DAV+7
Function Call: WRITE
  • Prompt: " uploaded and",!," is awaiting processing. It cannot be uploaded more than once."
  • Line Location: CHKDUP+3
Function Call: WRITE
  • Prompt: " processed and",!," is being prepared for verification. It cannot be uploaded more than once."
  • Line Location: CHKDUP+4
Function Call: WRITE
  • Prompt: !,"** Order# "_PSAORD_" Invoice# "_PSAINV
  • Line Location: CHKDUP+15
Function Call: WRITE
  • Prompt: " has been processed"_$S(+PSADT:" on "_PSADT,1:"")_" and",!," is awaiting verification. It cannot be uploaded more than once."
  • Line Location: CHKDUP+17
Function Call: WRITE
  • Prompt: !," has been verified"_$S(+PSADT:" on "_PSADT,1:"")_"and",!," is updating the pharmacy location. It cannot be uploaded more than once."
  • Line Location: CHKDUP+18
Function Call: WRITE
  • Prompt: " has been completed.",!," It cannot be uploaded more than once."
  • Line Location: CHKDUP+19
Function Call: WRITE
  • Prompt: !?5,"Enter YES to print all invoices that are not processed and",!?5,"the invoices that were processed while you were in this option.",!!?5,"Enter NO to exit the option."
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to print the uploaded invoices. You",!?5,"can check the invoices prior to processing them.",!!?5,"Enter NO to not print the invoices."
  • Line Location: YNPRINT+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to begin processing the uploaded invoices.",!!?5,"Enter NO if you do not want to process the invoices now. You can process"
  • Line Location: YNPROCES+1
Function Call: WRITE
  • Prompt: !?5,"them later by selecting the ""Process Uploaded Prime Vendor Invoice Data"" option."
  • Line Location: YNPROCES+2
Function Call: WRITE
  • Prompt: !?5,"Enter YES to start uploading the invoices.",!?5,"Enter NO or ""^"" to exit the option."
  • Line Location: YNUPLOAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.811 - [#58.811] CHKDUP+7, CHKDUP+10, CHKDUP+11, CHKDUP+12, CHKDUP+13, CHKDUP+14
^TMP("PSAPV SET" DUPLICAT+4, DAV+2, DAV+5, DAV+7, DAV+8!, DAV+10, DAV+13, DAV+14, DAV+15, DAV+16
, DAV+17!, CHKDUP+5!, KILLDUP+1!
^XTMP("PSAPV" XTMP+3*, XTMP+6, XTMP+7, XTMP+8, XTMP+10!, DAV+2, DAV+3, DAV+10*, DAV+15*, DAV+16*
, DAV+18!, DAV+19, KILLDUP+1!, DATES+2*, DATES+5*, DATES+6*, DATES+7*

Label References

Name Line Occurrences
CHKDUP DAV+9
DATES DAV+12

Naked Globals

Name Field # of Occurrence
^("IN" DAV+2, DAV+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DATA DAV+2*
>> DATECHK DATES+1*, DATES+2*, DATES+3
>> DAVESET DUPLICAT+4*, DAV+2, DAV+3*, DAV+10, DAV+15, DAV+16, DAV+18, KILLDUP+1, DATES+2, DATES+5
, DATES+6, DATES+7
DT XTMP+3, DATES+4, DATES+5, DATES+6, DATES+7
DT1 DATES+5*, DATES+8!
LWRDT DATES+4*, DATES+5, DATES+8!
PSACHKR DAV+2*, DAV+3!
>> PSACTRL XTMP+6*, XTMP+7, XTMP+8, XTMP+10, XTMP+12, DUPLICAT+3*, DUPLICAT+4*, DAV+1, DAV+2, DAV+5
, DAV+7, DAV+8, DAV+10, DAV+13, DAV+14, DAV+15, DAV+16, DAV+17, CHKDUP+5, KILLDUP+1
>> PSADT CHKDUP+14*, CHKDUP+16*, CHKDUP+17, CHKDUP+18
>> PSADUP DUPLICAT+3*, DAV+5*, DAV+9, KILLDUP*
>> PSADUP( XTMP+11*, CHKDUP+1
>> PSAIN XTMP+8*, XTMP+10, XTMP+11, DAV+7*, DAV+8, CHKDUP+1, CHKDUP+2, CHKDUP+7, CHKDUP+10, CHKDUP+13*
>> PSAINV DAV+13*, DAV+14, CHKDUP+10*, CHKDUP+11, CHKDUP+15
>> PSAINVDT DAV+13*
>> PSAINVN CHKDUP+11*, CHKDUP+12, CHKDUP+13, CHKDUP+14
>> PSALINE DAV+16*, CHKDUP+14*
>> PSAORD DAV+13*, DAV+14, CHKDUP+10*, CHKDUP+15
>> PSAORDDT DAV+13*
>> PSAORDN CHKDUP+10*, CHKDUP+11, CHKDUP+12, CHKDUP+13, CHKDUP+14
>> PSAPC CHKDUP+13*, CHKDUP+14
>> PSASEG DAV+5*, DAV+6, DAV+7, DAV+10, DAV+15, DAV+16
>> PSASTA CHKDUP+1*, CHKDUP+3, CHKDUP+4, CHKDUP+13*, CHKDUP+17, CHKDUP+18, CHKDUP+19
UPPRDT DATES+4*, DATES+5, DATES+8!
X XTMP+3, DATES+2*, DATES+6*, DATES+7*, DATES+8!
>> X1 XTMP+3*
>> X2 XTMP+3*
XX DATES+2*, DATES+6*, DATES+7*, DATES+8!
XXX DATES+2*, DATES+6*, DATES+8!
Y DATES+5*, DATES+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All