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

Package: Registration

Routine: DGPWB


Information

DGPWB ;ALB/CAW/MLR - Patient Wristband Print ; 9/27/00 3:40pm

Source Information

Source file <DGPWB.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Ask patient name
; This is used when printing a wristband from the menu
ENQ
START(DFN) ;Start
; This is where it will be used when in admit or transfer
; Input is patient IFN
TRANS
DIV
STARTQ
DIVISION(WARD) ; Obtain Divison from Ward Location
  • ICR #5905
    • Status: Active
    • Usage: Private
    SET ;Set the lines to print
  • ICR #5905
    • Status: Active
    • Usage: Private
    PID ;Substituting SS# for missing PID# **287** MLR
    END ;Clean up variables
    PRINT ; Print the wristband
    DEVICE() ;
    DEVEN
    DEVICEQ
    QUE() ; -- que job
    ; return: did job que [ 1|yes 0|no ]
    TRCHK(TYPE) ;Check to see if appropriate type to continue
    TRCHKQ
    ASK() ;Ask if they want to print
    ASKQ

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Printing Wristbands for inpatients at this division is set to no."
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: !,"A printer must be selected."
    • Line Location: DEVEN+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call