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

Package: Registration

Routine: DGMHVUTL


Information

DGMHVUTL ;ALB/JCH - Patient MHV Enrollment/Registration - Utilities ;09/12/14 11:30am

Source Information

Source file <DGMHVUTL.m>

Entry Points

Name Comments DBIA/ICR reference
QUESUC(DFN,DGMHVOUT) ; If last action entered by clerk was one of the Socialization actions
; from MHV SOCIALIZATION ACTIONS (#390.02) file entries for which "SELECTABLE LOCATIONS"
; includes SOCIALIZATION, display/prompt the "were you successful" message/question
DSPENR(DFN,DGMHVFIN) ; Display patient's MHV Enrollment/Registration information
; This is the MHV Registration pseudo-screen display; allow entry of 1 to edit the fields as a group, in sequence.
ENQACHK(DFN)
GETLACT(DFN,DGLACTS) ; Get most recent MHV actions entered by clerk for patient DFN
; Input: DFN - Patient IEN
; Output: DGLACTS - Array of MHV actions
ACTSCRN(ACTIEN,LOCLIST) ; Check on code/functional locations at which MHV actions are selectable
; Accepts an ACTION (#390.02) file IEN, returns array LOCLIST(LOC) where LOC is a location at which the action is selectable
HEADER(DFN) ; Print simulated screen header
SELFLDS(DFN) ; Get selectable Enrollment/Registration fields based on values of other fields
ENTRYFLD(DFN,DGUNONLY) ; Get first non-firmly answered field either unanswered or action in progress
GETEN(DFN) ; Get value of MHV Registered
GETAUTH(DFN) ; Get value of MHV Authenticated
GETMSG(DFN) ; Get value of MHV Secure Messaging
CANTXT(DGMSG,CLEAR,CONT,DGTXTW) ; Display canned text to read to patient
UP ;"Upgrade to a Premium My HealtheVet account to view parts of your VA health record and
; use Secure Messaging. This requires one-time in-person identity verification (show
; government issued photo ID). Read and sign VA Release of Information form (10-5345a-MHV).
; Present a government issued photo ID required. (Instructions for optional online
; Authentication process are also available)"
SMSG ;"With Secure Messaging, Veterans can communicate online with VA health care teams about health, medication questions, request prescription renewals, and/or appointments."
AUTH ;"With a Premium My HealtheVet account, patients can view VA appointments, lab results, access portions of their VA medical record and use Secure Messaging"
MHVPCHK(DFN) ; Consistency checker MHV update
; Don't trigger update if MHV REGISTERED has not been answered, and Registration socialization action is pending
GETFLDS(DFN,FLDARRAY) ; Get MHV Registration status field and date values, place in array formatted for merging with historical action display
CONSTAT(DFN,DGFLDNO) ; Write condensed patient MHV status
ENDATE(DFN,INTERNAL) ; Most recent date mhv Registration was updated
AUTHDATE(DFN,INTERNAL) ; Most recent date mhv authentication was updated
MSGDATE(DFN,INTERNAL) ; Most recent date mhv secure messaging was updated
MHVENABL() ; Get value of "Enable MyHealtheVet Prompts?" from MAS Parameter (#43) file
; This API is checked to determine if the MyHealtheVet functionality is enable or not.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"[1] Registered: ",$S(MHVEN=0:"NO",MHVEN=1:"YES",1:"UNANSWERED")
  • Line Location: DSPENR+9
Function Call: WRITE
  • Prompt: ?44,"Confirmed: "_ENRDT
  • Line Location: DSPENR+10
Function Call: WRITE
  • Prompt: !?12,"Reason: "
  • Line Location: DSPENR+11
Function Call: WRITE
  • Prompt: LINE
  • Line Location: DSPENR+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSPENR+17
Function Call: WRITE
  • Prompt: "[2]"
  • Line Location: DSPENR+18
Function Call: WRITE
  • Prompt: ?7,"Authenticated: ",$S(MHVAU=0:"NO",MHVAU=1:"YES",MHVAU=2:"ACTION/IN PROGRESS",1:"UNANSWERED")
  • Line Location: DSPENR+19
Function Call: WRITE
  • Prompt: ?44,"Confirmed: "_AUTHDT
  • Line Location: DSPENR+20
Function Call: WRITE
  • Prompt: !?12,"Reason: "
  • Line Location: DSPENR+21
Function Call: WRITE
  • Prompt: LINE
  • Line Location: DSPENR+24
Function Call: WRITE
  • Prompt: !?14,"Action: ",LINE
  • Line Location: DSPENR+30
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSPENR+33
Function Call: WRITE
  • Prompt: "[3]"
  • Line Location: DSPENR+34
Function Call: WRITE
  • Prompt: ?4,"Secure Messaging: ",$S(MHVMSG=0:"NO",MHVMSG=1:"YES",MHVMSG=2:"ACTION/IN PROGRESS",1:"UNANSWERED")
  • Line Location: DSPENR+35
Function Call: WRITE
  • Prompt: ?44,"Confirmed: "_MSGDT
  • Line Location: DSPENR+36
Function Call: WRITE
  • Prompt: !?12,"Reason: "
  • Line Location: DSPENR+37
Function Call: WRITE
  • Prompt: LINE
  • Line Location: DSPENR+40
Function Call: WRITE
  • Prompt: !?14,"Action: ",LINE
  • Line Location: DSPENR+46
Function Call: WRITE
  • Prompt: !!!!!!!
  • Line Location: DSPENR+48
Function Call: WRITE
  • Prompt: !!?20,"MY HEALTHEVET REGISTRATION STATUS"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!,DGNMSSN,?60,$G(DGPTINFO(DFN,391,"E"))
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"================================================================================"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Please read the following to the patient",!
  • Line Location: CANTXT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: CANTXT+12
Function Call: WRITE
  • Prompt: !?10,"MHV Registration Progress"
  • Line Location: CONSTAT+8
Function Call: WRITE
  • Prompt: !,DGDASH
  • Line Location: CONSTAT+9
Function Call: WRITE
  • Prompt: !,$$ENDATE(DFN),?10,"[Step 1 of 3] My HealtheVet Registration: ",?56,$S(DGEN=1:"COMPLETED",DGEN=2:"ACTION PENDING",DGEN=0:"REFUSED",1:"UNANSWERED")
  • Line Location: CONSTAT+10
Function Call: WRITE
  • Prompt: !,$$AUTHDATE(DFN),?10,"[Step 2 of 3] Authentication Upgrade:",?56,$S(DGAUTH=1:"COMPLETED: ",DGAUTH=2:"ACTION PENDING",DGAUTH=0:"REFUSED",1:"UNANSWERED")
  • Line Location: CONSTAT+11
Function Call: WRITE
  • Prompt: !,$$MSGDATE(DFN),?10,"[Step 3 of 3] Secure Messaging Verification:",?56,$S(DGMSG=1:" COMPLETED: "_$$MSGDATE(DFN),DGMSG=2:"ACTION PENDING",DGMSG=0:"REFUSED:",1:"UNANSWERED")
  • Line Location: CONSTAT+12

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