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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSPLOC

Package: IHS Changes To Pharmacy

Routine: APSPLOC


Information

APSPLOC ; IHS/DSD/ENM - OUTPATIENT PHARMACY INVENTORY/LOCATION ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPLOC.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
FZZ ;IHS/DSD/ENM 10/95
EN ;EP
HDR ;
SHOW ;
LIST ;
LIST1 ;
DRU
DEV
SAV
AUS
DIV ;SELECT DIVISION
SHOW1
ZAP ;
CON

External References

Name Field # of Occurrence
NOW^%DTC HDR+2
^%ZIS DEV, DEV+1
^%ZISC ZAP+1
^%ZTLOAD DEV+7
^DIR DRU, FZZ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Outpatient Pharmacy Inventory Location!",!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,*7,*7,"Report not Queued!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"Queueing to your screen is not allow! "
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?40,"Dispensing",?65,"Storage",!,"Drug Name",?40,"Location",?65,"Location",!,"----------",?40,"----------------------",?65,"--------",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,APSPDN,?40,APSPDL,?65,APSPBS
  • Line Location: LIST1+3
Routine Call
  • DIR
  • Line Location:
    • DRU
    • FZZ+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+2
^PS(59 - [#59] HDR+1
^PSDRUG - [#50] AUS+2, LIST+1, SAV
^TMP("APSPIL" EN+1!, SHOW1, SAV+1*, ZAP+2!

Label References

Name Line Occurrences
AUS DEV+3
DEV DEV+2
FZZ LIST1+1
HDR SHOW+1, LIST1+2
LIST AUS+2
LIST1 SHOW1
SAV LIST+2, LIST+3
SHOW CON+1
SHOW1 SHOW+1
ZAP DRU+1, DEV+1, DEV+7, CON+2

Naked Globals

Name Field # of Occurrence
^( SHOW1
^(9999999 SAV

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DEV!, DEV+7!
%ZIS DEV!*
%ZIS("A" DEV*
>> APSP("IOF" AUS+1*, ZAP+2!
>> APSP("PAGE" AUS+1*, HDR+2*, HDR+4, ZAP+2!
APSPA AUS+1*, AUS+2*, LIST+1, SAV, ZAP+2!
>> APSPA1 AUS+1*
APSPANS DRU+1*, LIST+2, LIST+3, ZAP+2!
APSPBS SHOW1*, LIST1+3, SAV*, SAV+1, ZAP+2!
APSPCI ZAP+2!
APSPDAN DIV+5*, HDR+1, ZAP+2!
APSPDIV HDR+1*, HDR+4, ZAP+2!
APSPDL SHOW1*, LIST1+3, SAV*, SAV+1, ZAP+2!
APSPDN CON*, SHOW1*, LIST1+3, SAV*, SAV+1, ZAP+2!
APSPDU ZAP+2!
APSPSH AUS+2*, LIST+2, ZAP+2!
APSPTYPE DRU+1*, HDR+4, ZAP+2!
DIR DRU!, FZZ+1!
DIR("?" FZZ+1*
DIR("A" DRU*, FZZ+1*
DIR(0 DRU*, FZZ+1*
>> DIRUT DRU+1
DTOUT SHOW1, LIST1+1, FZZ+1!
DUOUT DRU+1, SHOW1, LIST1+1, FZZ+1!
DVCNT DEV+1!
G DEV+6*, DEV+7!
IO DEV+1, DEV+2, DEV+3, AUS
IO("Q" DEV+2!, DEV+3, DEV+4, DEV+7!
IO(0 DEV+3
IOF EN+2, HDR+3
ION DEV
IOP DEV!, DEV+1*!
IOSL LIST1+1, LIST1+2
IOST LIST1+1
>> POP DEV+1
PSOION DEV*, DEV+1!
>> PSOSITE DIV+5
U AUS+2, HDR+1, SHOW1, SAV
X DEV+7!, HDR+2
Y DRU+1, DEV+7!, HDR+2*, HDR+4
Y(0 DRU+1
>> ZTDESC DEV+5*
>> ZTQUEUED ZAP+1
>> ZTREQ ZAP+1*
>> ZTRTN DEV+4*
>> ZTSAVE( DEV+6*
ZTSK DEV!, DEV+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All