Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSPEDIS

Package: IHS Changes To Pharmacy

Routine: APSPEDIS


Information

APSPEDIS ;IHS/DSD/ENM - DISPLAY LAST AWP/DRUG ED UPDATE ;11-Nov-2011 13:47;PLS

Source Information

Source file <APSPEDIS.m>

Entry Points

Name Comments DBIA/ICR reference
INACK
ACTOT ;LOOP DRUG FILE AND COUNT ALL ACTIVE DRUGS
DEU ;GET THE DRUG EDUCATION UPDATE INFO
EXT
EDISP ;EP IHS/ITSC/ENM 11/29/2001 DISPLAY LAST UPDATE DATE AND COUNT
ACT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,"No Benchmark Price Date on File!"
  • Line Location: EDISP+2
Function Call: WRITE
  • Prompt: !,?20,"BENCHMARK PRICE",!,?25,">>> UPDATE STATUS <<<",!
  • Line Location: EDISP+7
Function Call: WRITE
  • Prompt: !,?5,"Last Benchmark price monthly update occurred on.................."_APSPFDB,!
  • Line Location: EDISP+8
Function Call: WRITE
  • Prompt: !,?5,"Most recent 'manual' Benchmark price update was run on..........."_APSPDATE,!
  • Line Location: EDISP+9
Function Call: WRITE
  • Prompt: !,?5,"Total number of DRUGS updated with Benchmark price..............."_APSPTOT,!
  • Line Location: EDISP+10
Function Call: WRITE
  • Prompt: !,?20,">>> ACTIVE DRUGS STATUS <<<"
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: !,?5,"The Total Number of Active Drugs....................."_TOTACT
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !,?10,"No Drug Education File Date on File!"
  • Line Location: DEU+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPCTRL("AWP DATE" EDISP+2, EDISP+3
^APSPCTRL("AWP LAST U-DATE" EDISP+4
^APSPCTRL("AWP UPDATE COUNT" EDISP+4
^DD("DD" EDISP+3, EDISP+6
^PSDRUG - [#50] ACTOT+4, INACK

Label References

Name Line Occurrences
ACT EDISP+2
ACTOT ACT
INACK ACTOT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSAIN ACTOT+3*, INACK*, INACK+1
>> APSAX1 ACTOT+3*, ACTOT+4*, INACK
>> APSPCNT ACTOT+3*, ACTOT+5, INACK+1*
APSPDATE EDISP+1, EDISP+4*, EDISP+5, EDISP+6*, EDISP+9, EXT!
APSPDEX EDISP+1, EXT!
>> APSPFDB EDISP+3*, EDISP+8
APSPTOT EDISP+1, EDISP+4*, EDISP+5, EDISP+10, EXT!
APSPZATE EDISP+1, EDISP+5*, EDISP+6, EXT!
APSPZOT EDISP+1, EDISP+5*, EXT!
>> CT ACTOT+3*, ACTOT+4*, ACTOT+5
DRUGED EXT!
>> TOTACT ACT+2, ACTOT+3*, ACTOT+5*
>> Y EDISP+3*, EDISP+6*
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All