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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZISC  $$IEN^XUMF  
VA Fileman 2 NOW^%DTC  $$GET1^DIQ  
CMOP 1 (END,NAME)^PSXCSUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXCSMON  

Entry Points

Name Comments DBIA/ICR reference
SUB ;Facility grand total
ONE ;Print if facility has only 1 division
SUBDV ;Division subtotal
EX
EX1
PRINT
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

External References

Name Field # of Occurrence
NOW^%DTC PRINT+1
^%ZISC EX
$$GET1^DIQ HD+1
END^PSXCSUTL EX1
NAME^PSXCSUTL PRINT
$$IEN^XUMF HD+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^PSX(552 HD+1
^TMP($J PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, HD+4, HD+7

Label References

Name Line Occurrences
EX PRINT+3
HD PRINT+3, PRINT+6, PRINT+8, SUB+3, SUB+6
ONE SUB+1, SUB+2
SUB PRINT+5
SUBDV PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+1
>> AGNCY HD+1*
IOF EX, HD+3
IOSL PRINT+8, SUB+3, SUB+6
>> PSXAVCST PRINT+10*, PRINT+12, ONE+2*
>> PSXBDTH PRINT+1
>> PSXBDTR PRINT+1*, HD+4
>> PSXCNT PRINT+5*, PRINT+6*, PRINT+8*
>> PSXCNTDV SUB+1*, SUB+2
>> PSXCOST PRINT+5*, PRINT+8*
>> PSXDGID PRINT*
>> PSXDLN PRINT*, HD+11
>> PSXDV PRINT+6*, PRINT+7, PRINT+8, PRINT+9, HD+7, SUBDV+2
>> PSXFAC PRINT+5*, PRINT+6, PRINT+7, PRINT+8, HD+1
>> PSXFACN HD+2*, HD+4
>> PSXID PRINT, PRINT+6, PRINT+11, PRINT+12, HD+5, HD+6, HD+9, SUB+1, SUB+2, SUB+3
>> PSXMC HD+5
>> PSXNAM PRINT+7*, PRINT+8, PRINT+11, HD+6
>> PSXPG HD+2*, HD+3
>> PSXQTY PRINT+5*, PRINT+8*
>> PSXRF HD+5
>> PSXRUN PRINT+1*, HD+3
>> PSXSPDV SUB+1
PSXSUB PRINT+6!
PSXSUB( PRINT+6*, PRINT+9*, SUBDV+2, SUB+1, SUB+3, SUB+4, SUB+5, ONE+1, ONE+2
>> PSXTOT PRINT+5*, HD+7, HD+8, HD+9, HD+10, SUB+3*, SUB+4*, SUB+7
>> PSXX SUB+1*, SUB+3*, SUB+4, SUB+5, ONE+1*, ONE+2
X HD+1~*, HD+2!
Y PRINT+1*, PRINT+8*, PRINT+9, PRINT+10, PRINT+11, PRINT+12, HD+1~*, HD+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All