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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSOCSTM

Package: Outpatient Pharmacy

Routine: PSOCSTM


Information

PSOCSTM ;BHAM ISC/SAB - monthly rx cost compilation ;7/10/06 4:36pm

Source Information

Source file <PSOCSTM.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Outpatient Pharmacy 2 $$MTHLCK^PSOCSTM  EN^PSOHLUP  
Kernel 1 ^%ZTLOAD  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSO COSTMONTH  PSOCSTD  PSOCSTM  

Entry Points

Name Comments DBIA/ICR reference
MTHLCK(GET) ;lock for month end run or query if month end is running
; INPUT: GET = 1 try to get lock and keep locked
; 0 query if locked only, leave as unlocked
; RETURNS: 1 - already locked
; 0 - was not already locked
SET
END
D ;;
G ;;
SRCH
CHK
BEG
Q
START
QUES
INI
VST
ZNODE ;update zero nodes
SF
SRCH1
SET1

External References

Name Field # of Occurrence
^%DT BEG, END
^%ZTLOAD END+3
$$MTHLCK^PSOCSTM START
EN^PSOHLUP CHK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"**** Date Range Selection ****"
  • Line Location: PSOCSTM+10
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$C(7),"??",!,"For example, September 1993 could be entered as 9/93 or SEP 93.",!,"For Year 2000 Compliance enter date as 9/2000 or SEP 2000."
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: !,"checking for duplicate job..."
  • Line Location: MTHLCK+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHK+2
