DGMHV ;ALB/JCH - Display Pre-Registration MHV Enrollment/Registration ; 12/9/03 3:22pm
Source file <DGMHV.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DFN) | ; Entry Point for Alert, Socialization, and MHV Enrollment/Registration field editing 'Screen'
|
|
MAIN(DFN) | ; Main Entry Point for MHV socialization text/action
; Do not display MHV enrollment/registration 'screen' if socialization Action entered ; (DGMHVOUT="A"), meaning MHV enrollment/registration is in progress, not a firm YES or NO ; Do not display socialization text/action if MHV ENROLLED/REGISTERED field is not null (DGMHVOUT="R") |
|
SOCIAL | ; MHV Enrollment/Registration talking point/socialization text action
; Display MHV socialization canned text, prompt for patient response, display and prompt for clerk action |
|
SLOOP | ; Allow user to go back and enter a different patient response in case the patient changes their mind
|
|
ALERT | ; Displays the 'MHV Enrollment/Registration Information Missing' message
|
|
FILSOC(DFN,RSPNT,RSPDT,DGDPTSOC) | ; File MHV Socialization Information to PATIENT (#2) file
; DFN = PATIENT IEN ; RSPNT = RESPONSE POINTER TO FILE 390.01 ; RPSDT = RESPONSE DATE/TIME |
|
CANNED(SCRIPT) | ; Display canned text from PATIENT TEXT (#2) field in the MHV SOCIALIZATION (#390.01) file
|
|
GTSOCODS(DGSOCCOD) | ; Get array of socialization codes and display sequences from MHV SOCIALIZATION (#390.01) file
|
|
NOFLW(DGSOCCOD) | ; Perform followup dialog for patient that does not wish to enroll/register
|
|
ACTIONS(DGMSACT,ACTSEL,DGENRQ,DGMHVMOD) | ; Display MHV Socialization actions, allow selection, return selected actions in ACTSEL
; Input: ; DGMSACT - Array of selectable actions from MHV SOCIALIZATION ACTIONS (#390.02) file ; ACTSEL - Array of action(s) currently selected by clerk ; DGENRQ - Internal Entry Number (IEN) of the prospective MHV SOCIALIZATION (#537026) multiple in the PATIENT (#2) file into which ; the selected actions in ACTSEL will be stored. ; DGMHVMOD - Mode; the section of MHV functionality from which this is invoked. Used to screen selectable actions. ; "R" - Enrollment/Registration "S" - Socialization, "A" - Authentication field, "M" - Secure Messaging field |
|
ACTLOOP(DIR,DGMSACT,ACTSEL) | ; Redisplay and reprompt user for action(s) until they're filed, or user aborts
|
|
GETACTS(DGMSACT,DGMHVMOD) | ; Get actions from the MHV SOCIALIZATION ACTIONS (#390.02) file; screen by mode (DGMHVMOD)
; Input: DGMHVMOD - Mode; MHV functionality from which this is invoked. Used to screen selectable Actions. ; DGMSACT - Array containing appropriate MHV actions, after screening based on mode (DGMHVMOD). |
|
DELETE(DGACTD) | ; Delete one previously selected action
; Input : DGACTD - Array of MHV actions selected by clerk. |
|
REVERSE(PAD,DGREVTXT) | ; Display DGREVTXT in reverse video
|
|
TXT(TXT,LEN) | ; Split string into multiple LEN length lines
|
|
SPLIT | ; * Split a word string into individual words.
|
|
LEN(X1,OLD) | ;* Wrap word to next line if it doesn't fit the display length
|
|
DELIM(BSD) | ; Split a string into individual words
; Input: BSD - Characters considered delimiters between words (i.e., for identifying/splitting-up-and/or-separating words) ; Input: OLD(n) - Text array containing ; Output: OLD(n) - Array containing pdated |
|
CLEAR | ; Clear the display
|
|
CONT | ; Prompt to Continue
|
|
ACTRNSFM | ; Transform action prompt input
|
|
DSPLACT(DFN) | ; Display all MHV actions associated with last 5 date/time stamps. If last action is one of the
; MHV Socialization actions, ask additional question about whether the patient was successfully enrolled/registered |
|
ACTHLP | ; Help at action prompt
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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] | Classic Fileman Calls |
^DGMHV(390.01 - [#390.01] | FIND^DIC |