DGMHVUTL ;ALB/JCH - Patient MHV Enrollment/Registration - Utilities ;09/12/14 11:30am
Source file <DGMHVUTL.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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. |
Name | Field # of Occurrence |
---|---|
ENDR^%ZISS | DSPENR+8 |
CLEAR^DGMHV | HEADER+3, CANTXT+5 |
CONT^DGMHV | CANTXT+12 |
GETACTS^DGMHV | ENQACHK+6 |
TXT^DGMHV | QUESUC+10, DSPENR+13, DSPENR+23, DSPENR+29, DSPENR+39, DSPENR+45, GETLACT+14, CANTXT+8 |
$$LASTACHK^DGMHVAC | ENQACHK+10 |
$$LKUPRSN^DGMHVAC | DSPENR+11, DSPENR+21, DSPENR+37 |
$$LKUPRTXT^DGMHVAC | DSPENR+12, DSPENR+22, DSPENR+38 |
$$MHVOK^DGMHVAC | MHVPCHK+7 |
MAIN^DGMHVAC | MHVPCHK+6 |
$$ENQACHK^DGMHVUTL | MHVPCHK+4 |
$$ENTRYFLD^DGMHVUTL | MHVPCHK+5 |
$$SSNNM^DGRPU | HEADER+5 |
^DIE | QUESUC+14 |
GETS^DIQ | DSPENR+6, SELFLDS+4, ENTRYFLD+4, GETEN+4, GETAUTH+4, GETMSG+4, ENDATE+2, AUTHDATE+2, MSGDATE+2, MHVENABL+3 |
EN^DIQ1 | HEADER+2 |
^DIR | QUESUC+13, DSPENR+55 |
$$FMTE^XLFDT | ENDATE+4, AUTHDATE+4, MSGDATE+4 |
$$NOW^XLFDT | QUESUC+14 |
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGMHV(390.02 - [#390.02] | DSPENR+27, DSPENR+28, DSPENR+43, DSPENR+44, GETLACT+11, GETLACT+12, ACTSCRN+4, ACTSCRN+5, ACTSCRN+6 |
^DGMHV(390.04 - [#390.04] | ACTSCRN+6 |
^DPT - [#2] | QUESUC+7, DSPENR+26, DSPENR+42, GETLACT+5, GETLACT+6, GETLACT+7, GETLACT+10, MHVPCHK+4 |
^UTILITY("DIQ1" | HEADER+1!, HEADER+2, HEADER+8! |
Name | Line Occurrences |
---|---|
$$AUTHDATE | DSPENR+20, GETFLDS+3, CONSTAT+11 |
$$ENDATE | DSPENR+10, GETFLDS+3, CONSTAT+10 |
$$ENQACHK | QUESUC+5 |
$$GETAUTH | GETFLDS+2, CONSTAT+5 |
$$GETEN | GETFLDS+2, CONSTAT+4 |
$$GETMSG | GETFLDS+2, CONSTAT+6 |
$$MSGDATE | DSPENR+36, GETFLDS+3, CONSTAT+12 |
$$SELFLDS | DSPENR+51 |
HEADER | DSPENR+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTCNT | GETLACT+4~, GETLACT+10*, GETLACT+11, GETLACT+13, GETLACT+14, GETLACT+15 |
ACTCNT( | GETLACT+10*, GETLACT+11, GETLACT+13*, GETLACT+14* |
ACTCNT("DT" | GETLACT+7*, GETLACT+9 |
ACTCNT(0 | GETLACT+15 |
ACTIEN | DSPENR+26~*, DSPENR+27, DSPENR+28, DSPENR+42~*, DSPENR+43, DSPENR+44, GETLACT+11~*, GETLACT+12, ACTSCRN~, ACTSCRN+3 , ACTSCRN+4, ACTSCRN+5, ACTSCRN+6 |
ACTION | DSPENR+2~ |
ACTIONE | DSPENR+2~ |
ACTLOCN | ACTSCRN+4~, ACTSCRN+5*, ACTSCRN+6 |
ACTTXT | DSPENR+27~*, DSPENR+28*, DSPENR+29, DSPENR+43~*, DSPENR+44*, DSPENR+45, GETLACT+11~*, GETLACT+12*, GETLACT+14 |
AUTHDT | DSPENR+20~* |
CANTXT | CANTXT+2~*, CANTXT+3*, CANTXT+4, CANTXT+8 |
CLEAR | CANTXT~, CANTXT+5 |
CONT | CANTXT~, CANTXT+12 |
D | MHVPCHK+2~ |
D0 | MHVPCHK+2~ |
DA | QUESUC+14~*, DSPENR+6~*, HEADER+2~*, SELFLDS+3~, SELFLDS+4*, ENTRYFLD+3~, ENTRYFLD+4*, GETEN+3~, GETEN+4*, GETAUTH+3~ , GETAUTH+4*, GETMSG+3~, GETMSG+4*, CONSTAT+3~, ENDATE+1~, ENDATE+2*, AUTHDATE+1~, AUTHDATE+2*, MSGDATE+1~, MSGDATE+2* , MHVENABL+2~, MHVENABL+3*, MHVENABL+4 |
DC | MHVPCHK+2~ |
DE | MHVPCHK+2~ |
DFN | QUESUC~, QUESUC+5, QUESUC+7, QUESUC+14, DSPENR~, DSPENR+5, DSPENR+6, DSPENR+7, DSPENR+10, DSPENR+11 , DSPENR+12, DSPENR+20, DSPENR+21, DSPENR+22, DSPENR+26, DSPENR+36, DSPENR+37, DSPENR+38, DSPENR+42, DSPENR+51 , ENQACHK~, ENQACHK+10, GETLACT~, GETLACT+5, GETLACT+6, GETLACT+7, GETLACT+10, HEADER~, HEADER+2, HEADER+5 , HEADER+6, SELFLDS~, SELFLDS+4, SELFLDS+5, ENTRYFLD~, ENTRYFLD+4, ENTRYFLD+5, GETEN~, GETEN+4, GETEN+5 , GETAUTH~, GETAUTH+4, GETAUTH+5, GETMSG~, GETMSG+4, GETMSG+5, MHVPCHK~, MHVPCHK+4, MHVPCHK+5, MHVPCHK+6 , MHVPCHK+7, GETFLDS~, GETFLDS+2, GETFLDS+3, CONSTAT~, CONSTAT+4, CONSTAT+5, CONSTAT+6, CONSTAT+10, CONSTAT+11 , CONSTAT+12, ENDATE~, ENDATE+2, ENDATE+3, AUTHDATE~, AUTHDATE+2, AUTHDATE+3, MSGDATE~, MSGDATE+2, MSGDATE+3 |
DG | MHVPCHK+2~ |
DGABB | DSPENR+50! |
DGACT | ENQACHK+1~, ENQACHK+6 |
DGACT(1 | ENQACHK+10 |
DGACT(2 | ENQACHK+10 |
DGACT(3 | ENQACHK+10 |
DGACT(4 | ENQACHK+10 |
DGACT(5 | ENQACHK+10 |
DGAUDT | GETFLDS+1~, GETFLDS+3*, GETFLDS+6, GETFLDS+7 |
DGAUTH | GETFLDS+1~, GETFLDS+2*, GETFLDS+6, GETFLDS+7, CONSTAT+1~, CONSTAT+5*, CONSTAT+11 |
DGAUTHDT | CONSTAT+2~, AUTHDATE+1~, AUTHDATE+3*, AUTHDATE+4*, AUTHDATE+5*, AUTHDATE+6*, AUTHDATE+7 |
DGDASH | CONSTAT+7~*, CONSTAT+9 |
DGDIR | DSPENR+3~ |
DGDIR(2 | DSPENR+18*, DSPENR+54 |
DGDIR(3 | DSPENR+34*, DSPENR+54 |
DGDONE | DSPENR+52~, DSPENR+55*, DSPENR+56* |
DGDTPC | CONSTAT+3~, ENDATE+1~, AUTHDATE+1~, MSGDATE+1~ |
DGEN | GETFLDS+1~, GETFLDS+2*, GETFLDS+4, GETFLDS+5, CONSTAT+1~, CONSTAT+4*, CONSTAT+10 |
DGENDT | GETFLDS+1~, GETFLDS+3*, GETFLDS+4, GETFLDS+5, CONSTAT+2~, ENDATE+1~, ENDATE+3*, ENDATE+4*, ENDATE+5*, ENDATE+6* , ENDATE+7 |
DGFLDNO | CONSTAT~ |
DGFLDNO(1 | CONSTAT+8, CONSTAT+10 |
DGFLDNO(2 | CONSTAT+8, CONSTAT+11 |
DGFLDNO(3 | CONSTAT+8, CONSTAT+12 |
DGFLDSEL | SELFLDS+2~, SELFLDS+6~*, SELFLDS+7*, SELFLDS+8*, SELFLDS+9*, SELFLDS+10, ENTRYFLD+2~, ENTRYFLD+6~*, ENTRYFLD+8*, ENTRYFLD+9* , ENTRYFLD+10*, ENTRYFLD+13*, ENTRYFLD+14*, ENTRYFLD+15*, ENTRYFLD+16, GETEN+2~, GETAUTH+2~, GETMSG+2~ |
DGINDEN | CANTXT+2~, CANTXT+9*, CANTXT+11 |
DGLACTS | GETLACT~, GETLACT+4*, GETLACT+15* |
DGMHVACT | MHVPCHK+2~, MHVPCHK+4*, MHVPCHK+5*, MHVPCHK+6 |
DGMHVFIN | DSPENR~, DSPENR+49*, DSPENR+58* |
DGMHVFLD | CONSTAT+1~ |
DGMHVOUT | QUESUC~, QUESUC+13*, QUESUC+14, ENQACHK+2*, MHVPCHK+2~, MHVPCHK+3* |
DGMHVQ | MHVPCHK+2~, MHVPCHK+3* |
DGMSG | CANTXT~, CANTXT+1, GETFLDS+1~, GETFLDS+2*, GETFLDS+8, GETFLDS+9, CONSTAT+1~, CONSTAT+6*, CONSTAT+12 |
DGMSGDT | GETFLDS+1~, GETFLDS+3*, GETFLDS+8, GETFLDS+9, CONSTAT+2~, MSGDATE+1~, MSGDATE+3*, MSGDATE+4*, MSGDATE+5*, MSGDATE+6* , MSGDATE+7 |
DGNMSSN | HEADER+1~, HEADER+5*, HEADER+6 |
DGOT | GETLACT+4~, GETLACT+5, GETLACT+7* |
DGPTINFO | HEADER+1~ |
DGPTINFO( | HEADER+2*, HEADER+6 |
DGRSNCNT | DSPENR+3~, DSPENR+14*, DSPENR+21, DSPENR+24*, DSPENR+30*, DSPENR+37, DSPENR+40*, DSPENR+46* |
DGRSNTXT | DSPENR+2~, DSPENR+12~*, DSPENR+22~*, DSPENR+38~* |
DGRSPNS | DSPENR+3~, DSPENR+55*, DSPENR+56*, DSPENR+58, DSPENR+59 |
DGSCHTR | DSPENR+3~, DSPENR+51*, DSPENR+55, DSPENR+58 |
DGSCST | HEADER+1~ |
DGSUP1 | ENQACHK+1~, ENQACHK+7*, ENQACHK+8, ENQACHK+10 |
DGSUP2 | ENQACHK+1~, ENQACHK+8*, ENQACHK+10 |
DGSUP3 | ENQACHK+1~, ENQACHK+9*, ENQACHK+10 |
DGSUPTXT | QUESUC+4~, QUESUC+5*, QUESUC+6, QUESUC+10, ENQACHK+10*, ENQACHK+11 |
DGTIMPC | CONSTAT+3~, ENDATE+1~, AUTHDATE+1~, MSGDATE+1~ |
DGTXTCNT | QUESUC+8~, QUESUC+10*, QUESUC+11, QUESUC+12 |
DGTXTW | CANTXT~, CANTXT+7*, CANTXT+8, CANTXT+9 |
DGUNONLY | ENTRYFLD~, ENTRYFLD+7, ENTRYFLD+11 |
DH | MHVPCHK+2~ |
DI | MHVPCHK+2~ |
DIC | DSPENR+6~*, HEADER+2~*, SELFLDS+3~, SELFLDS+4*, ENTRYFLD+3~, ENTRYFLD+4*, GETEN+3~, GETEN+4*, GETAUTH+3~, GETAUTH+4* , GETMSG+3~, GETMSG+4*, MHVPCHK+2~, CONSTAT+3~, ENDATE+1~, ENDATE+2*, AUTHDATE+1~, AUTHDATE+2*, MSGDATE+1~, MSGDATE+2* , MHVENABL+2~, MHVENABL+3* |
DIE | QUESUC+14~*, MHVPCHK+2~ |
DIEL | MHVPCHK+2~ |
DIETMP | MHVPCHK+2~ |
DIFLD | MHVPCHK+2~ |
DIIENS | MHVPCHK+2~ |
DIQ | CONSTAT+3~, ENDATE+1~, AUTHDATE+1~, MSGDATE+1~, MHVENABL+2~ |
DIQ(0 | DSPENR+6*, HEADER+2*, SELFLDS+4*, ENTRYFLD+4*, GETEN+4*, GETAUTH+4*, GETMSG+4*, ENDATE+2*, AUTHDATE+2*, MSGDATE+2* , MHVENABL+3* |
DIR | QUESUC+8~, QUESUC+16!, DSPENR+3~, DSPENR+53~, ENQACHK+1~, MHVPCHK+2~ |
DIR("?" | QUESUC+9* |
DIR("A" | QUESUC+8*, QUESUC+11*, QUESUC+12*, DSPENR+53* |
DIR(0 | QUESUC+8*, DSPENR+54* |
DIRUT | DSPENR+3~, DSPENR+49! |
DK | MHVPCHK+2~ |
DL | MHVPCHK+2~ |
DM | MHVPCHK+2~ |
DP | MHVPCHK+2~ |
DQ | MHVPCHK+2~ |
DR | QUESUC+14*, DSPENR+6~*, HEADER+2~*, SELFLDS+3~, SELFLDS+4*, ENTRYFLD+3~, ENTRYFLD+4*, GETEN+3~, GETEN+4*, GETAUTH+3~ , GETAUTH+4*, GETMSG+3~, GETMSG+4*, MHVPCHK+2~, CONSTAT+3~, ENDATE+1~, ENDATE+2*, AUTHDATE+1~, AUTHDATE+2*, MSGDATE+1~ , MSGDATE+2*, MHVENABL+2~, MHVENABL+3* |
DU | MHVPCHK+2~ |
DV | MHVPCHK+2~ |
DW | MHVPCHK+2~ |
ENRDT | DSPENR+10~* |
>> FILERR(315 | MHVPCHK+7* |
FLDARRAY | GETFLDS~ |
FLDARRAY( | GETFLDS+4*, GETFLDS+5*, GETFLDS+6*, GETFLDS+7*, GETFLDS+8*, GETFLDS+9* |
FNDACT | GETLACT+4~, GETLACT+7* |
I | DSPENR+13~*, DSPENR+14, DSPENR+23~*, DSPENR+24, DSPENR+39~*, DSPENR+40, CANTXT+2~, CANTXT+3* |
INOD | DSPENR+29~*, DSPENR+30, DSPENR+45~*, DSPENR+46 |
INTERNAL | ENDATE~, ENDATE+3, AUTHDATE~, AUTHDATE+3, MSGDATE~, MSGDATE+3 |
IORVOFF | DSPENR+3~ |
IORVON | DSPENR+3~ |
LASTACT | GETLACT+4~* |
LASTCNT | GETLACT+4~*, GETLACT+5* |
LASTDT | GETLACT+4~, GETLACT+5*, GETLACT+6, GETLACT+7, GETLACT+9~*, GETLACT+10, GETLACT+11, GETLACT+13, GETLACT+14, GETLACT+15* |
LASTIEN | GETLACT+4~*, GETLACT+6*, GETLACT+7 |
LI | DSPENR+27~, DSPENR+43~ |
LIENOK | GETLACT+4~, GETLACT+7*, GETLACT+8, GETLACT+9*, GETLACT+10 |
LINE | DSPENR+13~*, DSPENR+14, DSPENR+15, DSPENR+23~*, DSPENR+24, DSPENR+25, DSPENR+29~*, DSPENR+30, DSPENR+31, DSPENR+39~* , DSPENR+40, DSPENR+41, DSPENR+45~*, DSPENR+46, DSPENR+47 |
LOCLIST | ACTSCRN~, ACTSCRN+3!*, ACTSCRN+6* |
LOCLIST( | ACTSCRN+6* |
MARX | QUESUC+8~, DSPENR+13~, DSPENR+23~, DSPENR+29~, DSPENR+39~, DSPENR+45~, GETLACT+14~, CANTXT+2~ |
MARX( | QUESUC+10, QUESUC+11, QUESUC+12, DSPENR+13, DSPENR+23, DSPENR+29, DSPENR+39, DSPENR+45, CANTXT+10, CANTXT+11 |
MARX("" | DSPENR+13, DSPENR+23, DSPENR+29, DSPENR+39, DSPENR+45 |
MHVAU | DSPENR+2~, DSPENR+7*, DSPENR+19, DSPENR+20, DSPENR+21, DSPENR+26, DSPENR+34, SELFLDS+2~, SELFLDS+5*, SELFLDS+8 , ENTRYFLD+2~, ENTRYFLD+5*, ENTRYFLD+9, ENTRYFLD+12, ENTRYFLD+14, GETEN+2~, GETAUTH+2~, GETAUTH+5*, GETAUTH+6, GETMSG+2~ |
MHVEN | DSPENR+2~, DSPENR+7*, DSPENR+9, DSPENR+10, DSPENR+11, DSPENR+18, SELFLDS+2~, SELFLDS+5*, SELFLDS+7, ENTRYFLD+2~ , ENTRYFLD+5*, ENTRYFLD+10, ENTRYFLD+15, GETEN+2~, GETEN+5*, GETEN+6, GETAUTH+2~, GETMSG+2~ |
MHVFLD | ENDATE+1~, AUTHDATE+1~, MSGDATE+1~ |
MHVFLD(2 | ENDATE+3, AUTHDATE+3, MSGDATE+3 |
MHVFLDS | SELFLDS+2~, ENTRYFLD+2~, GETEN+2~, GETAUTH+2~, GETMSG+2~, MHVENABL+2~ |
MHVFLDS(2 | SELFLDS+5, ENTRYFLD+5, GETEN+5, GETAUTH+5, GETMSG+5 |
MHVFLDS(43 | MHVENABL+4 |
MHVMSG | DSPENR+2~, DSPENR+7*, DSPENR+35, DSPENR+36, DSPENR+37, DSPENR+42, SELFLDS+2~, SELFLDS+5*, ENTRYFLD+2~, ENTRYFLD+5* , ENTRYFLD+8, ENTRYFLD+12, ENTRYFLD+13, GETEN+2~, GETAUTH+2~, GETMSG+2~, GETMSG+5*, GETMSG+6 |
MHVOK | DSPENR+2~, DSPENR+6! |
MHVOK(2 | DSPENR+7, DSPENR+11, DSPENR+21, DSPENR+37 |
MHVOKND | DSPENR+2~ |
MSGDT | DSPENR+36~* |
NEXT | CANTXT+2~, CANTXT+10*, CANTXT+11 |
NXT | QUESUC+8~, QUESUC+10*, QUESUC+12* |
REASON | DSPENR+2~, DSPENR+11*, DSPENR+21*, DSPENR+37* |
REASONE | DSPENR+2~, DSPENR+11*, DSPENR+12*, DSPENR+13, DSPENR+21*, DSPENR+22*, DSPENR+23, DSPENR+37*, DSPENR+38*, DSPENR+39 |
TMPCAN | CANTXT+2~, CANTXT+3* |
TXTND | DSPENR+28~*, DSPENR+44~*, GETLACT+12~* |
X | DSPENR+3~, DSPENR+8*, GETLACT+4~, MHVPCHK+2~ |
X1 | GETLACT+4~ |
Y | QUESUC+13, DSPENR+3~, DSPENR+55, GETLACT+4~, MHVPCHK+2~ |
Name | Field # of Occurrence |
---|---|
$T(@(5) | CANTXT+3 |