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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 PAUSE^DG10  NEW^DGRP  LO^DGUTL  $$PRIM^VASITE  
VA Fileman 2 ^DIC  ^DIE  
Kernel 1 (,HOME)^%ZIS  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 7 DGEN  DGEN1  DGENCD  DGMTHL  DGRPT  DGRPTI  DGRPTL1  

Entry Points

Name Comments DBIA/ICR reference
GETPRTQ
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
ELGCHK(DFN) ;Eligibility check for editing
; Input -- DFN Patient IEN
; Output -- 0=No and 1=Yes
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
SETPARQ
ASK ;Ask device in registration
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

    External References

    Name Field # of Occurrence
    ^%ZIS ASK+5, ASK+11
    HOME^%ZIS ASK+18
    PAUSE^DG10 GETPAT+14
    NEW^DGRP GETPAT+21
    LO^DGUTL SETPAR+8
    ^DIC GETPAT+14
    ^DIE GETPAT+19
    $$PRIM^VASITE SETPAR+10

    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
    Routine Call
    • %ZIS
    • Line Location:
      • ASK+18
    Routine Call
    • DIE
    • Line Location:
      • GETPAT+19
    Routine Call
    • DIC
    • Line Location:
      • GETPAT+14
    Routine Call
    • %ZIS
    • Line Location:
      • ASK+5
      • ASK+11

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] ASK+12
    ^DG(40.8 - [#40.8] ASK+3, ASK+16
    ^DG(43 - [#43] ASK+1, ASK+9
    ^DPT - [#2] ELGCHK+5
    ^XUSEC("DG ELIGIBILITY" ELGCHK+8

    Label References

    Name Line Occurrences
    ASK ASK+1
    GETPRT SETPAR+12
    GETPRTQ ASK+1

    Naked Globals

    Name Field # of Occurrence
    ^("DEV" ASK+16
    ^(0 ASK+12
    ^(99 ASK+12

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %ZIS ASK+4*, ASK+10*
    >> %ZIS("A" ASK+4*
    >> %ZIS("B" ASK+3*, GETPRTQ!
    DA GETPAT+17~, GETPAT+19*
    DD GETPAT+11~
    DFN GETPAT~, GETPAT+14*, GETPAT+19, ELGCHK~, ELGCHK+5
    DGADDF GETPAT~, GETPAT+13
    DGASK GETPRT+7~, ASK+1, ASK+2*, ASK+6*
    DGASKDEV SETPAR~, SETPAR+12, GETPRT~, ASK+7*
    DGDIV SETPAR~, SETPAR+10*, SETPAR+12, GETPRT~, ASK+3, ASK+16
    DGHOWPT GETPAT~, GETPAT+19
    DGIO SETPAR~, SETPAR+12, GETPRT~, ASK+9, ASK+16
    DGIO( ASK+14*
    DGIO("HS" ASK+7*
    DGIO("PRF" ASK+7*
    DGIO("RT" ASK+7*
    DGIO(10 ASK+7*, ASK+16*
    DGNEWPF GETPAT~, GETPAT+14*, GETPAT+16
    DGRPTOUT SETPAR~, SETPAR+12, GETPRT~, ASK+1, ASK+5*
    DIC GETPAT+11~, GETPAT+12*
    DIC(0 GETPAT+12*, GETPAT+13*
    DIE GETPAT+17~, GETPAT+19*
    DINUM GETPAT+11~
    DLAYGO GETPAT+11~, GETPAT+13*
    DO GETPAT+11~
    DR GETPAT+17~, GETPAT+19*
    DTOUT GETPRT+7~, ASK+5
    DUOUT GETPRT+7~
    DUZ ELGCHK+8
    I GETPRT+7~, ASK+14*
    IO("Q" GETPRTQ!
    ION ASK+7
    >> IOP ASK+10*
    >> IOS ASK+12
    IOST ASK+6
    POP GETPRT+7~, ASK+5
    U GETPAT+14, ASK+1, ASK+3, ASK+9, ASK+12, ASK+16, ELGCHK+5
    X GETPAT+11~
    Y GETPAT+11~, GETPAT+14~, GETPRT+7~, ASK+12*, ASK+13, ASK+14, ELGCHK+3~, ELGCHK+5*, ELGCHK+8*, ELGCHK+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All