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

Package: Registration

Routine: DGRPTU


Information

DGRPTU ;ALB/RMO - 10-10T Registration - Utilities; 04/25/2003

Source Information

Source file <DGRPTU.m>

Entry Points

Name Comments DBIA/ICR reference
GETPAT(DGHOWPT,DGADDF,DFN,DGNEWPF) ;Look-up patient
; Input -- DGHOWPT How was patient entered
; 1 =10-10T registration
; DGADDF Add new entry flag (optional)
; 1 =Allow new patient
; Output -- DFN Patient IEN
; # =Patient IEN
; -1 =No patient selected
; DGNEWPF New patient added flag
; 1 =New patient added
; Null=Existing patient
  • ICR #3325
    • Status: Active
    • Usage: Private
    SETPAR(DGDIV,DGIO,DGASKDEV,DGRPTOUT) ;Set up registration parameters
    ; Input -- None
    ; Output -- DGDIV Primary Medical Center Division IEN
    ; DGIO Registration printer array
    ; DGASKDEV Registration ask device flag
    ; DGRPTOUT Quit flag
    ; 1 =Timeout or User up-arrow
    SETPARQ
    GETPRT(DGDIV,DGIO,DGASKDEV,DGRPTOUT) ;Get registration printer defaults
    ; Input -- DGDIV Primary Medical Center Division IEN
    ; Output -- DGIO Registration printer array
    ; DGASKDEV Registration ask device flag
    ; DGRPTOUT Quit flag
    ; -1 =User entered up-arrow
    ; -2 =Timeout
    ASK ;Ask device in registration
    GETPRTQ
    ELGCHK(DFN) ;Eligibility check for editing
    ; Input -- DFN Patient IEN
    ; Output -- 0=No and 1=Yes

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: GETPAT+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: GETPAT+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+5
    Function Call: WRITE
    • Prompt: !,*7,"Not a printer"
    • Line Location: ASK+6
    Function Call: WRITE
    • Prompt: !,"Using closest printer ",Y,!
    • Line Location: ASK+13

    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