^PS(53 - [#53] CHK+7
^PS(55 - [#55] CHK+2
^PS(59 - [#59] INI, CHK+5
^PSCST - [#50.9] START+3!, START+4!, SET*, SET1*, SET1+1*, ZNODE+1, ZNODE+2, ZNODE+3, ZNODE+4*, ZNODE+5*
^PSCST("B" START+3!, START+4!, SRCH+1, SET*
^PSCST(0 SRCH+2*
^PSDRUG - [#50] CHK+3, CHK+9
^PSOCSTM END+4, Q+2, MTHLCK+8, MTHLCK+9
^PSRX - [#52] CHK, CHK+1, CHK+11, CHK+12, CHK+13, CHK+19, CHK+20
^PSRX("AL" SRCH1+3, SRCH1+4, SRCH1+5, CHK!, CHK+19!
^PSRX("AM" SRCH1+8, SRCH1+9, SRCH1+10, CHK+11!
^SC - [#44] CHK+8
^TMP($J START+1!, Q!, VST, VST+1, VST+2!, SF*
^VA(200 - [#200] CHK+6

Label References

Name Line Occurrences
$$MTHLCK PSOCSTM+9
BEG BEG
CHK SRCH1+4, SRCH1+9
END END
INI SRCH1
Q BEG, END
QUES BEG, END
SET CHK+15, CHK+17, CHK+23
SET1 SRCH
SF CHK+15, CHK+17, CHK+23
SRCH1 SRCH
VST SRCH1+5, SRCH1+10
ZNODE SRCH+2

Naked Globals

Name Field # of Occurrence
^(0 SF+1, SF+4
^(660 CHK+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG*, END*!, Q!
%DT("A" BEG*, END*
%DT(0 END*
A Q!
A( START+1*, SF+1, SF+2
A1 Q+1!
A1( START+1*, SF+3*
AST MTHLCK+11~*, MTHLCK+13, MTHLCK+16
B Q!
B( START+1*, SF+1, SF+3
B1 Q+1!
B1( START+1*, SF+3
BDT PSOCSTM+10!, BEG+1*, END, END+3!, START+3, START+4, SRCH, Q!, ZNODE+1
>> BEGDATE ZNODE+1
C Q+1!
C( START+2*, SF+4, SF+5
C1 Q+1!
C1( START+2*, SF+6*
CDT Q+1!, SRCH1+4*, SRCH1+5, SRCH1+9*, SRCH1+10
CLINIC Q+1!, CHK+8*!, SF+1
COST Q!, CHK+9*, CHK+15*, CHK+17*, CHK+21*, SF
D Q+1!
D( START+2*, SF+4, SF+6
D1 Q+1!
D1( START+2*, SF+6
DATA Q!, SF*, SF+2, SF+5
DATA1 Q!, SF+1*, SF+2, SF+4*, SF+5
DATA2 Q!, SF+1*, SF+2*, SF+4*, SF+5*
DFN Q!, VST+1*, CHK+2*, SF
DIV Q+1!, CHK+5*, CHK+13*, CHK+22*, SF
DRG Q!, CHK+3*, CHK+9
DT PSOCSTM+10, SET1
DV Q+1!, INI*, VST*, VST+1, SET1+1*
EDT PSOCSTM+10!, END+1*, END+3!, START+3, START+4, SRCH, Q!, ZNODE+1
G END+2*, END+3!
GET MTHLCK~, MTHLCK+9, MTHLCK+10
GOTLOCK MTHLCK+7~, MTHLCK+8*, MTHLCK+9, MTHLCK+10
I START+1*, START+2*, Q!, SF+1*, SF+2, SF+3, SF+4*, SF+5, SF+6
II Q!, SF+2*, SF+5*
LATE PSOCSTM+10*, BEG, END, Q!
ML Q!, CHK+15*, CHK+17*, CHK+21*, SF
ND ZNODE+1*, ZNODE+2, ZNODE+3, ZNODE+4, ZNODE+5, ZNODE+6!
NDT Q+1!, SRCH1+5*, SRCH1+10*
NDZ ZNODE+1*, ZNODE+2*, ZNODE+5*, ZNODE+6!
NDZ1 ZNODE+3*, ZNODE+4*, ZNODE+6!
NDZ2 ZNODE+2*, ZNODE+3, ZNODE+4, ZNODE+6!
NODE ZNODE+6!
NODE( ZNODE+1*, ZNODE+2*, ZNODE+3*, ZNODE+4, ZNODE+5
OR Q!, CHK+15*, CHK+17*, CHK+21*, SF
PAR SRCH1+9*, SRCH1+10!, CHK+10
PAST Q!, CHK+7*
PGM Q+1!
PHYS Q!, CHK+6*, CHK+14*, CHK+22*
>> PR CHK+10*
PSD START+2*, SRCH+1*, SRCH+2, Q!, SF+4
PSDT START+3*, START+4*, SRCH*, SRCH+1*, Q!, SRCH1+2, SRCH1+3, SRCH1+7, SRCH1+8, CHK
, CHK+11, CHK+19, SET, SET1, SET1+1, ZNODE+1*, ZNODE+2, ZNODE+3, ZNODE+4, ZNODE+5
PSDT1 Q!, SRCH1+2*, SRCH1+3*, SRCH1+4, SRCH1+5, SRCH1+7*, SRCH1+8*, SRCH1+9, SRCH1+10
PSDTX SRCH*, Q!, SRCH1+3, SRCH1+8
PSG START+1*, Q!, SF+1
PSOCNT SRCH+1*, SRCH+2, Q!
QTY Q!, CHK+15*, CHK+17*, CHK+21*, SF
RF Q!, CHK+15*, CHK+17*, CHK+21*, SF
RX0 Q!, CHK+1*, CHK+2, CHK+3, CHK+6, CHK+7, CHK+8, CHK+9, CHK+14, CHK+17
, CHK+22
RX1 Q+1!, CHK+13*, CHK+14, CHK+15, CHK+20*, CHK+21, CHK+22
RX2 Q+1!, CHK+1*, CHK+5, CHK+13, CHK+16, CHK+22
RXF Q!, SRCH1+4*, SRCH1+9*, CHK, CHK+11, CHK+12, CHK+13, CHK+16, CHK+18, CHK+19
, CHK+20
RXN Q+1!, SRCH1+4*, SRCH1+9*, CHK, CHK+1, CHK+11, CHK+12, CHK+13, CHK+19, CHK+20
STOP START+4*, START+5!
VAL Q+1!
VALUE Q+1!, SF+2*, SF+5*
VAR Q+1!
VIS Q+1!, INI!
VIS( INI*, VST+1*, SET1+1
VISITS Q+1!, INI*, VST+1*, SET1
WD Q+1!, CHK+15*, CHK+17*, CHK+21*, SF
X START+1*, START+2*, Q+1!
X1 Q+1!
X2 Q+1!
Y BEG, BEG+1, END, END+1, Q+1!
ZTDESC END+2*, END+3!
ZTIO END+2*, END+3!
>> ZTQUEUED Q+1, MTHLCK+6, MTHLCK+12
>> ZTREQ Q+1*
ZTRTN END+2*, END+3!
ZTSAVE END+3!
ZTSAVE( END+2*
>> ZTSK END+3

Marked Items

Name Field # of Occurrence
$T(D+I START+2
$T(G+I START+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All