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

Package: Registration

Routine: DGMHVAC


Information

DGMHVAC ;HIRMFO/WAA-REACTIONS SELECT ROUTINE ;6/9/05 11:12

Source Information

Source file <DGMHVAC.m>

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,DGABB) ; Entry point for MHV Enrollment/Registration 'screen'
; Allow editing only if "1" is selected, always begin with Registered? field, since subsequent field logic is dependent
MAIN(DFN,DGABB) ; Main Driver for Enrollment/Registration 'screen'.
; Prompt for three MHV Enrollment/Registration fields - include previously entered values as defaults
; Copy NO value and reason entered at any field to all subsequent fields.
; Do not prompt for subsequent field unless 'YES' is entered at current field.
; (A)ction (in progress) is treated as UNANSWERED.
ENROLLQ(MHV,DGMHVNOW) ; Prompt for "MHV Enrolled/Registered"
AUTHENQ(MHV,DGMHVNOW) ; Prompt for "MHV Authenticated"
OPTINQ(MHV,DGMHVNOW) ; Prompt for "Use MHV Secure Messaging" - Note previous wording was Opt In
ENROLL
AUTHENT
SECMSG
GETRSN(TXTAD,REASPT,REASTXT,REASDFLT,DGTXTND) ; Prompt for "NO" Reason
FILRNA(DFN,DGFIELD,DGRSPT) ; File selected NO Reason to Patient file
FILACT(DFN,DGNODE,DGACTSEL) ; File selected MHV Action(s) to Patient file
GETRSNS(DGMSACT,DGSCRQ) ; Build and return array of selectable reasons from file 390.03
SETDIR(DGMSACT,TXTAD,DGMDEF) ; Put incoming array of reasons into DIC("A")
MHVOK(DFN) ; Check patient's MHV enrollment/registration info.
; Logic to activate/deactivate alert
; -----------------------------------
; 1. If any field contains null (UNANSWERED), return 0
; 2. If any field contains "A" (ACTION), return 0
; 3. If neither 1 nor 2 is true, and any field contains "N" (NO):
; a. The alert is ON if the date the NO was entered is at least 6 months prior to the current date
; b. The alert is OFF if the date the NO was entered is less than 6 months prior to the current date
; 4. If all fields contain "Y" (YES), return 1
LKUPRSN(REASON) ; Lookup "NO" Reason in file 390.03
LKUPRTXT(DFN,DGRFIELD) ; Lookup "OTHER" Reason free text from PATIENT (#2) file
LKUPACT(ACTION) ; Lookup MHV Action in file 390.02
LASTACHK(DFN,ACTXT) ; Check if ACTXT contains the text matching the most recent ACTION entered for patient DFN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !,"Step 1 of 3: My HealtheVet Registration",!,"----------------------------------------",!
  • Line Location: ENROLLQ+3
Function Call: WRITE
  • Prompt: !,"Step 2 of 3: My HealtheVet Authentication Upgrade",!,"-------------------------------------------------------------",!
  • Line Location: AUTHENQ+3
Function Call: WRITE
  • Prompt: !
  • Line Location: AUTHENQ+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AUTHENQ+15
Function Call: WRITE
  • Prompt: MARX(DGTXTCNT)
  • Line Location: AUTHENQ+23
Function Call: WRITE
  • Prompt: !
  • Line Location: AUTHENQ+25
Function Call: WRITE
  • Prompt: !,"Step 3 of 3: My HealtheVet Secure Messaging",!,"--------------------------------------------",!
  • Line Location: OPTINQ+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTINQ+6
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTINQ+14
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTINQ+18
Function Call: WRITE
  • Prompt: !
  • Line Location: AUTHENT+37
Function Call: WRITE
  • Prompt: " Deleted",!
  • Line Location: GETRSN+15

FileMan Files Accessed Via FileMan Db Call

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