Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls