Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 2 (ENCV,ENKV)^PSGSETU  ENTSK^PSGTI  
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 4 PSGL  PSGL0  PSJ UD ALIGN LABEL  PSJU AL  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS E1, EN2+1, ENAL+2, ENAL+4, SLAVE+1
^%ZISC ENAL+2, ENAL+4, ENAL+5, SLAVE+1
YN^DICN ASK+1, OK+1
ENCV^PSGSETU ENAL+1
ENKV^PSGSETU ALDONE+1
ENTSK^PSGTI DEV+2

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? "
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • E1
    • EN2+1
    • ENAL+2
    • ENAL+4
    • SLAVE+1

Label References

Name Line Occurrences
ALDONE ENAL+2, ENAL+3
ASK EN1+2, EN2+2, SLAVE+1
DEV E1+3, EN2+2, ENAL+5
DONE EN1+1, EN1+2, E1+2, E1+3, EN2+1
E1 E1+1
ENLP ENAL+4, DEV+1, SLAVE+1
H1 ASK+1
H2 OK+1
OK ENAL+4, DEV+1, DEV+2, SLAVE+1
SLAVE EN1+1, EN2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, ASK+2, OK+1*, OK+2
%ZIS EN1+2*, ENAL+2!*, ENAL+4!, SLAVE+1*
%ZIS("A" ENAL+2*
%ZIS("B" ENAL+2*
DTIME E1+1, OK+2
IO ENLP+1, EN1+1, EN2+1, ENAL+3
IO("Q" DEV+1, DEV+2
IO(0 EN1+1, EN2+1, ENAL+3, OK+1
ION ENAL+4, DEV+2, SLAVE+1
IOP E1*, EN2+1*, DONE+1!, ENAL+2!, ENAL+4*, SLAVE+1*
IOST EN1+1, EN2+1, ENAL+3
POP E1, DONE+1!, ENAL+2
PSGLBA EN2+1, DONE+1!, ENAL+4*, ALDONE+1!, DEV+2*, SLAVE+1*
>> PSGTID DEV+2*
PSGTINC DEV+2*, DEV+3!
>> PSGTIR DEV+2*
>> PSJSYSL E1, ENAL+2
>> Q E1*
>> X E1+1*, OK+2*
>> XQUIT ENAL+1
>> Y EN1+2, EN2+2, ENAL+4, DEV+1, DEV+2, SLAVE+1, ASK+2*, OK+2*
>> ZTDESC DEV+2*
ZTSAVE DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All