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

Package: Inpatient Medications

Routine: PSGLBA


Information

PSGLBA ;BIR/CML3-LABEL ALIGNMENT ;16 DEC 97 / 1:36 PM

Source Information

Source file <PSGLBA.m>

Entry Points

Name Comments DBIA/ICR reference
ENLP ; please do NOT place an IF statement in this paragraph
L2
EN1 ; alignment upon entry into package
E1
EN2 ;
DONE ;
ENAL ; for align option
ALDONE ;
DEV ;
SLAVE ;
ASK ;
H1 ;
OK ;
H2 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "\------------- FIRST LINE OF LABEL ------------/"
  • Line Location: ENLP+1
Function Call: WRITE
  • Prompt: !,"<",?47,">",!,"<------------- LABEL BOUNDARIES --------------->"
  • Line Location: ENLP+2
Function Call: WRITE
  • Prompt: !,"<",?47,">",!,"/--------------LAST LINE OF LABEL--------------\"
  • Line Location: ENLP+3
Function Call: WRITE
  • Prompt: !!," XX/XX | XX/XX | XX/XX/XX XX:XX (PXXXX) | A T",?52,"PATIENT NAME",?87,"ROOM-BED"
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !," DRUG NAME",?30,"SCHEDULE TYPE| D I",?52,"XXX-XX-XXXX",?70,"DOB"," (AGE)",?91,"TEAM"
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !," DOSAGE ORDERED MED ROUTE SCHEDULE | M M",?52,"SEX",?65,"DIAGNOSIS"
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !," SPECIAL INSTRUCTIONS",?43,"| I E",?52,"ACTIVITY DATE/TIME",?72,"ACTIVITY"
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !," WS HSM NF",?25,"RPH:_____ RN:_____",?43,"| N S",?52,"WARD GROUP",?91,"WARD",!!
  • Line Location: L2+4
Function Call: READ
  • Prompt: " DEVICE [BUSY] ... WAIT? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: E1+1
Function Call: WRITE
  • Prompt: " (WAITING)",!
  • Line Location: E1+1
Function Call: WRITE
  • Prompt: " (NO)"
  • Line Location: E1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENAL+2
Function Call: WRITE
  • Prompt: !!,"No printer selected; labels not aligned."
  • Line Location: ENAL+2
Function Call: WRITE
  • Prompt: !,"Do you need to align the UNIT DOSE label stock"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?2,"Enter 'Y' to print test labels on the printer just selected to check the",!,"alignment of the label stock. If the test labels are not needed, enter an 'N' (or simply press the RETURN key).",!
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !!," Are the labels aligned correctly"
  • Line Location: OK+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!,"Re-align the labels, and then press the RETURN key for more test labels. "
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: Y=1
  • Condition for execution: '$T $C(7) S:X="^"!'$T
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!?2,"Enter 'Y' if the label stock is aligned correctly. Enter an 'N' if you need",!,"to adjust the label stock and print test labels again."
  • Line Location: H2+1
Info |  Source |  Entry Points |  Interaction Calls