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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSOAMIS

Package: Outpatient Pharmacy

Routine: PSOAMIS


Information

PSOAMIS ;BHAM ISC/SAB,BHW - pharmacy amis report ; 04/05/93 12:44

Source Information

Source file <PSOAMIS.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO AMIS  PSORPTS  

Entry Points

Name Comments DBIA/ICR reference
END
RPT ; HEADER
DEV
ENQ ;START COMPUTATIONS
DIR
EDT
COM ;COMPILE SUB-TOTALS AND GRAND TOTALS
GR ;PRINT GRAND TOTALS
SUB ;PRINT SUB TOTALS

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOAMIS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: $C(7),!!,"PRINTOUT MUST BE SENT TO A 132 COLUMNS PRINTER !!",!!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,$E(PSDATE,4,5)_"-"_$E(PSDATE,6,8)_"-"_$E(PSDATE,2,3)
  • Line Location: ENQ+12
Function Call: WRITE
  • Prompt: $J(+$P(DAT,"^",K),8)
  • Line Location: ENQ+13
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+1
Function Call: WRITE
  • Prompt: !!,"DATE "
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: $J($P("INPAT^SC^A&A^OTHER^NVA^CNTLD^METHA^PAT REQ^FEE^STAFF^NEW^REFILL^WINDOW^MAIL","^",K),8)
  • 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+1
Function Call: WRITE
  • Prompt: $J("-------",8)
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: !,"SUB-TOTALS",!,?8
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: $J(DAT(ST,K),8)
  • Condition for execution: $D(ST)
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+4>IOSL
  • Line Location: GR+1
Function Call: WRITE
  • Prompt: !?8
  • Line Location: GR+1
Function Call: WRITE
  • Prompt: $J("-------",8)
  • Line Location: GR+1
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS",!,?8
  • Line Location: GR+2
Function Call: WRITE
  • Prompt: $J(GT(K),8)
  • Line Location: GR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GR+3
Routine Call
  • DIR
  • Line Location:
    • DIR
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] ENQ+9, RPT+1, COM+1
^PS(59.1 - [#59.1] ENQ+4, ENQ+5
^TMP("PSOAMIS" ENQ+1!, ENQ+6*, ENQ+7, ENQ+9, ENQ+10, END+1!

Label References

Name Line Occurrences
COM ENQ+2
DIR ENQ+11, ENQ+16, SUB+3
EDT EDT
END PSOAMIS+3, EDT, DEV+1, DEV+4, ENQ+16
GR ENQ+16
PSOAMIS PSOAMIS+3
RPT ENQ+9, ENQ+10
SUB ENQ+9, ENQ+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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