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

Package: CMOP

Routine: PSXCSMN1


Information

PSXCSMN1 ;BIR/JMB-Drug Cost by Drug for One Month CONTINUED ;10 Feb 2000 1:46 PM

Source Information

Source file <PSXCSMN1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
EX
EX1
HD ;N X,Y S X=+PSXFAC,DIC(0)="MNZ",DIC=4 S:$D(^PSX(552,"D",X)) X=$E(X,2,99) D ^DIC K DIC ;****DOD L1
SUBDV ;Division subtotal
SUB ;Facility grand total
ONE ;Print if facility has only 1 division

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: PSXPG>1
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"PRINTED: ",PSXRUN,?121,"PAGE: "_PSXPG
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: "DIVISION"
  • Condition for execution: $G(PSXTOT)!($D(PSXID))
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: "DRUG"
  • Condition for execution: '$G(PSXTOT)&('$D(PSXID))
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?125,"N/F",!,PSXDLN
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !?47,"----------",?62,"----------",?76,"----------"
  • Line Location: SUBDV+1
Function Call: WRITE
  • Prompt: !,"DIVISION TOTAL",?49,$J($P(PSXSUB(PSXDV),"^"),7,0),?64,$J($P(PSXSUB(PSXDV),"^",3),7,0),?75,$J($P(PSXSUB(PSXDV),"^",2),10,2),!
  • Line Location: SUBDV+2
Function Call: WRITE
  • Prompt: !?47,"----------",?61,"----------",?75,"----------"
  • Line Location: SUB+6
Function Call: WRITE
  • Prompt: !,"FACILITY TOTAL",?50,$J($P(PSXTOT,"^"),6,0),?63,$J($P(PSXTOT,"^",3),7,0),?75,$J($P(PSXTOT,"^",2),10,2)
  • Line Location: SUB+7
Function Call: WRITE
  • Prompt: !,PSXX,?50,$J($P(PSXSUB(PSXX),"^"),6,0),?65,$J($P(PSXSUB(PSXX),"^",3),6,0),?75,$J($P(PSXSUB(PSXX),"^",2),10,2)
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: ?91,$J(PSXAVCST,8,3)
  • Line Location: ONE+2

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