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

Package: Inpatient Medications

Routine: PSIVPR


Information

PSIVPR ;BIR/PR,CML3-PRINT PROFILE REPORT ;16 JUL 97 / 9:49 AM

Source Information

Source file <PSIVPR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry from option.
EN1 ; Start here if from OE/RR.
BEG ;Ask for order view.
BEG1 ;Ask for activity log.
BEG2 ;
PAT ;Get patient
QUEUE ;Queue logic.
DEQ ;
Q
DEQ1 ;
DISPLAY ;Display the patient's profile.
WD
ENOR
ENLM ;* S PSIVOEDF=1 D ENCV^PSGSETU,EN1 K PSIVOEDF,J,N2,ORIFN,P17 D READ^PSJUTL
PAUSE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"View each order in the profile"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !,"View each activity log in the profile"
  • Line Location: BEG1+1
Function Call: WRITE
  • Prompt: !,"View the label log in the profile"
  • Line Location: BEG2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED"
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: DEQ+12
Function Call: WRITE
  • Prompt: !!,"PATIENT PROFILE REPORT on "
  • Line Location: DEQ+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,!,^TMP("PSJPRO",$J,1,0),!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,^TMP("PSJPRO",$J,PSIVX,0)
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WD+0
Info |  Source |  Entry Points |  Interaction Calls