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,JAM,RN - Patient Enrollment Option; 11/17/00 12:12pm ; 12/6/00 5:32pm

Source Information

Source file <DGEN.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Registration 14 $$CHK^DGEN  ($$FINDCUR,$$STATUS)^DGENA  ($$LOCK,$$STORECUR,UNLOCK)^DGENA1  $$CREATE^DGENA6  $$NATCODE^DGENELA  EN^DGENL  PREFER^DGENPT  ($$GET,$$VET)^DGENPTA  
($$EXT,$$INST,$$PROMPT,DISPLAY)^DGENU  EN^DGMTR  $$LST^DGMTU  XMY^DGMTUTL  GETPAT^DGRPTU  PID^VADPT6  
VA FileMan 5 DD^%DT  $$FIND1^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  
List Manager 1 PAUSE^VALM1  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Registration 10 DGCOL  DGDIS  DGEN  DGEN PATIENT ENROLLMENT  DGEN1  DGENA3  DGENUPL9  DGREG0  
DGRPC  DGRPE1  
Income Verification Match 2 IVMLDEM4  IVMLDEMB  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for stand-alone enrollment option
; Input -- None
; Output -- None
ENQ
EN1(DFN) ;Entry point for enrollment from registration and disposition
; Input -- DFN Patient IEN
; Output -- None
EN1Q
CHK(DFN) ;Check if patient should be asked to enroll
; Input -- DFN Patient IEN
; Output -- 1=Yes and 0=No
CHK3(DFN) ;Check to restrict Register Only Patients to enroll from Patient Enrollment EP protocol
; Input -- DFN Patient IEN
; Output -- 1=Yes and 0=No
ENRPAT(DFN,DGENOUT,DGENRYN) ;Enroll patient DG*5.3*993 Added third parameter
; Input -- DFN Patient IEN
; -- DGENRYN (Optional) ENROLL Y/N question for registration 0=NO 1=YES
; Output -- 1=Successful and 0=Failure
; DGENOUT 1=Timeout or up-arrow
ENRPATQ
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
ENROLL(DFN,DGENRYN) ;Create new local unverified enrollment DG*5.3*993 Added 2nd parameter DGENRYN
; Input -- DFN Patient IEN
; -- DGENRYN (Optional) ENROLL Y/N question for registration 0=NO 1=YES
; Output -- 1=Successful and 0=Failure
ENROLLQ
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
ASKDATE
CANCELQ
DECLINE(DFN,APPDATE) ;Create Declined enrollment
; Input -- DFN Patient IEN
; APPDATE Application date (optional)
; Output -- 1=Successful and 0=Failure
DECLINEQ ;
MTBULL(DFN,DGENR) ;Create/Send means test 'REQUIRED' bulletin for PATIENT ENROLLMENT
MTBULLQ
LINE(DGTEXT,DGLINE) ;Add lines of text to mail message
MTREQ(DFN) ; --
MTREQQ
VIEWDATE(FMDATE) ;
REGONLY(DFN) ;
; DG*5.3*1045 - capture ineligible reason DGINELREA

External References

