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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSPRT3

Package: IHS Changes To Pharmacy

Routine: APSPRT3


Information

APSPRT3 ; IHS/DSD/ENM - PRINT UNIT DOSE LABELS ; [ 05/14/1998 4:04 PM ]

Source Information

Source file <APSPRT3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  

Entry Points

Name Comments DBIA/ICR reference
PRINT
START ;
EOJ ;

External References

Name Field # of Occurrence
^%ZIS START+1
^%ZISC EOJ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !,?APSP(27),APSP("DRUG")
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?APSP(31),APSP("DRUG")
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?APSP(27),APSP("CNTL#")," ",APSPRT("EXPDATE")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?APSP(31),APSP("CNTL#")," ",APSPRT("EXPDATE")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?APSP(27),APSP("QTY")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?APSP(31),APSP("QTY")
  • Condition for execution: APSP(29)="Y"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Routine Call
  • %ZIS
  • Line Location:
    • START+1

Label References

Name Line Occurrences
EOJ START+3
PRINT START+2, PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSP("CNTL#" PRINT+2, PRINT+3, EOJ+2!
>> APSP("COPIES" PRINT*, PRINT+7, EOJ+2!
>> APSP("DRUG" PRINT+1, EOJ+2!
>> APSP("QTY" PRINT+5
>> APSP(24 PRINT, PRINT+8
>> APSP(25 PRINT+6, PRINT+8
>> APSP(26 PRINT+8
>> APSP(27 PRINT+1, PRINT+2, PRINT+5
>> APSP(29 PRINT+1, PRINT+3, PRINT+5
>> APSP(31 PRINT+1, PRINT+3, PRINT+5
>> APSPRT("EXPDATE" PRINT+2, PRINT+3, EOJ+2!
>> APSPRT("IO" START+1
I PRINT*, PRINT+6*, PRINT+8*, EOJ+3!
IO START+1
IOP START+1*, EOJ+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All