Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
EDT
DEV
ENQ ;START COMPUTATIONS
END
RPT ; HEADER
COM ;COMPILE SUB-TOTALS AND GRAND TOTALS
SUB ;PRINT SUB TOTALS
GR ;PRINT GRAND TOTALS
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
Info |  Source |  Entry Points |  Interaction Calls