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

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  

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) ;
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
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
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