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 |  Local Variables  | All
Print Page as PDF
Routine: DGENU

Package: Registration

Routine: DGENU


Information

DGENU ;ALB/CJM,ISA/KWP,Zoltan,LBD,EG,CKN,ERC,TMK,PWC,TDM,JLS,HM - Enrollment Utilities ;04/24/2006 9:20 AM

Source Information

Source file <DGENU.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 7 ($$FINDCUR,$$GET,$$STATUS)^DGENA  $$CATEGORY^DGENA4  $$YN^DGENCD1  ($$FINDCUR,$$GET)^DGENEGT  $$PREF^DGENPTA  $$EXT^DGENU  $$SITE^VASITE  
VA FileMan 5 EN^DDIOL  $$GET1^DID  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 2 ENDR^%ZISS  $$DIV4^XUSER  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 22

Package Total Caller Graph
Registration 20 DGEN  DGENA1A  DGENA2  DGENA3  DGENA6  DGENACL2  DGENCD  DGENL1  
DGENL2  DGENPT  DGENRPA2  DGENRPB2  DGENRPC2  DGENRPD2  DGENU  DGMTA  
DGMTHL  DGMTU23  DGRRLU1  DPTLK  
Enrollment Application System 1 EASEZC1  
Order Entry Results Reporting 1 ORCXPND1  

Entry Points

