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

Package: Inpatient Medications

Routine: PSJP


Information

PSJP ;BIR/CML3-INPATIENT LOOK-UP ; 15 Apr 98 / 9:05 AM

Source Information

Source file <PSJP.m>

Entry Points

Name Comments DBIA/ICR reference
ENDPT ; get any patient
CHK ;
CNV ;
WP ; ward parameters
DONE ;
ENCONT ;
CH1 ;
CH2 ;
CH3 ;
RECDCEXP() ;
CLORCHK(PSJPTIEN) ; Return patient does (1) or does not (0) have any clinic orders.

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENDPT+1
Function Call: WRITE
  • Prompt: !!,"Select "_$S($D(PSGDICA):PSGDICA_" ",1:"")_"PATIENT: "
  • Line Location: ENDPT+1
Function Call: WRITE
  • Prompt: $C(7),!!?3,"PATIENT IS CURRENTLY ADMITTED TO ",$P(VAIN(4),"^",2)
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CNV+2
Function Call: WRITE
  • Prompt: " (A 'YES' or 'NO' response is required.)"
  • Line Location: ENCONT+2
Function Call: WRITE
  • Prompt: !!?2,"The patient selected has never been admitted to this medical facility. You",!,"will be able to enter IV orders for this patient but NOT Unit Dose orders."
  • Line Location: CH1+1
Function Call: WRITE
  • Prompt: !!?2,"This patient is shown as deceased. You will not be able to enter orders for",!,"this patient."
  • Line Location: CH2+1
Function Call: WRITE
  • Prompt: !!?2,"This patient is shown to be currently discharged. You will be able to enter",!,"IV orders for this patient but NOT Unit Dose orders."
  • Line Location: CH3+1
Info |  Source |  Entry Points |  Interaction Calls