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 |  All
Print Page as PDF
Routine: PSOFTDR

Package: Outpatient Pharmacy

Routine: PSOFTDR


Information

PSOFTDR ;BHAM/MHA - free text dosage entry report ; 06/14/01

Source Information

Source file <PSOFTDR.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  ^%DTC  DT^DIO2  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO DOSAGE REPORT  

Entry Points

Name Comments DBIA/ICR reference
FT1 ;check for possible dosages. If does not match report
PRD ;
FT2 ;check for local possible dosages. If does not exist report
DTC
DET
BEG
DEV
START
EXIT
ST1
GETR ;
HD ;

External References

Name Field # of Occurrence
^%DT BEG+2, BEG+3
^%DTC DTC
^%ZIS DEV
^%ZISC EXIT
^%ZTLOAD DEV+3
DT^DIO2 HD+4, HD+6
^DIR HD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option provides a list of drugs for those prescriptions"
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !,"where the dosage field has a free text entry.",!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"***** No Records were found for this period *****",!!
  • Line Location: ST1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: PSOPG>1
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: "Run Date: "
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?72,"Page "_PSOPG
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,?20,"Free Text Dosage Entry Report",!,?15,"for the Period: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Drug",?40,"Free Text Entry",?74,"Count",!," Provider:Count"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+9
Routine Call
  • DIR
  • Line Location:
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.607 - [#50.607] FT1+2
^PSDRUG - [#50] ST1+4, FT1+1, FT2+1, FT2+2, PRD+1
^PSRX - [#52] ST1+3, ST1+6
^PSRX("AD" ST1, ST1+1, ST1+2
^TMP( START+1!, ST1+8, DET, DET+1, DET+2, DET+5, DET+6, EXIT!, PRD+3, PRD+4*
, PRD+5*, PRD+6, PRD+7*, GETR+2, GETR+3, GETR+5*, GETR+7*, GETR+8*
^VA(200 - [#200] DET+8

Label References

Name Line Occurrences
DTC BEG+3
EXIT ST1+8
FT1 ST1+6
FT2 ST1+6
GETR PRD+6
HD ST1+7, DET+9, DET+10, DET+12
PRD FT1+2, FT2+1, FT2+3

Naked Globals

Name Field # of Occurrence
^( ST1+6, FT1+1, FT2+2
^(0 ST1+3, ST1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT BEG+2*
>> %DT("A" BEG+2*, BEG+3*
>> %DT(0 BEG+2*
%ZIS DEV!*
BEGDATE BEG+2*, START+2, EXIT!, HD+6
DD DTC~*, DTC+1
DIR EXIT!, HD+1!
DIR("A" HD+1*
DIR(0 HD+1*
DIROUT EXIT!
DIRUT ST1, ST1+1, ST1+2, DET, DET+1, DET+6, DET+7, DET+9, DET+10, DET+11
, EXIT!, HD+2
DT BEG+2, HD+4
DTOUT BEG+2, BEG+3, EXIT!
DUOUT EXIT!
ENDDATE BEG+3*, ST1, EXIT!, HD+6, DTC+1*
>> G DEV+2*
I DET+7*, EXIT!, GETR+4*, GETR+5
IO ST1+7
IO("Q" DEV+1, DEV+3!
IOF HD+3, HD+4
ION DEV
IOP DEV!*
IOSL DET+9, DET+10, DET+12
IOST START+2, ST1+5, HD+1, HD+3
J DET*, DET+1, DET+2, DET+3, DET+5, DET+6, EXIT!, GETR+1*, GETR+2, GETR+4
, GETR+5*, GETR+6, GETR+8*
K EXIT!, GETR+1*, GETR+2*, GETR+3, GETR+5, GETR+7, GETR+8
L DET+1*, DET+2, DET+4, DET+5, DET+6, EXIT!
M DET+6*, EXIT!
MM DTC~*
POP DEV!
PSO2 START~, ST1+6*
PSOC START~, FT1+1*, FT1+2, FT2+2*, FT2+3
PSOCNT START~, ST1+7*
PSODR START~, ST1+3*, ST1+4, DET+2*, DET+3, DET+5, DET+6, FT1+1, FT2+1, FT2+2
, PRD+1, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, GETR+2, GETR+3, GETR+5, GETR+7
, GETR+8
PSODRN START~, PRD+1*, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, GETR+2, GETR+3, GETR+5
, GETR+7, GETR+8
PSODS START~, ST1+6*, FT1+1, FT1+2*, FT2+2, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7
, GETR+2, GETR+3, GETR+5, GETR+7, GETR+8
PSODT START~, START+2*, ST1*, ST1+1, ST1+2
PSOION DEV*!, DEV+1!
PSOJ START~, ST1+6*
PSOL START~, FT1+1*, FT2+2*
PSOPG START~, ST1+7*, HD+1, HD+3, HD+4*
PSOPR START~, PRD+1*, PRD+2, PRD+7, GETR+5, GETR+7, GETR+8
PSORF START~, ST1+2*
PSORX0 START~, ST1+3*, PRD+1
PSORXN START~, ST1+1*, ST1+2, ST1+3, ST1+6
PSOU START~, ST1+6*, FT1+2
PSOY START~
Q START+2*, ST1+5*, DET+1*, DET+3, DET+5*, EXIT!
T DET+8*, DET+9, EXIT!
TY START~, START+1*, ST1+8, DET, DET+1, DET+2, DET+5, DET+6, EXIT, PRD+3
, PRD+4, PRD+5, PRD+6, PRD+7, GETR+2, GETR+3, GETR+5, GETR+7, GETR+8
X EXIT!, GETR+4*, GETR+5, DTC
>> X1 DTC*
>> X2 DTC*
XX DET+7*, DET+8, EXIT!
Y BEG+2, BEG+3, EXIT!, GETR+3*, GETR+4, GETR+7, HD+4*, HD+6*, HD+8*, DTC
, DTC+1
YY DET+6*, DET+7, EXIT!
>> ZTDESC DEV+2*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
ZTSK DEV!, DEV+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All