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

Package: IHS Changes To Pharmacy

Routine: APSPAMIS


Information

APSPAMIS ; IHS/DSD/ENM - BHAM ISC/SAB/IHS/ENM - IHS PHARMACY AMIS REP ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPAMIS.m>

Call Graph

Call Graph Total: 5

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

Entry Points

Name Comments DBIA/ICR reference
FZZ ;IHS/DSD/ENM CAUSE A PAUSE 5.95
END
RPT ; HEADER
DEV
ENQ ;START COMPUTATIONS
EDT
ZDIV ;IHS/DSD/ENM 10/16/96 ASK DIV MODULE ADDED
COM ;COMPILE SUB-TOTALS AND GRAND TOTALS
GR ;PRINT GRAND TOTALS
SUB ;PRINT SUB TOTALS

External References

Name Field # of Occurrence
^%DT APSPAMIS+2, EDT
^%ZIS DEV
^%ZISC END
^%ZTLOAD DEV+3
^DIR ZDIV+1, ZDIV+4, FZZ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: APSPAMIS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: *7,!!,"PRINTOUT MUST BE SENT TO A 132 COLUMNS PRINTER !!",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$E(PSDATE,4,5)_"-"_$E(PSDATE,6,8)_"-"_$E(PSDATE,2,3)
  • Line Location: ENQ+5
Function Call: WRITE
  • Prompt: $J($P(DAT,"^",K),9)
  • Line Location: ENQ+6
Function Call: WRITE
  • Prompt: @IOF,!?55,"A M I S R E P O R T",!!?40,"FROM "_$E(SDT,4,5)_"-"_$E(SDT,6,7)_"-"_$E(SDT,2,3),?60,"TO "_$E(EDT,4,5)_"-"_$E(EDT,6,7)_"-"_$E(EDT,2,3)_" DIVISION: "_$P(^PS(59,DIV,0),"^")
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !!,"DATE "
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: $J($P("INPAT^OTHER^CNTLD^PAT REQ^FEE^STAFF^NEW^REFILL^WINDOW^MAIL","^",K),9)
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !?8
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: $J("-------",9)
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !,"SUB-TOTALS",!,?8
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: $J(DAT(ST,K),9)
  • Condition for execution: $D(ST)
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+2>IOSL
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: !?8
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: $J("-------",9)
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+4>IOSL
  • Line Location: GR+2
Function Call: WRITE
  • Prompt: !?8
  • Line Location: GR+2
Function Call: WRITE
  • Prompt: $J("-------",9)
  • Line Location: GR+2
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS",!,?8
  • Line Location: GR+3
Function Call: WRITE
  • Prompt: $J(GT(K),9)
  • Line Location: GR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: GR+4
Routine Call
  • DIR
  • Line Location:
    • ZDIV+1
    • ZDIV+4
    • FZZ+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] ENQ+5, RPT+2, COM+1
^PS(59.1 - [#59.1] ENQ+1, ENQ+2
^TMP($J ENQ+1!, ENQ+2*, ENQ+3, ENQ+5, END!

Label References

Name Line Occurrences
APSPAMIS APSPAMIS+2
COM ENQ+1
DEV ZDIV+2
EDT EDT
END APSPAMIS+2, EDT, ZDIV+4, DEV, DEV+3
FZZ ENQ+7, SUB+4, GR+1
GR ENQ+9
RPT ENQ+5
SUB ENQ+5, ENQ+9

Naked Globals

Name Field # of Occurrence
^( ENQ+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT APSPAMIS+2*, EDT!, DEV+3!, END!
%DT("A" APSPAMIS+2*, EDT*
%DT(0 APSPAMIS+2*!, EDT*
%ZIS DEV!*
%ZIS("B" DEV*
>> APSPANS ZDIV+2*, ZDIV+5*
DAT ENQ+5*, ENQ+6, END!
DAT( ENQ+3*, COM+1*, SUB+3
DIR ZDIV+1!, ZDIV+4!, FZZ+1!
DIR("?" ZDIV+1*, ZDIV+3*, FZZ+1*
DIR("A" ZDIV+1*, ZDIV+3*, FZZ+1*
DIR("B" ZDIV+1*
DIR(0 ZDIV+1*, ZDIV+3*, FZZ+1*
DIV ENQ+5*, END!, RPT+2, COM+1*
DT APSPAMIS+2
DTOUT ZDIV+1, ZDIV+4, ENQ+7, ENQ+8, RPT+1, SUB+4, GR+1, FZZ+1!
DUOUT ZDIV+4, ENQ+1, ENQ+5, ENQ+7, ENQ+8, RPT+1, SUB+4, GR+1, FZZ+1!
EDT EDT*, ENQ+1, END!, RPT+2
G DEV+2*, DEV+3!, ENQ+1*, ENQ+3*, END!, COM+1*
GR ENQ+4*, ENQ+5*, END!
GT END!
GT( ENQ+3*, COM+1*, GR+3
I ENQ+1*, ENQ+2, ENQ+3, END!
IO RPT+2
IO("Q" DEV+2, DEV+3!
IOF END, RPT+2, SUB+5, GR+2
ION DEV
IOP DEV!*
IOSL ENQ+5, ENQ+7, SUB+4, SUB+5, GR+1, GR+2
IOST ENQ+7, END, SUB+4, GR+1
K ENQ+6*, END!, RPT+3*, RPT+4*, SUB+3*, SUB+5*, GR+2*, GR+3*
POP DEV, END!
PSDATE ENQ+1*, ENQ+2, ENQ+3, ENQ+5*, END!
PSOION DEV*!, DEV+2!
SDT APSPAMIS+2*, EDT, ENQ+1, END!, RPT+2
ST ENQ+5*, END!, SUB+3
X APSPAMIS+2, EDT, ZDIV+2, DEV+3!, END!
Y APSPAMIS+2, EDT, ZDIV+5, DEV+3!, END!
>> ZTDESC DEV+2*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN DEV+2*
ZTSAVE DEV+3!
ZTSAVE( DEV+2*
ZTSK DEV!, DEV+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All