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

Package: Inpatient Medications

Routine: PSGVBW0


Information

PSGVBW0 ;BIR/CML3,MV - SHOW NON-VERFIED ORDERS GATHERED IN PSGVBW ;09/17/97 1:41 PM

Source Information

Source file <PSGVBW0.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
PROCESS ; Loop through selected patients and display profile/orders.
PROCESS1 ;
DISPLAYW ; Allow selection of patients on each ward selected.
DISPLAYP ; Display WORP1 (Ward or Priority)
DISPLAYT ;
GTORDERS ;
GTORDER2 ;
PROFILE ; Display the patient's profile and allow order selection.
DONE ;
V2 ;
WRT ;
ASK ;
H2 ;
HEADER ;
NP ;
DISPORD(DFN,ON)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(PSJLK,U,2)
  • Line Location: PROCESS1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !!?2,"Select patients either singularly separated by commas (1,2,3), by a range of",!,"patients separated by a dash (1-3), or a combination (1,2,4-6). To select all",!,"patients, enter 'ALL' or a dash ('-'). You can also enter '-n' to"
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: " select the",!,"first patient through the 'nth' patient or enter 'n-' to select the 'nth'",!,"patient through the last patient. If a patient is selected more than once,"
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !,"only the first selection is used. (Entering '1,2,1' would return '1,2'.)"
  • Line Location: H2+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"ORDERS NOT VERIFIED BY A ",$S($P(PSJSYSU,";",3)>1:"PHARMACIST",1:"NURSE")," - "
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: $S(PRD=1:"STAT",PRD=2:"ASAP",1:"ROUTINE")
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: $S(PSGVBWN="ZZ":"^OTHER",1:PSGVBWN)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!," No.",?7,"TEAM",?25,"PRIORITY",?38,"PATIENT",!,LINE
  • Line Location: HEADER+4
Function Call: READ
  • Timeout: DTIME
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: !,PSJOC(ON,X)
  • Line Location: DISPORD+4
Info |  Source |  Entry Points |  Interaction Calls