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 |  Local Variables  | All
Print Page as PDF
Routine: PSJFTR

Package: Inpatient Medications

Routine: PSJFTR


Information

PSJFTR ;BIR/JCH-INPATIENT MEDS FREE TEXT DOSAGE REPORT ;15 Nov 01 / 9:45 AM

Source Information

Source file <PSJFTR.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^%DT  ^%DTC  ^DIR  
Pharmacy Data Management 1 DOSE^PSSORPH  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU DOSAGE REPORT  

Entry Points

Name Comments DBIA/ICR reference
BEG ;Begin
DEV ;Device
START ;Start processing date range
UD ;
ST1 ;
DET ;
EXIT
PRD ;
CHKPOS ; Check for possible doses
CHKLOC ; Check for local doses
HD ;
DTC ;

External References

Name Field # of Occurrence
^%DT BEG+6, BEG+8
^%DTC DTC+1
^%ZIS DEV+2, DEV+3
^%ZISC EXIT
^%ZTLOAD DEV+7
^DIR HD+1
DOSE^PSSORPH ST1+18
$$FMTE^XLFDT HD+5, HD+8, HD+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report searches for Free Text Dosages in Inpatient Unit Dose Orders"
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !,"for a range of dates. Orders with Stop Dates that fall within the range"
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !,"are included in the report."
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,"***** No Records were found for this period *****",!!
  • Line Location: ST1+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: "Run Date: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: "Run Date: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?72,"Page "_PSJPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,?15,"Inpatient Free Text Dosage Entry Report",!,?17,"Period: "
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: FMTDT
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: FMTDT
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,"Drug",?40,"Free Text Entry",?74,"Count",!," Provider:Count"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+12
Routine Call
  • DIR
  • Line Location:
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] ST1+2, ST1+4, ST1+6, ST1+7, ST1+8, ST1+11, ST1+13
^PSDRUG - [#50] ST1+12, PRD+1, CHKPOS+3, CHKLOC+3
^TMP("PSJFTR" START+3!, ST1+24, DET+1, DET+3, DET+4, DET+6, DET+12, DET+13, EXIT!, PRD+3
PRD+4*, PRD+5*, PRD+6, PRD+7, PRD+8*, PRD+9, PRD+10*
^VA(200 - [#200] DET+13

Label References

Name Line Occurrences
CHKLOC ST1+19
CHKPOS ST1+20
DTC BEG+8
EXIT BEG+6, BEG+8, DEV+3, DEV+4, ST1+24
HD ST1+23, DET+17
PRD ST1+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG+5!*
%DT("A" BEG+5*, BEG+7*
%DT(0 BEG+6*, BEG+9!
%ZIS DEV+1!*, DEV+2!
BEGDT BEG+1~, BEG+6*, ST1+3, HD+8
DARRAY ST1+9~, ST1+18!*
DARRAY( CHKPOS+2, CHKPOS+4, CHKLOC+2, CHKLOC+4
DARRAY(1 ST1+19, ST1+20
DD DTC+1~*, DTC+2
DIR EXIT!, HD+1!
DIR("A" HD+1*
DIR(0 HD+1*
DIROUT EXIT!
DIRUT ST1+2, ST1+4, ST1+6, DET+1, DET+3, EXIT!, HD+2
DRGNODE START+2~, ST1+13*, ST1+14, ST1+16
DT HD+5
DTOUT BEG+6, BEG+8, EXIT!
DUOUT EXIT!
ENDT BEG+1~, BEG+8*, ST1+1, HD+9, DTC+2*
FMDOSE ST1+9~, ST1+14*, ST1+15
FMTDT HD+3~, HD+5*, HD+8*, HD+9*
FMUNIT ST1+9~, ST1+14*, ST1+15
>> G DEV+6*
I EXIT!
IO ST1+23
IO("Q" DEV+4, DEV+7!
IOF HD+4, HD+5
IOP DEV+1!, DEV+3*!
IOSL DET+17
IOST START+4, ST1+17, HD+1, HD+4
J DET+1*, DET+3, DET+4, DET+6, DET+7, DET+8, DET+12, DET+13, EXIT!
>> JCH ST1+5*
L DET+2*, DET+3*, DET+4, DET+6, DET+9, DET+12, DET+13, EXIT!
LOCDOSE ST1+9~, CHKLOC+4*
LOCNOD ST1+9~
MM DTC+1~*
NOTXT ST1+9~, ST1+10*, ST1+21, CHKPOS+1*, CHKPOS+2, CHKPOS+4*, CHKLOC+1*, CHKLOC+2, CHKLOC+4*
NXT ST1+9~, CHKPOS+2*, CHKPOS+3, CHKPOS+4, CHKLOC+2*, CHKLOC+3, CHKLOC+4
ORDOSE ST1+9~, ST1+16*, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, PRD+8, PRD+9, PRD+10
CHKPOS+4, CHKLOC+4
PKG ST1+9~
POP DEV+1!, DEV+3
POSDOSE ST1+9~, CHKPOS+4*
>> PR DET+12*, DET+13
>> PSGDCNT ST1+8*, ST1+11
>> PSGDFN ST1+1*, ST1+2*, ST1+4, ST1+5, ST1+6, ST1+7, ST1+8, ST1+11, ST1+13
PSGDRG START+1~, ST1+11*, ST1+12, ST1+18, DET+4*, DET+5, DET+6, DET+7, DET+8, DET+12
DET+13, PRD+1, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, PRD+8, PRD+9, PRD+10
CHKPOS+3, CHKLOC+3
PSGDT START+1~
PSGND0 START+1~, ST1+13*, PRD+1
PSGORD START+1~, ST1+5*, ST1+6*, ST1+7, ST1+8, ST1+11, ST1+13
PSJC START+2~
PSJCNT START+1~, ST1+23*
PSJDOSE START+1~
PSJDRN START+1~, PRD+1*, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, PRD+8, PRD+9, PRD+10
PSJION DEV+1*, DEV+3!, DEV+4!
PSJL START+2~
>> PSJPG ST1+23*, HD+1, HD+4, HD+5, HD+6*
PSJPR START+1~, PRD+1*, PRD+2*, PRD+3, PRD+4, PRD+6, PRD+7, PRD+8
PSJY START+2~
Q START+4*, ST1+17*, DET+2*, DET+7, DET+8, DET+11*, EXIT!
>> Q2 DET+2*, DET+8, DET+11*, DET+17*
STDT START+2~, ST1+3*, ST1+4*, ST1+6
STOPDT START+2~, ST1+1*, ST1+4
T DET+13*, DET+14*, DET+15, DET+16, EXIT!
X EXIT!, PRD+9*, PRD+10*, DTC+1
>> X1 DTC+1*
>> X2 DTC+1*
Y BEG+6, BEG+8, DET+6*, DET+10, DET+13*, DET+14, EXIT!, PRD+7*, PRD+8*, HD+11*
DTC+1, DTC+2
>> ZTDESC DEV+5*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN DEV+5*
>> ZTSAVE( DEV+6*
ZTSK DEV+1!, DEV+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All