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

Package: Inpatient Medications

Routine: PSJPDV1


Information

PSJPDV1 ;BIR/KKA-LIST PATIENTS ON SPECIFIC DRUGS (CONT.) ;15 May 98 / 9:28 AM

Source Information

Source file <PSJPDV1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Inpatient Medications 4 $$ENDTC^PSGMI  GT55^PSIVORFB  NAME^PSIVUTL  DRGDISP^PSJLMUT1  

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 PSJPDV0  

Entry Points

Name Comments DBIA/ICR reference
REC ;write patient and order information
DONE
UDREC ;write Unit Dose record
IVREC ;write IV record
THEREST ;
HEADING
LINE ;

External References

Name Field # of Occurrence
$$ENDTC^PSGMI UDREC+5, THEREST+1, HEADING+3, HEADING+7
GT55^PSIVORFB IVREC+4
NAME^PSIVUTL IVREC+6, IVREC+7
DRGDISP^PSJLMUT1 UDREC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND"
  • Line Location: REC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: REC+6
Function Call: WRITE
  • Prompt: ?32,PSJ(X)
  • Line Location: UDREC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: UDREC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: UDREC+8
Function Call: WRITE
  • Prompt: $P(ND,"^",3)
  • Line Location: UDREC+8
Function Call: WRITE
  • Prompt: !,$P(ND,"^",3)
  • Line Location: UDREC+10
Function Call: WRITE
  • Prompt: !!,NM
  • Line Location: IVREC+5
Function Call: WRITE
  • Prompt: ?32,PSJ(JJ)
  • Line Location: IVREC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IVREC+6
Function Call: WRITE
  • Prompt: ?33,"in "
  • Condition for execution: JJ=1
  • Line Location: IVREC+7
Function Call: WRITE
  • Prompt: ?36,PSJ(JJ)
  • Line Location: IVREC+7
Function Call: WRITE
  • Prompt: !
  • Line Location: IVREC+7
Function Call: WRITE
  • Prompt: ?32,$P(P("MR"),U,2)_" "_P(9)_" "_P(8)
  • Line Location: IVREC+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>31
  • Line Location: IVREC+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(Y)>80
  • Line Location: IVREC+9
Function Call: WRITE
  • Prompt: ?32,Y," "
  • Line Location: IVREC+9
Function Call: READ
  • Variable: CONT
  • Timeout: DTIME
  • Line Location: HEADING+0
Function Call: WRITE
  • Prompt: !,"Press RETURN to continue ""^"" to exit: "
  • Line Location: HEADING+0
Function Call: WRITE
  • Prompt: !,$E($$ENDTC^PSGMI(DT),1,8),?70,"PAGE: ",PG
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADING+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADING+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADING+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADING+8
Function Call: WRITE
  • Prompt: !?68,"Start",?75,"Stop",!,"Patient",?32,"Order",?68,"Date",?75,"Date",!
  • Line Location: HEADING+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADING+10
Function Call: WRITE
  • Prompt: ?(80-$L(LN))/2,LN
  • Line Location: LINE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] UDREC+7
^TMP("PSJ" REC+2, REC+3

Label References

Name Line Occurrences
DONE REC+1, REC+2
HEADING REC+1, UDREC+4, IVREC+1
IVREC REC+7
LINE HEADING+5, HEADING+6, HEADING+7
THEREST UDREC+6, IVREC+6, IVREC+7, IVREC+8, IVREC+9, IVREC+10
UDREC REC+7

Naked Globals

Name Field # of Occurrence
^( REC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADCNT DONE!
CONT DONE!, HEADING*
>> DFN IVREC+4*
DRG IVREC+2~
DRG("AD" IVREC+6
DRG("SOL" IVREC+7
DRGI DONE!
DRGN DONE!
DRGT DONE!
DT HEADING+3
DTIME HEADING
FST REC+3*, REC+5, DONE!
I UDREC+7~*
>> IEN REC+7*
IOF HEADING+1
IOSL UDREC+4, IVREC+1
IOST HEADING
JJ DONE!, IVREC+6*, IVREC+7~*
LCNT DONE!
LN DONE!, HEADING+4*, HEADING+6*, HEADING+7*, LINE+1
>> ND REC+5*, REC+6, UDREC+3, UDREC+5, UDREC+8, UDREC+10, IVREC+3
ND3 DONE!
ND3FLG DONE!, UDREC+1!, UDREC+8*, UDREC+10, UDREC+11!, THEREST+3*
ND4 DONE!
>> NM REC+6*, UDREC+5, IVREC+5, HEADING+2*
ON DONE!, IVREC+4*
ON55 IVREC+2~
OPI DONE!, IVREC+9*
ORD REC+3*, REC+5, REC+7, DONE!
P DONE!, IVREC+2~
P("MR" IVREC+8
P("OPI" IVREC+9
P(3 THEREST+1
P(8 IVREC+8
P(9 IVREC+8
PER REC+5*, REC+6, REC+7, DONE!
PEVWD DONE!
PG PSJPDV1+5*, DONE!, HEADING+3*
PREVNM PSJPDV1+5*, REC+6*, DONE!
>> PREVWD PSJPDV1+5*, REC+6, REC+7*
PRIMD DONE!
PSG IVREC+2~
>> PSGP REC+7*, UDREC+2, UDREC+7, IVREC+4
PSJ DONE!, UDREC+1~, UDREC+2, IVREC+2~, IVREC+6, IVREC+7~
PSJ( UDREC+6, IVREC+6, IVREC+7
PSJ(1 UDREC+5
PSJAD DONE!
>> PSJJORD REC+7*, UDREC+2, UDREC+7, IVREC+4
>> PSJREPF HEADING+7
>> PSJREPS HEADING+7
>> PSJSL HEADING+4
>> PSJSNM( HEADING+6
PSJSOL DONE!
>> PSJSRT REC+5, REC+6
>> QFLG REC+1, REC+3, REC+7, UDREC+4, IVREC+1, HEADING*
RMBD DONE!, UDREC+3*, IVREC+3*, THEREST+3
RSTFLG DONE!, UDREC+3*, UDREC+6, IVREC+3*, IVREC+6, IVREC+7, IVREC+10, THEREST+1, THEREST+2, THEREST+3
, THEREST+4*
SI DONE!, UDREC+7*
SND REC+3*, REC+5, DONE!
SOLCNT DONE!
SSN DONE!, UDREC+3*, UDREC+5, IVREC+3*, THEREST+1
>> STD REC+5*, UDREC+5, THEREST+1
TMPNM PSJPDV1+5*, REC+6*, DONE!, HEADING+2
TMPWD PSJPDV1+5*, REC+6*, REC+7, DONE!
U UDREC+3, UDREC+5, IVREC+3, IVREC+8
WARD REC+6*, REC+7, DONE!, UDREC+3*, IVREC+3*, THEREST+2
WCNT DONE!, UDREC+7*
WFLG PSJPDV1+5*, REC+6*, DONE!, UDREC+5, UDREC+8, UDREC+10, THEREST+1, THEREST+2, THEREST+3, HEADING+2*
WRD DONE!, UDREC+7*, UDREC+8, UDREC+9
X UDREC+1~, UDREC+6~*, IVREC+6~*, IVREC+7~*, IVREC+9*, HEADING+8*, HEADING+10*
>> Y IVREC+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All