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

Package: Registration

Routine: DGMHV


Information

DGMHV ;ALB/JCH - Display Pre-Registration MHV Enrollment/Registration ; 12/9/03 3:22pm

Source Information

Source file <DGMHV.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !!,DGREADTX
  • Line Location: SLOOP+6
Function Call: WRITE
  • Prompt: !!?8,"""Has a health care team member encouraged you"
  • Line Location: SLOOP+7
Function Call: WRITE
  • Prompt: !!,"My HealtheVet registration information is required to continue with this patient",!!
  • Line Location: SLOOP+12
Function Call: WRITE
  • Prompt: !!,DGREADTX
  • Line Location: SLOOP+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: SLOOP+24
Function Call: WRITE
  • Prompt: !!!!?4,$CHAR(7)
  • Line Location: ALERT+5
Function Call: WRITE
  • Prompt: IORVON
  • Condition for execution: $D(IORVON)
  • Line Location: ALERT+5
Function Call: WRITE
  • Prompt: "** PATIENT NEEDS TO ANSWER MY HEALTHEVET REGISTRATION QUESTIONS **"
  • Line Location: ALERT+5
Function Call: WRITE
  • Prompt: IORVOFF
  • Condition for execution: $D(IORVOFF)
  • Line Location: ALERT+5
Function Call: WRITE
  • Prompt: !?4,"Patient is missing required My HealtheVet Registration information",!
  • Line Location: ALERT+6
Function Call: WRITE
  • Prompt: """"
  • Condition for execution: DGLINCNT=1
  • Line Location: CANNED+4
Function Call: WRITE
  • Prompt: ^DGMHV(390.01,SCRIPT,2,DGLINCNT,0)
  • Line Location: CANNED+4
Function Call: WRITE
  • Prompt: """"
  • Condition for execution: $G(DGMHVOUT)
  • Line Location: CANNED+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CANNED+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOFLW+2
Function Call: WRITE
  • Prompt: !?2,"Action(s) taken today to assist patient with My HealtheVet registration."
  • Line Location: ACTLOOP+3
Function Call: WRITE
  • Prompt: !?2,"-----------------------------------------------------------------------"
  • Line Location: ACTLOOP+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ACTLOOP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTLOOP+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: ACTLOOP+23
Function Call: WRITE
  • Prompt: $CHAR(7)
  • Line Location: REVERSE+4
Function Call: WRITE
  • Prompt: ?PAD
  • Line Location: REVERSE+4
Function Call: WRITE
  • Prompt: IORVON
  • Condition for execution: $D(IORVON)
  • Line Location: REVERSE+4
Function Call: WRITE
  • Prompt: DGREVTXT
  • Line Location: REVERSE+4
Function Call: WRITE
  • Prompt: IORVOFF
  • Condition for execution: $D(IORVOFF)
  • Line Location: REVERSE+4
Function Call: WRITE
  • Prompt: !," Recent My HealtheVet actions taken by VistA Clerks "
  • Line Location: DSPLACT+4
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------"
  • Line Location: DSPLACT+5
Function Call: WRITE
  • Prompt: !?8," - NONE - ",!!
  • Line Location: DSPLACT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLACT+14
Function Call: WRITE
  • Prompt: $S((J=1):DGSP_" ",1:" "),$G(DGLACTS(LASTDT,NXT1,"TXT",NXT2))
  • Line Location: DSPLACT+16
Function Call: WRITE
  • Prompt: !?5,"Please select one of the listed actions that most closely describes"
  • Line Location: ACTHLP+1
Function Call: WRITE
  • Prompt: !?5,"the actions taken today to help this patient register in My HealtheVet."
  • Line Location: ACTHLP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGMHV(390.01 - [#390.01] FIND^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call