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

Package: Outpatient Pharmacy

Routine: PSOAMIS1


Information

PSOAMIS1 ;BHAM ISC/SAB,BHW - daily amis total report ; 11/04/92 17:45

Source Information

Source file <PSOAMIS1.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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO DAILY AMIS  

Entry Points

Name Comments DBIA/ICR reference
END
HDR ;report header
COMP
PRI ;OUTPUT DATA
DEV
DA
ENQ ;start computations
DIR
SUB

External References

Name Field # of Occurrence
^%DT DA
^%ZIS DEV
^%ZISC END
^%ZTLOAD DEV+2
^DIR DIR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Daily AMIS Report. Prints Daily, Monthly and Quarterly AMIS Data",!!,"PLEASE PRINT ON WIDE PAPER, I.E., 132 COLUMNS."
  • Line Location: PSOAMIS1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DA+0
Function Call: WRITE
  • Prompt: !,$P("INPAT^SC^A&A^OTHER^NVA^CNTLD^METHA^PAT REQ^FEE^STAFF^NEW^REFILL^WINDOW^MAIL","^",I)
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: @IOF,?20,"Daily/Monthly/Quarterly AMIS report for "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: Y,!?20,"Division: "_$P(^PS(59,DIV,0),"^"),?115,"Page: "_PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,$E(PSDATE,4,5)_"-"_$E(PSDATE,6,7)_"-"_$E(PSDATE,2,3),?50,"Monthly Totals",?80,"Quarterly Totals"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Sub Totals",?20,$J("=========",9),?50,$J("=========",9),?80,$J("=========",9),!,?20,$J(^TMP("PSOAMIS",$J,"SUB",DIV),9),?50,$J(^TMP("PSOAMIS",$J,"SUBMONTH",DIV),9),?80,$J(^TMP("PSOAMIS",$J,"SUBQTR",DIV),9)
  • Line Location: SUB+0
Routine Call
  • DIR
  • Line Location:
    • DIR
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+2
^PS(59 - [#59] ENQ+1, ENQ+9, PRI+1, HDR+2
^PS(59.1 - [#59.1] ENQ+4, ENQ+5, ENQ+11, ENQ+13, COMP+1, COMP+2, COMP+3
^TMP("PSOAMIS" ENQ+1!, ENQ+2*, ENQ+3*, ENQ+6*, ENQ+7*, ENQ+9*, PRI+2, PRI+4, END!, SUB
, COMP+1*, COMP+2*, COMP+3*

Label References

Name Line Occurrences
COMP ENQ+11, ENQ+13
DA DA
DIR PRI+3, SUB
END DA, DEV
HDR PRI+1
SUB PRI+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DA*, END!
%DT("A" DA*
%DT(0 DA*!
%ZIS DEV!*
%ZIS("B" DEV*
AA END!
>> AFN COMP*, COMP+1, COMP+2, COMP+3
BQTR DA+1*, DEV+2!, ENQ+13*, END!, COMP+1, COMP+2, COMP+3
CNTLD END!
DIR DIR!
DIR(0 DIR*
DIRUT PRI+1, PRI+4, END!, DIR!
DIV ENQ+1*, ENQ+2, ENQ+3, ENQ+9*, PRI+1*, PRI+2, END!, HDR+2, SUB
DT DA
DTOUT DIR!
DUOUT DIR!
EDT DA*, DEV+2!, ENQ+11, END!
EQTR DA+1*, DEV+2!, ENQ+13, END!
FEE END!
G DEV+1*, DEV+2!, ENQ+11*, ENQ+13*, END!
GR END!
GT END!
I ENQ+4*, ENQ+5, ENQ+6, ENQ+7, ENQ+9*, ENQ+11*, ENQ+13*, PRI+1*, PRI+2, END!
, COMP+1, COMP+2, COMP+3
>> IFN COMP*, COMP+1
INPAT END!
IO DEV+1, HDR+2
IO("Q" DEV+1
IOF END, HDR+2
ION DEV
IOP DEV!*
IOSL PRI+3
IOST PRI+3, END, SUB
K END!, HDR+3*
MAIL END!
METH END!
MON DA*, DEV+2!, ENQ+11*, END!, COMP+1, COMP+2, COMP+3
MONTH DA+1*, END!
>> MT ENQ+11*, ENQ+13*, COMP+1, COMP+2, COMP+3
NEW END!
OTH END!
PG ENQ+1*, END!, HDR+1*, HDR+2
POP DEV, END!
PREQ END!
PSDATE DA*, DEV+2!, ENQ+4, ENQ+5, ENQ+6, ENQ+7, ENQ+9, PRI+2, END!, HDR+2
, HDR+3
PSOION DEV*!, DEV+1!
REF END!
S ENQ+7*, END!
SC END!
SDT END!
STAFF END!
SUB END!
WIND END!
X DA, ENQ+5*, ENQ+6, END!
Y DA, DA+1, END!, HDR+2*
ZDIV PRI+1*, END!
>> ZTDESC DEV+1*
>> ZTDTH DEV+1*
ZTIO DEV+1*, DEV+2!
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN DEV+1*
ZTSAVE DEV+2!
ZTSAVE( DEV+1*
ZTSK DEV!, DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All