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

Package: IHS Changes To Pharmacy

Routine: APSAWP11


Information

APSAWP11 ;IHS/ITSC/ENM/POC - ACQUISITION COST FILE READ ;12-Feb-2008 15:59;SM

Source Information

Source file <APSAWP11.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ($$LIST,$$OPEN,$$STATUS,CLOSE)^%ZISH  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 2 ^DIE  ^DIR  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
DIR(O,A,B) ;
SORT
EN ;ENTRY POINT TO IMPORT ACTUAL ACQUISTION COST FILE
HDR2
REP1 ;ENTRY POINT FOR NO ACTUAL ACQUISTION COST IN THE DRUG FILE
FLETCH ;
HDR1
CLOSE(IO) ;
EN1(APSPPATH,APSPFILE) ;
CHECK() ;CHECK FOR ONLY ONE FILE (THAT'S NOT NONE OR MORE THAN ONE)
TRANS(VAL) ;
CLEAN ;
REPORT ;
REP ;ENTRY POINT TO PRINT OUT THE ERROR ACTUAL ACQUISTION FILE ENTRIES
REP1PRT ;
ERR(VALUE,APSANUM,APSANDC) ;
HDR

External References

Name Field # of Occurrence
^%ZIS REP+4, REP1+12
HOME^%ZIS REP+8, REP1+16
^%ZISC REPORT+11, REP1PRT+11
$$LIST^%ZISH EN+22
$$OPEN^%ZISH EN+25
$$STATUS^%ZISH FLETCH+3
CLOSE^%ZISH CLOSE+1
^%ZTLOAD REP+8, REP1+16
^DIE FLETCH+21
^DIR DIR+2
EN^XBVK CLEAN+1
$$FMTE^XLFDT EN+7

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 5
  • Variable: APSANODE
  • Line Location: FLETCH+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: FLETCH+23
Function Call: WRITE
  • Prompt: !!,"COUNT OF UPDATES IS ",APSACNT
  • Line Location: FLETCH+24
Function Call: WRITE
  • Prompt: !!,"ENTER THE DEVICE TO PRINT THE ERROR LIST"
  • Line Location: REP+3
Function Call: WRITE
  • Prompt: !,"NO ERRORS IN THE ERROR LOG"
  • Line Location: REPORT+7
Function Call: WRITE
  • Prompt: !!,"ENTER THE DEVICE TO PRINT THE LIST OF DRUGS WITH NO AAC"
  • Line Location: REP1+11
Function Call: WRITE
  • Prompt: !,"NO ERRORS IN THE ERROR LOG"
  • Line Location: REP1PRT+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?(IOM-APSALEN/2),APSALOC,?(IOM-12),"PAGE: ",$J(PAGE,3)
  • Line Location: HDR2+1
Routine Call
  • %ZIS
  • Line Location:
    • REP+8
    • REP1+16
Routine Call
  • DIE
  • Line Location:
    • FLETCH+21
Routine Call
  • DIR
  • Line Location:
    • DIR+2
Routine Call
  • %ZIS
  • Line Location:
    • REP+4
    • REP1+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APSAMDF - [#9009037] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" FLETCH+2
^APSAMDF - [#9009037] EN+3
^APSAMDF("B" FLETCH+15
^APSAMDF("DATEACC" EN+7, EN+29*
^AUTTSITE(1 EN+10, EN+11
^DIC(4 - [#4] HDR2
^PSDRUG - [#50] REP1+5, REP1+6, REP1+7, REP1+9
^TMP("APSAWP11" EN+2, EN+3, EN+4!, EN+32, ERR+1*, SORT+1!, SORT+2, SORT+3, SORT+4*, REPORT+7
, REPORT+8, REPORT+9, REP1+1!, REP1+8, REP1+9*, REP1PRT+6, REP1PRT+7, REP1PRT+8, REP1PRT+10!

Label References

Name Line Occurrences
$$CHECK EN+23
$$DIR EN+8, EN+12, EN+19
$$TRANS FLETCH+7
@( REPORT+6, REP1PRT+5
CLEAN EN+5, EN+9, EN+13, EN+20, EN+24, EN+26, EN+31, REPORT+12, REP1+2, REP1PRT+12
CLOSE EN+28
ERR FLETCH+11, FLETCH+12, FLETCH+13, FLETCH+16
FLETCH EN+27
HDR REPORT+10, REP1PRT+9
REP EN+30
SORT REPORT+1

Naked Globals

Name Field # of Occurrence
^("DATEACC" EN+7
^("I" REP1+6
^(0 SORT+3*, REP1+8*
^(1 EN+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS REP+4*, REP1+12*
A DIR~, DIR+1
>> APSAAAC FLETCH+9*, FLETCH+11, FLETCH+20
>> APSACNT FLETCH+1*, FLETCH+22*, FLETCH+24
>> APSAFILE EN+18*, EN+19, EN+21*, EN+22, EN+25, CHECK+4, CHECK+5, CHECK+6
>> APSAFNUM FLETCH+15*, FLETCH+16, FLETCH+18
>> APSAGOT EN+22
>> APSAGOT( CHECK+3
APSAIEN CLEAN+2!, REPORT+8*, REPORT+9, REP1PRT+7*, REP1PRT+8
>> APSALEN HDR2*, HDR2+1
>> APSALOC HDR2*, HDR2+1
APSANDC ERR~, ERR+1, SORT~*, SORT+2*, SORT+4, FLETCH+8*, FLETCH+11, FLETCH+12, FLETCH+13, FLETCH+15
, FLETCH+16
>> APSANODE FLETCH+3*, FLETCH+5, FLETCH+7*, FLETCH+8, FLETCH+9, FLETCH+10
APSANUM ERR~, ERR+1, FLETCH+10*, FLETCH+11, FLETCH+12, FLETCH+13, FLETCH+16
>> APSAOS EN+10*, EN+11, EN+15, EN+16
>> APSAPATH EN+11*, EN+12, EN+14*, EN+15*, EN+16*, EN+22, EN+25, CHECK+4, CHECK+5
>> APSAQUIT FLETCH+6*, FLETCH+11*, FLETCH+12*, FLETCH+13*, FLETCH+14, FLETCH+16*, FLETCH+17
>> APSASTAT FLETCH+2*, FLETCH+3
APSPFILE EN1~, EN+18
APSPPATH EN1~, EN+11
B DIR~, DIR+1
CNT CHECK+1~, CHECK+2*, CHECK+3*, CHECK+4, CHECK+5, CHECK+6, CHECK+7
>> DA FLETCH+18*
DIC CLEAN+3!
DIE CLEAN+3!, FLETCH+19*
DIR CLEAN+3!
DIR("A" DIR+1*
DIR("B" DIR+1*
DIR(0 DIR+1*
>> DIROUT DIR+3
>> DIRUT DIR+3
>> DR FLETCH+20*
DRUGIEN CLEAN+2!, REP1+4*, REP1+5*, REP1+6, REP1+7, REP1+9
DT EN+29, REP1+6
DTIME REPORT+3*, REP1PRT+2*, HDR
>> DTIOUT DIR+3
>> DUOUT DIR+3
DUZ(2 HDR2
END CLEAN+2!, REPORT+4*, REPORT+8, REP1PRT+3*, REP1PRT+7, HDR*
I CHECK+1~, CHECK+2*, CHECK+3*, TRANS+5~, TRANS+6*, TRANS+7
>> IEN SORT+3*, SORT+4
IO EN+28, CLOSE~, CLOSE+1, FLETCH+3, REPORT+5, REP1PRT+4
IO("Q" REP+5, REP+8!, REP1+13, REP1+16!
IO(0 FLETCH+4
IOF HDR1
IOM HDR2+1
IOSL REPORT+10, REP1PRT+9
IOST REPORT+6, REP1PRT+5, HDR
LINE CLEAN+2!, REP+2*, REP1+3*, HDR2+2
NCONT TRANS+5~, TRANS+6*, TRANS+7*, TRANS+8
O DIR~, DIR+1
PAGE CLEAN+2!, REPORT+4*, REP1PRT+3*, HDR2+1*
PIECE TRANS+5~, TRANS+7*
>> POP REP+4, REP1+12
TMPIEN CLEAN+2!, REP1+8*, REP1+9
VAL TRANS~, TRANS+1*, TRANS+3*, TRANS+4*, TRANS+6, TRANS+7
VALUE ERR~, ERR+1
>> X HDR*
>> Y EN+8*, EN+9, EN+12*, EN+13, EN+14, EN+19*, EN+20, EN+21, EN+22*, EN+23*
, EN+24, EN+25*, EN+26, DIR+4
>> ZTDESC REP+6*, REP1+14*
>> ZTQUEUED EN1+1*, EN+2, EN+6, EN+7, EN+8, EN+9, EN+12, EN+13, EN+14, EN+19
, EN+20, EN+21, EN+26, EN+30, CHECK+4, CHECK+5, CHECK+6, FLETCH+23, FLETCH+24, REPORT+2
, REP1PRT+1
>> ZTREQ REPORT+2*, REP1PRT+1*
>> ZTRTN REP+6*, REP1+14*
>> ZTSAVE("LINE" REP+7*, REP1+15*
Info |  Source |  Call 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