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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGCAP

Package: Inpatient Medications

Routine: PSGCAP


Information

PSGCAP ;BIR/CML3-ACTION PROFILE (#2) ;04 APR 96 / 1:10 PM

Source Information

Source file <PSGCAP.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
ORS
ORS1
DONE ;
GDT ;
G ; get ward group
C ;
CDIC ;
L ;
LDIC ;
W ; get ward
P ; get patient
DTM ;
Q1 ;
Q2 ;
ENLM ;Entry point for PSJ LM AP2 protocol

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"No patient(s) selected. Option terminated."
  • Line Location: START+2
Function Call: READ
  • Variable: PSGAPS
  • Timeout: DTIME
  • Line Location: ORS+1
Function Call: WRITE
  • Prompt: !!,"Sort Action Profiles by (T)eam or Treating (P)rovider? T// "
  • Line Location: ORS+1
Function Call: READ
  • Variable: PSGAPO
  • Timeout: DTIME
  • Line Location: ORS1+1
Function Call: WRITE
  • Prompt: !!,"Print (A)ll active orders, or (E)xpiring orders only? A// "
  • Line Location: ORS1+1
Function Call: WRITE
  • Prompt: !,"...this may take a few minutes...(you really should QUEUE this report)..."
  • Line Location: ORS1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !!?2,"Enter a ",N," date. If a time is not entered for the ",N," date, the",!,$S(N["R":"beginning",1:"end")," of the day is assumed and used."
  • Line Location: DTM+2
Function Call: WRITE
  • Prompt: !?2,"If you wish to enter a ",$S(N["R":"start",1:"stop")," date of ",Y,", you must enter a TIME of day",!,"of ",T," or greater. Any date after ",Y," does not need time entered.",!
  • Line Location: DTM+3
Function Call: WRITE
  • Prompt: " (TEAM)"
  • Line Location: Q1+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!?2,"Enter 'T' (or press RETURN) to sort and print patients by TEAM. Enter 'P'",!,"to sort and print patients by treating PROVIDER."
  • Line Location: Q1+4
Function Call: WRITE
  • Prompt: $P(X,PSGAPS,2)
  • Line Location: Q1+6
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q1+7
Function Call: WRITE
  • Prompt: " (ALL)"
  • Line Location: Q2+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: !!?2,"Enter 'A' (or press RETURN) to print ALL ACTIVE orders for the patient(s)",!,"selected. Enter 'E' to print only orders that will EXPIRE within the date",!,"range selected for the patient(s) selected."
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: $P(X,PSGAPO,2)
  • Line Location: Q2+6
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: Q2+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^PS(57.5 - [#57.5] Classic Fileman Calls
^PS(57.8 - [#57.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call