Name Comments DBIA/ICR reference
DISPLAY(DFN) ;
CUR(DFN) ;
REV ;Get variables to display text in reverse video
PATID(DFN) ;
EXT(SUB,VAL) ;
  • ICR #7104
    • Status: Active
    • Usage: Private
    FIELD(SUB) ;
    PROMPT(FILE,FIELD,DEFAULT,RESPONSE,REQUIRE,PRMPTNM) ;
    INST(VADUZ,VACHK) ;
    ; Description: Determine the institution affiliation associated with a
    ; user.
    GETINST(DGPREFAC,DGINST) ;Get Institution file data
    ; Input -- DGPREFAC Institution file IEN
    ; Output -- 1=Successful and 0=Failure
    ; DGINST - Institution file Array
    GETQ

    External References

    Name Field # of Occurrence
    ENDR^%ZISS REV+3
    EN^DDIOL PATID+15, PATID+17
    $$FINDCUR^DGENA CUR+5, PATID+8
    $$GET^DGENA CUR+5, PATID+8
    $$STATUS^DGENA DISPLAY+8
    $$CATEGORY^DGENA4 CUR+7
    $$YN^DGENCD1 PROMPT+30
    $$FINDCUR^DGENEGT CUR+11
    $$GET^DGENEGT CUR+12
    $$PREF^DGENPTA CUR+14, PATID+12
    $$EXT^DGENU CUR+17, CUR+18, CUR+20, PATID+11
    $$GET1^DID PROMPT+22, PROMPT+23
    $$EXTERNAL^DILFD CUR+19, CUR+24, EXT+18, PROMPT+22, PROMPT+23
    $$GET1^DIQ CUR+16
    ^DIR PROMPT+26
    $$SITE^VASITE INST+32
    $$DIV4^XUSER INST+29

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Patient is NOT enrolled in the VA Patient Enrollment System..."
    • Line Location: DISPLAY+9
    Function Call: WRITE
    • Prompt: !?3,IORVON,"Enrollment Category : ",$S($G(DGENCAT)="":"-none-",1:$$EXTERNAL^DILFD(27.15,.02,"",DGENCAT)),IORVOFF
    • Line Location: CUR+19
    Function Call: WRITE
    • Prompt: !?3,"Enrollment Status",?35,": ",$S($G(DGENR("STATUS"))="":"-none-",1:$$EXT^DGENU("STATUS",DGENR("STATUS")))
    • Line Location: CUR+20
    Function Call: WRITE
    • Prompt: !?3,"Enrollment Priority",?35,": ",$S($G(DGENR("PRIORITY"))="":"-none-",1:DGENR("PRIORITY")),$S($G(DGENR("SUBGRP"))="":"",1:$$EXT("SUBGRP",DGENR("SUBGRP")))
    • Line Location: CUR+21
    Function Call: WRITE
    • Prompt: !?3,"Enrollment Group Threshold",?35,": ",$S($G(DGEGT("PRIORITY"))="":"-none-",1:$$EXTERNAL^DILFD(27.16,.02,"",$G(DGEGT("PRIORITY")))),$S($G(DGEGT("SUBGRP"))="":"",1:$$EXTERNAL^DILFD(27.16,.03,"",$G(DGEGT("SUBGRP"))))
    • Line Location: CUR+24
    Function Call: WRITE
    • Prompt: !
    • Line Location: CUR+25
    Function Call: WRITE
    • Prompt: !,"This is a required response. Enter '^' to exit"
    • Line Location: PROMPT+38
    Routine Call
    • DIR
    • Line Location:
      • PROMPT+26

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^DGEN(27.11 - [#27.11] EXTERNAL^DILFD
    ^DGEN(27.15 - [#27.15] EXTERNAL^DILFD
    ^DGEN(27.16 - [#27.16] EXTERNAL^DILFD

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(4 - [#4] PATID+13, GETINST+5, GETINST+7

    Label References

    Name Line Occurrences
    $$EXT CUR+21
    $$FIELD EXT+15
    CUR DISPLAY+17
    GETQ GETINST+5
    REV CUR+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AGAIN PROMPT+18~, PROMPT+28, PROMPT+29*, PROMPT+30*
    DA PROMPT+18~
    DEFAULT PROMPT~, PROMPT+21, PROMPT+22, PROMPT+23, PROMPT+32
    DFN DISPLAY~, DISPLAY+8, DISPLAY+17, CUR~, CUR+5, CUR+7, CUR+14, CUR+16, PATID~, PATID+8
    , PATID+12
    DGEGT CUR+4~, CUR+12*
    DGEGT("PRIORITY" CUR+24
    DGEGT("SUBGRP" CUR+24
    DGEGTIEN CUR+4~, CUR+11*, CUR+12
    DGENCAT CUR+4~, CUR+7*, CUR+19
    DGENR CUR+4~, CUR+5, PATID+7~, PATID+8
    DGENR("APP" CUR+18
    DGENR("DATE" CUR+17
    DGENR("PRIORITY" CUR+21, PATID+11
    DGENR("STATUS" CUR+20, PATID+11
    DGENR("SUBGRP" CUR+21
    DGINST GETINST~
    DGINST("NAME" GETINST+6*
    DGINST("STANUM" GETINST+8*
    DGINST0 GETINST+4~, GETINST+5*, GETINST+6
    DGINST99 GETINST+4~, GETINST+7*, GETINST+8
    DGOKF GETINST+4~, GETINST+9*, GETQ
    DGPREFAC GETINST~, GETINST+5, GETINST+7
    DIR PROMPT+18~
    DIR("A" PROMPT+22*, PROMPT+23*
    DIR(0 PROMPT+20*
    >> DTOUT PROMPT+27, PROMPT+39
    >> DUOUT PROMPT+27, PROMPT+39
    DUZ(2 INST+31
    FACNAME CUR+4~, CUR+14, CUR+22
    FIELD PROMPT~, PROMPT+15, PROMPT+20, PROMPT+22, PROMPT+23
    FILE PROMPT~, PROMPT+15, PROMPT+20, PROMPT+22, PROMPT+23
    FLD EXT+14~, EXT+15*, EXT+17, EXT+18, FIELD+3~*, FIELD+5*, FIELD+6*, FIELD+7*, FIELD+8*, FIELD+9*
    , FIELD+10*, FIELD+11*, FIELD+12*, FIELD+13*, FIELD+14*, FIELD+15*, FIELD+16*, FIELD+17*, FIELD+18*, FIELD+19*
    , FIELD+20*, FIELD+21*, FIELD+22*, FIELD+23*, FIELD+24*, FIELD+25*, FIELD+26*, FIELD+27*, FIELD+28*, FIELD+29*
    , FIELD+30*, FIELD+31*, FIELD+32*, FIELD+33*, FIELD+34*, FIELD+35*, FIELD+36*, FIELD+37*, FIELD+38*, FIELD+39*
    , FIELD+40*, FIELD+41*, FIELD+42*, FIELD+43*, FIELD+44*, FIELD+45*, FIELD+46*, FIELD+47*, FIELD+48*, FIELD+49*
    , FIELD+50*, FIELD+51*, FIELD+52
    IOM PATID+14
    IORVOFF CUR+4~, CUR+19
    IORVON CUR+4~, CUR+19
    OUTPUT PATID+7~, PATID+9*, PATID+11*, PATID+13*, PATID+15, PATID+17
    PFSRC CUR+4~, CUR+16*, CUR+23
    PREFAC CUR+4~, CUR+14*, PATID+7~, PATID+12*, PATID+13
    PRMPTNM PROMPT~, PROMPT+17*, PROMPT+22, PROMPT+23
    QUIT PROMPT+18~, PROMPT+24*, PROMPT+25, PROMPT+27*, PROMPT+36*, PROMPT+37*
    REQUIRE PROMPT~, PROMPT+16*, PROMPT+20, PROMPT+30, PROMPT+37
    RESPONSE PROMPT~, PROMPT+31*, PROMPT+32*, PROMPT+33*, PROMPT+36
    STATUS DISPLAY+7~, DISPLAY+8*, DISPLAY+9, DISPLAY+10, DISPLAY+13
    SUB EXT~, EXT+12, EXT+15, FIELD~, FIELD+5, FIELD+6, FIELD+7, FIELD+8, FIELD+9, FIELD+10
    , FIELD+11, FIELD+12, FIELD+13, FIELD+14, FIELD+15, FIELD+16, FIELD+17, FIELD+18, FIELD+19, FIELD+20
    , FIELD+21, FIELD+22, FIELD+23, FIELD+24, FIELD+25, FIELD+26, FIELD+27, FIELD+28, FIELD+29, FIELD+30
    , FIELD+31, FIELD+32, FIELD+33, FIELD+34, FIELD+35, FIELD+36, FIELD+37, FIELD+38, FIELD+39, FIELD+40
    , FIELD+41, FIELD+42, FIELD+43, FIELD+44, FIELD+45, FIELD+46, FIELD+47, FIELD+48, FIELD+49, FIELD+50
    , FIELD+51
    U GETINST+6, GETINST+8
    VACHK INST~, INST+25*, INST+30*
    VADUZ INST~, INST+28, INST+29
    VADUZ(2 INST+25, INST+26, INST+30, INST+31*, INST+32
    VAL EXT~, EXT+12, EXT+18
    X REV+1~, REV+2*, PROMPT+28, PROMPT+32, INST+27~, INST+29*, INST+30
    >> Y PROMPT+33
    ZZ INST+27~, INST+29
    ZZ( INST+30
    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 |  Local Variables  | All