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

Package: Registration

Routine: DGEN


Information

DGEN ;ALB/RMO/CJM - Patient Enrollment Option; 11/17/00 12:12pm ; 12/6/00 5:32pm

Source Information

Source file <DGEN.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Registration 14 $$CHK^DGEN  $$STATUS^DGENA  ($$LOCK,$$STORECUR,UNLOCK)^DGENA1  $$CREATE^DGENA6  EN^DGENL  PREFER^DGENPT  $$VET^DGENPTA  ($$EXT,$$PROMPT,DISPLAY)^DGENU  
EN^DGMTR  $$LST^DGMTU  XMY^DGMTUTL  GETPAT^DGRPTU  PID^VADPT6  PAUSE^VALM1  
VA Fileman 3 DD^%DT  ^DIE  ^DIR  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 8 DGDIS  DGEN  DGEN PATIENT ENROLLMENT  DGEN1  DGENA3  DGENUPL9  DGREG0  DGRPE1  

Entry Points

Name Comments DBIA/ICR reference
MTREQQ
CHK(DFN) ;Check if patient should be asked to enroll
; Input -- DFN Patient IEN
; Output -- 1=Yes and 0=No
EN ;Entry point for stand-alone enrollment option
; Input -- None
; Output -- None
CANCEL(DFN,DGENR,EFFDATE) ;Cancel current enrollment
; Input
; DFN Patient IEN
; DGENR Array containing current enrollment (pass by reference)
; EFFDATE Enrollment Effective Date Of Change (optional)
; Output
; Function Return Value is 1 if Successful and 0 on Failure
ASK(ACTION,DGENOUT) ;Ask patient if s/he would like to enroll or cease enrollment
; Input -- ACTION Action description
; Output -- 1=Yes and 0=No
; DGENOUT 1=Timeout or up-arrow
ENRPAT(DFN,DGENOUT) ;Enroll patient
; Input -- DFN Patient IEN
; Output -- 1=Successful and 0=Failure
; DGENOUT 1=Timeout or up-arrow
DECLINEQ ;
CANCELQ
MTBULLQ
EN1(DFN) ;Entry point for enrollment from registration and disposition
; Input -- DFN Patient IEN
; Output -- None
DECLINE(DFN,APPDATE) ;Create Declined enrollment
; Input -- DFN Patient IEN
; APPDATE Application date (optional)
; Output -- 1=Successful and 0=Failure
ENQ
ENRPATQ
EN1Q
ASKDATE
MTREQ(DFN) ; --
LINE(DGTEXT,DGLINE) ;Add lines of text to mail message
ENROLLQ
MTBULL(DFN,DGENR) ;Create/Send means test 'REQUIRED' bulletin for PATIENT ENROLLMENT
ENROLL(DFN) ;Create new local unverified enrollment
; Input -- DFN Patient IEN
; Output -- 1=Successful and 0=Failure
VIEWDATE(FMDATE) ;

External References

Name Field # of Occurrence
DD^%DT VIEWDATE+4
$$CHK^DGEN ENROLL+10
$$STATUS^DGENA EN1+12, CHK+9
$$LOCK^DGENA1 ENROLL+5, CANCEL+10, DECLINE+6
$$STORECUR^DGENA1 ENROLL+20, ASKDATE+13, DECLINE+19
UNLOCK^DGENA1 ENROLLQ, ASKDATE+18, DECLINE+23
$$CREATE^DGENA6 ENROLL+18, ASKDATE+11, DECLINE+17
EN^DGENL EN+9
PREFER^DGENPT ENROLL+23, DECLINE+22
$$VET^DGENPTA EN1+12, CHK+6
$$EXT^DGENU MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
$$PROMPT^DGENU ENRPAT+19, ENROLL+14, ENROLL+30, ASKDATE+7, ASKDATE+9, DECLINE+11, DECLINE+13, DECLINE+15
DISPLAY^DGENU EN1+14
EN^DGMTR ENROLL+16
$$LST^DGMTU MTREQ+12
XMY^DGMTUTL MTBULL+18
GETPAT^DGRPTU EN+6
^DIE ENRPAT+25, ENRPAT+32, ENROLL+36, ENROLL+44, ENROLL+52
^DIR ASK+7, ASKDATE+2
PID^VADPT6 MTBULL+21
PAUSE^VALM1 ENROLL+7, CANCEL+12, DECLINE+8
^XMD MTBULL+44

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,">>> Another user is editing, try later ..."
  • Line Location: ENROLL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENROLL+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CANCEL+13
