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

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

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call