DGEN ;ALB/RMO/CJM,JAM,RN - Patient Enrollment Option; 11/17/00 12:12pm ; 12/6/00 5:32pm
Source file <DGEN.m>
| 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGEN(27.11 - [#27.11] | GET1^DIQ |
| ^DG(408.43 - [#408.43] | FIND1^DIC |