Function Call: WRITE
  • Prompt: !,"and no later than "_$$VIEWDATE(END)_"."
  • Line Location: ASKDATE+1
Function Call: WRITE
  • Prompt: !,">>> Another user is editing, try later ..."
  • Line Location: DECLINE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DECLINE+10
Routine Call
  • DIE
  • Line Location:
    • ENRPAT+25
    • ENRPAT+32
    • ENROLL+36
    • ENROLL+44
    • ENROLL+52
Routine Call
  • DIR
  • Line Location:
    • ASK+7
    • ASKDATE+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] MTBULL+12
^DGMT(408.31 - [#408.31] MTREQ+15
^DPT - [#2] ENRPAT+17, ENROLL+26, ENROLL+28, ENROLL+39, ENROLL+47, MTBULL+24

Label References

Name Line Occurrences
$$ASK ENRPAT+6
$$CHK EN1+6
$$ENROLL ENRPAT+8
$$ENRPAT EN1+8
$$MTREQ ENROLL+25
$$VIEWDATE CANCEL+21, ASKDATE, ASKDATE+1
ASKDATE ASKDATE+4
CANCELQ CANCEL+10, CANCEL+15, ASKDATE+7, ASKDATE+9
DECLINEQ DECLINE+6, DECLINE+11, DECLINE+13, DECLINE+15
ENQ EN+6
ENROLLQ ENROLL+5, ENROLL+10
LINE MTBULL+34, MTBULL+35, MTBULL+36, MTBULL+37, MTBULL+38, MTBULL+39, MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
MTBULL ENROLL+25
MTBULLQ MTBULL+15
MTREQQ MTREQ+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION ASK~, ASK+5
APPDATE ENROLL+3~, ENROLL+14, ENROLL+18, DECLINE~, DECLINE+11, DECLINE+17
BEGIN CANCEL+8~, CANCEL+17*, ASKDATE, ASKDATE+4
DA ENRPAT+21~, ENRPAT+22*, ENRPAT+26!, ENRPAT+28~, ENRPAT+30*, ENRPAT+33!, ENROLL+32~, ENROLL+33*, ENROLL+37!, ENROLL+40~
, ENROLL+42*, ENROLL+45!, ENROLL+48~, ENROLL+50*, ENROLL+53!
DFN EN+3~, EN+6, EN+9, EN1~, EN1+6, EN1+8, EN1+12, EN1+14, CHK~, CHK+6
, CHK+9, ENRPAT~, ENRPAT+8, ENRPAT+17, ENRPAT+22, ENRPAT+30, ENROLL~, ENROLL+5, ENROLL+10, ENROLL+18
, ENROLL+23, ENROLL+25, ENROLL+26, ENROLL+28, ENROLL+33, ENROLL+39, ENROLL+42, ENROLL+47, ENROLL+50, ENROLLQ
, CANCEL~, CANCEL+10, ASKDATE+11, ASKDATE+18, DECLINE~, DECLINE+6, DECLINE+17, DECLINE+22, DECLINE+23, MTBULL~
, MTBULL+24, MTREQ~, MTREQ+12
DGAPPTAN ENRPAT+18~, ENRPAT+19, ENROLL+27~, ENROLL+30
DGBULL MTBULL+9~
DGBULL( LINE+10*
DGDFLT ENROLL+27~, ENROLL+28*, ENROLL+29*, ENROLL+30
DGENOUT EN1+3~, EN1+8, EN1+12, ENRPAT~, ENRPAT+6, ENRPAT+11, ASK~, ASK+8*
DGENR ENROLL+3~, ENROLL+18, ENROLL+20, ENROLL+25, CANCEL~, DECLINE+4~, DECLINE+17, DECLINE+19, MTBULL~
DGENR("APP" CANCEL+17, ASKDATE+11
DGENR("DATE" CANCEL+17, ASKDATE+11, MTBULL+40
DGENR("DATETIME" MTBULL+43
DGENR("END" CANCEL+18
DGENR("STATUS" MTBULL+41
DGENR("USER" MTBULL+42
DGENR2 CANCEL+8~, ASKDATE+11, ASKDATE+13
DGLINE MTBULL+9~, MTBULL+33*, MTBULL+34, MTBULL+35, MTBULL+36, MTBULL+37, MTBULL+38, MTBULL+39, MTBULL+40, MTBULL+41
, MTBULL+42, MTBULL+43, LINE~, LINE+9*, LINE+10
DGMGRP MTBULL+9~, MTBULL+12*, MTBULL+15, MTBULL+18
DGMTNODE MTREQ+9~, MTREQ+12*, MTREQ+15, MTREQ+18
DGMTREQ MTREQ+9~, MTREQ+20*, MTREQQ
DGNAME MTBULL+9~, MTBULL+24*, MTBULL+30, MTBULL+37
DGOKF ENRPAT+4~, ENRPAT+8*, ENRPAT+15*, ENRPATQ, ENROLL+3~, ENROLL+21*, ENROLLQ+1, CANCEL+8~, ASKDATE+14*, CANCELQ
, DECLINE+4~, DECLINE+20*, DECLINEQ+1
DGREQF ENROLL+3~
DGSXS ENRPAT+18~, ENRPAT+19*, ENRPAT+20, ENROLL+27~, ENROLL+30*, ENROLL+31
DGTEXT LINE~, LINE+10
DIE ENRPAT+21~, ENRPAT+23*, ENRPAT+26!, ENRPAT+28~, ENRPAT+29*, ENRPAT+33!, ENROLL+32~, ENROLL+34*, ENROLL+37!, ENROLL+40~
, ENROLL+41*, ENROLL+45!, ENROLL+48~, ENROLL+49*, ENROLL+53!
DIFROM MTBULL+9~
DIR ASK+4~, CANCEL+16~
DIR("A" ASK+5*, CANCEL+20*
DIR("B" ASK+6*, CANCEL+21*
DIR(0 ASK+6*, CANCEL+19*
>> DIRUT ASKDATE+3
DR ENRPAT+21~, ENRPAT+24*, ENRPAT+26!, ENRPAT+28~, ENRPAT+31*, ENRPAT+33!, ENROLL+32~, ENROLL+35*, ENROLL+37!, ENROLL+40~
, ENROLL+43*, ENROLL+45!, ENROLL+48~, ENROLL+51*, ENROLL+53!
DT ENROLL+14, CANCEL+21, DECLINE+11, DECLINE+17, MTREQ+15
DTOUT ASK+4~, ASK+8
DUOUT ASK+4~, ASK+8
EFFDATE CANCEL~, CANCEL+15, ASKDATE+3*, ASKDATE+4*, ASKDATE+11
END CANCEL+8~, CANCEL+18*, ASKDATE+1, ASKDATE+4
ERRMSG CANCEL+8~, ASKDATE+13, ASKDATE+16
FMDATE VIEWDATE~, VIEWDATE+3
REASON CANCEL+8~, ASKDATE+7, ASKDATE+9, ASKDATE+11, DECLINE+4~, DECLINE+13, DECLINE+15, DECLINE+17
REMARKS CANCEL+8~, ASKDATE+9, ASKDATE+11, DECLINE+4~, DECLINE+15, DECLINE+17
STATUS CHK+3~, CHK+9*, CHK+11
VA MTBULL+9~
VA("BID" MTBULL+30
VA("PID" MTBULL+38
VAERR MTBULL+9~
XMDUZ MTBULL+9~
XMSUB MTBULL+9~, MTBULL+30*
XMTEXT MTBULL+9~, MTBULL+27*
Y CHK+3~, CHK+4*, CHK+6*, CHK+11*, CHK+12, ASK+4~, ASK+9, ASKDATE+3, ASKDATE+4, VIEWDATE+2~
, VIEWDATE+3*, VIEWDATE+5
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