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 - Enrollment Utilities; 04/24/2006 9:20 AM ; 2/16/11 9:35am

Source Information

Source file <DGENU.m>

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

Caller Graph Total: 20

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  

Entry Points

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

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