Name Field # of Occurrence
DD^%DT VIEWDATE+4
$$CHK^DGEN ENROLL+21
$$FINDCUR^DGENA ENROLL+24, REGONLY+8
$$STATUS^DGENA EN1+8, EN1+21, CHK+9, CHK3+6, ENROLL+10
$$LOCK^DGENA1 ENROLL+12, CANCEL+10, DECLINE+6, REGONLY+5
$$STORECUR^DGENA1 ENROLL+41, ASKDATE+13, DECLINE+19
UNLOCK^DGENA1 ENROLLQASKDATE+18, DECLINE+23, REGONLY+13, REGONLY+42
$$CREATE^DGENA6 ENROLL+39, ASKDATE+11, DECLINE+17
$$NATCODE^DGENELA REGONLY+38
EN^DGENL EN+9
PREFER^DGENPT ENROLL+44, DECLINE+22
$$GET^DGENPTA REGONLY+3
$$VET^DGENPTA EN1+17, EN1+21, CHK+6, CHK3+5
$$EXT^DGENU MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
$$INST^DGENU REGONLY+25
$$PROMPT^DGENU ASKDATE+7, ASKDATE+9, DECLINE+11, DECLINE+13, DECLINE+15
DISPLAY^DGENU EN1+22
EN^DGMTR ENROLL+37
$$LST^DGMTU MTREQ+12
XMY^DGMTUTL MTBULL+18
GETPAT^DGRPTU EN+6
$$FIND1^DIC REGONLY+32
FILE^DIE REGONLY+16, REGONLY+41
UPDATE^DIE REGONLY+12
$$GET1^DIQ ENROLL+25, REGONLY+38
^DIR ASK+7, ASKDATE+2
PID^VADPT6 MTBULL+21
PAUSE^VALM1 ENROLL+14, CANCEL+12, DECLINE+8, REGONLY+7
$$NOW^XLFDT ENROLL+9, REGONLY+39
^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+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENROLL+32
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
Function Call: WRITE
  • Prompt: !,">>> Another user is editing, try later ..."
  • Line Location: REGONLY+6
Routine Call
  • DIC
  • Line Location:
    • REGONLY+32
Routine Call
  • DIE
  • Line Location:
    • REGONLY+16
    • REGONLY+41
Routine Call
  • DIE
  • Line Location:
    • REGONLY+12
