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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSXCSHI1

Package: CMOP

Routine: PSXCSHI1


Information

PSXCSHI1 ;BIR/JMB-High Cost Rx Report-CONTINUED ;[ 04/08/97 2:06 PM ]

Source Information

Source file <PSXCSHI1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Loops thru ^TMP global
HD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No. of Fills="_PSXCNT,?20,"'*' indicates a refill"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: PSXPG>1!($E(IOST)="C")
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"PRINTED: ",PSXPDT,?(72-$L(PSXPG)),"PAGE ",PSXPG
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!?(60-$L(PSXFACR)/2),"HIGH COST REPORT FOR ",PSXFACR
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?8,"FILLS THAT COST AT LEAST $",PSXMAX," -- FROM ",PSXBDTR," TO ",PSXEDTR
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !!," RX #",?15,"DRUG",?51,"QTY",?59,"COST",?67,"TOTAL COST"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call