Routine Call
  • DIR
  • Line Location:
    • ASK+7
    • ASKDATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGEN(27.11 - [#27.11] GET1^DIQ
^DG(408.43 - [#408.43] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] MTBULL+12
^DGMT(408.31 - [#408.31] MTREQ+15
^DPT - [#2] MTBULL+24

Label References

Name Line Occurrences
$$ASK ENRPAT+7
$$CHK EN1+14
$$ENROLL ENRPAT+10
$$ENRPAT EN1+16
$$MTREQ ENROLL+46
$$VIEWDATE CANCEL+21, ASKDATEASKDATE+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+12, ENROLL+19, ENROLL+21
ENRPATQ ENRPAT+9
LINE MTBULL+34, MTBULL+35, MTBULL+36, MTBULL+37, MTBULL+38, MTBULL+39, MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
MTBULL ENROLL+46
MTBULLQ MTBULL+15
MTREQQ MTREQ+15
REGONLY EN1+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION ASK~, ASK+5
APPDATE ENROLL+4~, ENROLL+28*, ENROLL+31*, ENROLL+39, DECLINE~, DECLINE+11, DECLINE+17
BEGIN CANCEL+8~, CANCEL+17*, ASKDATEASKDATE+4
DFN EN+3~, EN+6, EN+9, EN1~, EN1+8, EN1+14, EN1+16, EN1+17, EN1+21, EN1+22
, CHK~, CHK+6, CHK+9, CHK3~, CHK3+5, CHK3+6, ENRPAT~, ENRPAT+10, ENROLL~, ENROLL+10
, ENROLL+12, ENROLL+21, ENROLL+24, ENROLL+39, ENROLL+44, ENROLL+46, ENROLLQ, CANCEL~, CANCEL+10, ASKDATE+11
ASKDATE+18, DECLINE~, DECLINE+6, DECLINE+17, DECLINE+22, DECLINE+23, MTBULL~, MTBULL+24, MTREQ~, MTREQ+12
, REGONLY~, REGONLY+3, REGONLY+5, REGONLY+8, REGONLY+11, REGONLY+13, REGONLY+16, REGONLY+38, REGONLY+42
DGAD ENROLL+4~, ENROLL+7*, ENROLL+28*
DGAPDT ENROLL+4~, ENROLL+25*, ENROLL+26
DGBULL MTBULL+9~
DGBULL( LINE+10*
DGCHK EN1+14~*, EN1+15
DGDISP EN1+3~, EN1+7*, EN1+9*, EN1+12*, EN1+15, ENRPAT+7
DGDSPM ENROLL+4~, ENROLL+16*, ENROLL+18, ENROLL+21
DGEIEN ENROLL+4~, ENROLL+24*, ENROLL+25
DGENOUT EN1+3~, EN1+16, EN1+21, ENRPAT~, ENRPAT+7, ASK~, ASK+8*
DGENPTA REGONLY+2~, REGONLY+3
DGENPTA("INELDATE" REGONLY+3
DGENPTA("INELREA" REGONLY+3
DGENR ENROLL+4~, ENROLL+39, ENROLL+41, ENROLL+46, 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
>> DGENRDT ENROLL+31, REGONLY+30
>> DGENRODT ENROLL+23*, REGONLY+33*, REGONLY+36
DGENRP ENROLL+4~, ENROLL+17*, ENROLL+18, ENROLL+19
>> DGENRRSN REGONLY+32*, REGONLY+35
DGENRYN EN1+9, EN1+10, EN1+11, EN1+16, ENRPAT~, ENRPAT+7*, ENRPAT+8*, ENRPAT+10, ENROLL~, ENROLL+23
, ENROLL+27, ENROLL+28, ENROLL+30, ENROLL+39, ENROLL+44, REGONLY+30
>> DGENSRCE REGONLY+34*, REGONLY+37
DGEXST ENROLL+4~, ENROLL+5*, ENROLL+26*, ENROLL+28
DGFDA REGONLY+2~, REGONLY+14!, REGONLY+17!
DGFDA( REGONLY+10*, REGONLY+11*, REGONLY+19*, REGONLY+22*, REGONLY+24*, REGONLY+25*, REGONLY+26*, REGONLY+27*, REGONLY+28*, REGONLY+30*
, REGONLY+35*, REGONLY+36*, REGONLY+37*, REGONLY+38*, REGONLY+39*, REGONLY+40*
DGFDA(2 REGONLY+16*
DGIENS REGONLY+2~
DGIENS(1 REGONLY+13, REGONLY+16, REGONLY+19, REGONLY+22, REGONLY+24, REGONLY+25, REGONLY+26, REGONLY+27, REGONLY+28, REGONLY+30
, REGONLY+35, REGONLY+36, REGONLY+37, REGONLY+38, REGONLY+39, REGONLY+40
DGINELIG REGONLY+2~, REGONLY+3*, REGONLY+21, REGONLY+30, REGONLY+32
DGINELREA REGONLY+2~, REGONLY+3*, REGONLY+21
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
DGMNU ENROLL+4~, ENROLL+6*, ENROLL+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
DGNOPMT EN1+3~, EN1+10*, ENRPAT+7
DGNOW ENROLL+4~, ENROLL+9*, ENROLL+23, REGONLY+33
DGOKF ENRPAT+10*, ENRPATQ, ENROLL+4~, ENROLL+42*, ENROLLQ+1, CANCEL+8~, ASKDATE+14*, CANCELQ, DECLINE+4~, DECLINE+20*
DECLINEQ+1
DGPT ENROLL+4~, ENROLL+25*, ENROLL+27, ENROLL+30
DGREGO ENROLL+4~, ENROLL+8*, ENROLL+27*
DGREQF ENROLL+4~
DGSTS EN1+3~, EN1+8*, EN1+12
DGTEXT LINE~, LINE+10
DGX EN1+3~
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
DT ENROLL+28, CANCEL+21, DECLINE+11, DECLINE+17, MTREQ+15, REGONLY+10, REGONLY+27
DTOUT ASK+4~, ASK+8
DUOUT ASK+4~, ASK+8
DUZ REGONLY+40
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, CHK3+3~, CHK3+6*, CHK3+7, ENROLL+4~, ENROLL+10*, ENROLL+27, ENROLL+28
U EN1+7, ENROLL+16, ENROLL+17
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*
>> XQY0 EN1+7, ENROLL+16, ENROLL+17
Y CHK+3~, CHK+4*, CHK+6*, CHK+11*, CHK+12, CHK3+3~, CHK3+4*, CHK3+5*, CHK3+7*, CHK3+8
, ENRPAT+6~, ENRPAT+7*, 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