Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  GETS^DIQ  ^DIR  
Registration 3 (ACTIONS,CLEAR,TXT)^DGMHV  $$LKUPRTXT^DGMHVAC  ($$DSPENR,$$GETAUTH,$$GETEN,$$GETMSG,CANTXT,GETLACT)^DGMHVUTL  
Kernel 1 ($$FMDIFF,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DGMHV  DGMHVAC  DGMHVUTL  DGPREP1  DGRPC3  

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

External References

Name Field # of Occurrence
ACTIONS^DGMHV AUTHENT+28, SECMSG+19
CLEAR^DGMHV MAIN+7, ENROLLQ+2, AUTHENQ+2, OPTINQ+2
TXT^DGMHV AUTHENQ+22, SETDIR+4
$$LKUPRTXT^DGMHVAC GETRSN+3
$$DSPENR^DGMHVUTL EN+4, EN+7
$$GETAUTH^DGMHVUTL MAIN+21
$$GETEN^DGMHVUTL MAIN+14
$$GETMSG^DGMHVUTL SECMSG+18
CANTXT^DGMHVUTL AUTHENQ+5, OPTINQ+5, AUTHENT+3, AUTHENT+26
GETLACT^DGMHVUTL LASTACHK+2
^DIC LKUPRSN+1, LKUPACT+1
FILE^DICN FILACT+6
^DIE ENROLL+12, ENROLL+13, ENROLL+18, AUTHENT+14, AUTHENT+18, AUTHENT+30, SECMSG+9, SECMSG+14, SECMSG+21, FILRNA+2
, FILACT+3
GETS^DIQ ENROLL+5, AUTHENT+5, SECMSG+4, GETRSN+9, MHVOK+11
^DIR ENROLLQ+8, AUTHENQ+15, OPTINQ+14, GETRSN+7, GETRSN+8, GETRSN+13
$$FMDIFF^XLFDT MHVOK+19
$$NOW^XLFDT MAIN+6, MHVOK+19, LASTACHK+2

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
Routine Call
  • DIC
  • Line Location:
    • LKUPRSN+1
    • LKUPACT+1
Routine Call
  • DIE
  • Line Location:
    • ENROLL+12
    • ENROLL+13
    • ENROLL+18
    • AUTHENT+14
    • AUTHENT+18
    • AUTHENT+30
    • SECMSG+9
    • SECMSG+14
    • SECMSG+21
    • FILRNA+2
    • FILACT+3
Routine Call
  • DIR
  • Line Location:
    • ENROLLQ+8
    • AUTHENQ+15
    • OPTINQ+14
    • GETRSN+7
    • GETRSN+8
    • GETRSN+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMHV(390.03 - [#390.03] ENROLL+11, AUTHENT+11, SECMSG+11, GETRSN+12, GETRSNS+2
^DPT - [#2] ENROLLQ+4, AUTHENQ+7, OPTINQ+7, ENROLL+16, ENROLL+17, ENROLL+22, AUTHENT+17, AUTHENT+27, AUTHENT+28, SECMSG+19
, FILACT+2, LKUPRTXT+1

Label References

Name Line Occurrences
AUTHENQ AUTHENT+1
AUTHENT MAIN+22
ENROLL MAIN+15
ENROLLQ ENROLL+1
FILACT ENROLL+14, AUTHENT+15, AUTHENT+22, AUTHENT+25, AUTHENT+32, AUTHENT+36, SECMSG+12, SECMSG+16, SECMSG+23
FILRNA ENROLL+9, ENROLL+10, ENROLL+11, ENROLL+20, ENROLL+23, ENROLL+24, AUTHENT+9, AUTHENT+10, AUTHENT+11, AUTHENT+21
, AUTHENT+24, AUTHENT+31, AUTHENT+35, SECMSG+8, SECMSG+10, SECMSG+11, SECMSG+15, SECMSG+22, MHVOK+20
GETRSN ENROLL+7, AUTHENT+7, SECMSG+6
GETRSNS GETRSN+4
MAIN EN+6
OPTINQ SECMSG+1
SECMSG MAIN+27
SETDIR GETRSN+6

Naked Globals

Name Field # of Occurrence
^(0 GETRSNS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTCNT GETRSNS+1~*, GETRSNS+4*, SETDIR+2*
ACTIEN GETRSNS+1~, GETRSNS+2*, GETRSNS+4
ACTION LKUPACT~, LKUPACT+1
ACTTXT GETRSNS+1~, GETRSNS+2*, GETRSNS+4
ACTXT LASTACHK~, LASTACHK+5
AUDFLT AUTHENQ+4~, AUTHENQ+7*, AUTHENQ+9
DA ENROLLQ+1~, AUTHENQ+4~, OPTINQ+4~, ENROLL+5~*, ENROLL+12~*, ENROLL+13~*, ENROLL+18~*, AUTHENT+5~*, AUTHENT+12~*, AUTHENT+18~*
, AUTHENT+30~*, SECMSG+4~*, SECMSG+9~*, SECMSG+14~*, SECMSG+21~*, GETRSN+9~*, FILRNA+1~, FILRNA+2*, FILACT+3~*, FILACT+6~*
, MHVOK+11~*
DA(1 FILACT+3*, FILACT+6*
DFN EN~, EN+4, EN+6, EN+7, MAIN~, MAIN+14, MAIN+21, ENROLLQ+4, AUTHENQ+7, OPTINQ+7
, ENROLL+5, ENROLL+6, ENROLL+9, ENROLL+10, ENROLL+11, ENROLL+12, ENROLL+13, ENROLL+14, ENROLL+16, ENROLL+17
, ENROLL+18, ENROLL+20, ENROLL+22, ENROLL+23, ENROLL+24, AUTHENT+5, AUTHENT+6, AUTHENT+9, AUTHENT+10, AUTHENT+11
, AUTHENT+12, AUTHENT+15, AUTHENT+17, AUTHENT+18, AUTHENT+21, AUTHENT+22, AUTHENT+24, AUTHENT+25, AUTHENT+27, AUTHENT+28
, AUTHENT+30, AUTHENT+31, AUTHENT+32, AUTHENT+35, AUTHENT+36, SECMSG+4, SECMSG+5, SECMSG+8, SECMSG+9, SECMSG+10
, SECMSG+11, SECMSG+12, SECMSG+14, SECMSG+15, SECMSG+16, SECMSG+18, SECMSG+19, SECMSG+21, SECMSG+22, SECMSG+23
, GETRSN+3, GETRSN+9, GETRSN+10, FILRNA~, FILRNA+2, FILACT~, FILACT+2, FILACT+3, FILACT+6, MHVOK~
, MHVOK+11, MHVOK+12, MHVOK+14, MHVOK+17, MHVOK+18, MHVOK+19, MHVOK+20, MHVOK+21, LKUPRTXT~, LKUPRTXT+1
, LASTACHK~, LASTACHK+2
DGABB EN~, EN+4, MAIN~, MAIN+7, MAIN+14, MAIN+21, ENROLL+16
DGACTSEL FILACT~
DGACTSEL( FILACT+4, FILACT+5, FILACT+6
DGADFLT ENROLL+5~, ENROLL+6*, ENROLL+7, AUTHENT+5~, AUTHENT+6*, AUTHENT+7
DGCNT FILACT+1~, FILACT+4*, FILACT+6
DGCURSEL AUTHENT+29~*, SECMSG+20~*
DGDFTXT GETRSN+1~, GETRSN+3*, GETRSN+13, GETRSN+15*
DGDPTSOC AUTHENT+28~*, SECMSG+19~*
DGFIELD FILRNA~, FILRNA+2
DGFLD ENROLL+20~*, ENROLL+23*, ENROLL+24*, AUTHENT+21*, AUTHENT+24*, AUTHENT+35*
DGIQ MHVOK+10~, MHVOK+14*, MHVOK+16*, MHVOK+17, MHVOK+18, MHVOK+19, MHVOK+20, MHVOK+21
DGL1TXT LASTACHK+1~, LASTACHK+4*, LASTACHK+5
DGLST1 LASTACHK+1~, LASTACHK+2*, LASTACHK+3, LASTACHK+4
DGLST5 LASTACHK+1~*, LASTACHK+2
DGLST5( LASTACHK+2, LASTACHK+4
DGMATCH LASTACHK+1~*, LASTACHK+5*, LASTACHK+6
DGMDEF SETDIR~, SETDIR+1
DGMDFLT SECMSG+4~, SECMSG+5*, SECMSG+6, GETRSN+10*
DGMHAC MAIN+5~, MAIN+6*, AUTHENT+28, SECMSG+19
DGMHSEL MAIN+5~, MAIN+6*, AUTHENT+28~, AUTHENT+32, SECMSG+19~, SECMSG+23
DGMHSEL(0 AUTHENT+29, SECMSG+20
DGMHV MAIN+5~, ENROLL+1, AUTHENT+1, SECMSG+1
DGMHV("AUTH" MAIN+21*, AUTHENT+3, AUTHENT+13, AUTHENT+16, AUTHENT+19, AUTHENT+26, AUTHENT+33
DGMHV("ENROLLED" MAIN+14*, ENROLL+4, ENROLL+12, ENROLL+15, ENROLL+19
DGMHV("OPTINQ" SECMSG+3, SECMSG+9, SECMSG+13, SECMSG+17
DGMHVI EN+2~, EN+3*, EN+4
DGMHVNOW MAIN+5~, MAIN+6*, ENROLLQ~, AUTHENQ~, AUTHENQ+18, OPTINQ~, OPTINQ+17, ENROLL+1, ENROLL+12, ENROLL+13
, ENROLL+18, AUTHENT+1, AUTHENT+13, AUTHENT+18, AUTHENT+30, SECMSG+1, SECMSG+9, SECMSG+14, SECMSG+21
DGMHVOUT EN+2~, EN+3, EN+4, EN+5, EN+7, MAIN+16, MAIN+23, ENROLL+1*, ENROLL+2, ENROLL+4
, ENROLL+7, ENROLL+8*, AUTHENT+1*, AUTHENT+2, AUTHENT+3, AUTHENT+7, AUTHENT+8*, SECMSG+1*, SECMSG+2, SECMSG+3
, SECMSG+6, SECMSG+7*, GETRSN+7, GETRSN+8*
DGMHVQ EN+2~*, MAIN+9*, MAIN+16, MAIN+23, AUTHENQ+1*, OPTINQ+1*, ENROLL+1*, ENROLL+2, ENROLL+4, ENROLL+7
, ENROLL+8*, AUTHENT+1*, AUTHENT+2, AUTHENT+3, AUTHENT+7, AUTHENT+8*, AUTHENT+26*, SECMSG+1*, SECMSG+2, SECMSG+6
, SECMSG+7*, GETRSN+12, GETRSN+16*
DGMSACT GETRSN+1~, GETRSN+4, GETRSN+6, GETRSNS~, SETDIR~
DGMSACT( GETRSN+5, GETRSN+7, GETRSNS+4*, SETDIR+2
DGNODE FILACT~, FILACT+2, FILACT+3
DGOLDAU AUTHENT+17~*, AUTHENT+19, AUTHENT+27~*, AUTHENT+33
DGOLDEN ENROLL+17~*, ENROLL+19
DGOLDMSG SECMSG+18~*
DGQ MHVOK+20~*
DGRFIELD LKUPRTXT~, LKUPRTXT+1
DGRNSPT MAIN+5~, ENROLL+4*, AUTHENT+3*, SECMSG+3*
DGRPFLD MAIN+5~, ENROLL+9*, ENROLL+10*, AUTHENT+9*, AUTHENT+10*
DGRSNPT MAIN+5~, ENROLL+7, ENROLL+10, ENROLL+11, AUTHENT+7, AUTHENT+10, AUTHENT+11, SECMSG+6, SECMSG+10, SECMSG+11
DGRSNTXT MAIN+5~, ENROLL+4*, ENROLL+7, ENROLL+11, AUTHENT+3*, AUTHENT+7, AUTHENT+11, SECMSG+3*, SECMSG+6, SECMSG+11
, LKUPRTXT+1*, LKUPRTXT+2
DGRSPNS EN+2~, EN+4*, EN+6, EN+7*
DGRSPT FILRNA~, FILRNA+2
DGRTFLD MAIN+5~, ENROLL+11*, AUTHENT+11*
DGSCR GETRSN+1!, GETRSN+2*, GETRSN+4, GETRSNS+1~, GETRSNS+2*, GETRSNS+3
DGSCRQ GETRSNS~, GETRSNS+3
DGTXT AUTHENQ+4~, AUTHENQ+17*, AUTHENQ+19*, AUTHENQ+20*, AUTHENQ+21*, AUTHENQ+22, OPTINQ+16*
DGTXTCNT AUTHENQ+4~, AUTHENQ+22*, AUTHENQ+23, AUTHENQ+24
DGTXTFIN GETRSN+1!, GETRSN+3*, GETRSN+12, GETRSN+14*
DGTXTND GETRSN~, GETRSN+2, GETRSN+3
DIC ENROLL+5~*, AUTHENT+5~*, SECMSG+4~*, GETRSN+9~*, FILACT+6~*, MHVOK+11~*, LKUPRSN+1~*, LKUPACT+1~*
DIC(0 FILACT+6*, LKUPRSN+1*, LKUPACT+1*
DIE ENROLL+12~*, ENROLL+13~*, ENROLL+18~*, AUTHENT+12~, AUTHENT+13*, AUTHENT+18~*, AUTHENT+30~*, SECMSG+9~*, SECMSG+14~*, SECMSG+21~*
, FILRNA+1~, FILRNA+2*, FILACT+3~*
DINUM FILACT+6~*
DIR EN+2~, ENROLLQ+1~, AUTHENQ+4~, OPTINQ+4~, GETRSN+1~, GETRSN+8~, GETRSN+13~, FILACT+3~, MHVOK+10~
DIR("A" ENROLLQ+7*, AUTHENQ+10*, AUTHENQ+11*, AUTHENQ+12*, AUTHENQ+13*, AUTHENQ+14*, OPTINQ+9*, OPTINQ+10*, OPTINQ+11*, OPTINQ+12*
, OPTINQ+13*, GETRSN+8*, GETRSN+13*, SETDIR+1*, SETDIR+2*, SETDIR+3*, SETDIR+5*, SETDIR+8*, SETDIR+9*, SETDIR+10*
DIR("B" ENROLLQ+6*, AUTHENQ+9*, OPTINQ+8*, GETRSN+13*, SETDIR+1*
DIR(0 ENROLLQ+6*, AUTHENQ+8*, OPTINQ+8*, GETRSN+8*, GETRSN+13*, SETDIR+1*, SETDIR+2*
DIRUT MAIN+8!, MAIN+17!, ENROLLQ+8!, AUTHENQ+15!, OPTINQ+14!, ENROLL+1, ENROLL+8, AUTHENT+1, AUTHENT+8, SECMSG+1!
, SECMSG+7, GETRSN+1!
DR ENROLL+5~*, ENROLL+12~*, ENROLL+13~*, ENROLL+18*, AUTHENT+5~*, AUTHENT+12~, AUTHENT+13*, AUTHENT+18*, AUTHENT+30*, SECMSG+4~*
, SECMSG+9~*, SECMSG+14*, SECMSG+21*, GETRSN+9~*, FILRNA+1~, FILRNA+2*, FILACT+3*, MHVOK+11~*
ENDFLT ENROLLQ+1~, ENROLLQ+4*, ENROLLQ+5*, ENROLLQ+6
II SETDIR+4~, SETDIR+6*, SETDIR+7
LINE SETDIR+4~, SETDIR+7*, SETDIR+8
MARX AUTHENQ+22, SETDIR+4~
MARX( AUTHENQ+23, AUTHENQ+24, SETDIR+6, SETDIR+7, SETDIR+8
MARX("" SETDIR+5
MHV ENROLLQ~, AUTHENQ~, OPTINQ~
MHV("AUTH" AUTHENQ+16*, AUTHENQ+18*, AUTHENQ+19, AUTHENQ+20, AUTHENQ+21, OPTINQ+1, OPTINQ+17*
MHV("ENROLLED" ENROLLQ+9*, AUTHENQ+1
MHV("OPTINQ" OPTINQ+15*, OPTINQ+17
MHVBAD MHVOK+10~, MHVOK+13*, MHVOK+14*, MHVOK+15, MHVOK+16, MHVOK+18*, MHVOK+19*, MHVOK+21*, MHVOK+22
MHVEN MHVOK+10~
MHVND ENROLL+22~*, ENROLL+23, ENROLL+24
MHVOK MHVOK+10~
MHVOK( MHVOK+12*, MHVOK+14, MHVOK+17, MHVOK+18, MHVOK+19, MHVOK+21
MHVOKND MHVOK+10~
MSGDFLT OPTINQ+4~, OPTINQ+7*, OPTINQ+8
NEXT FILACT+1~, FILACT+2*, FILACT+3, FILACT+4*, FILACT+5, FILACT+6
REASDFLT GETRSN~, GETRSN+5*, GETRSN+6
REASON LKUPRSN~, LKUPRSN+1
REASPT GETRSN~, GETRSN+7*, GETRSN+11, GETRSN+12
REASTXT GETRSN~, GETRSN+14*
RSNSEL GETRSN+5~*
SELCNT GETRSNS+1~*, GETRSNS+4*
TXL SETDIR+4~, SETDIR+6*, SETDIR+7, SETDIR+8
TXTAD GETRSN~, GETRSN+6, SETDIR~, SETDIR+4, SETDIR+5, SETDIR+10
U ENROLL+16
UTILITY ENROLL+5~, AUTHENT+5~, SECMSG+4~, GETRSN+9~, MHVOK+10~
UTILITY(2 ENROLL+6, AUTHENT+6, SECMSG+5, GETRSN+10, MHVOK+12
X MAIN+5~, ENROLLQ+1~, AUTHENQ+4~, OPTINQ+4~, GETRSN+1~, GETRSN+13~, GETRSN+15, GETRSN+16, FILACT+6~*, LKUPRSN+1~*
, LKUPACT+1~*
Y MAIN+5~, ENROLLQ+1~*, ENROLLQ+9, AUTHENQ+4~, AUTHENQ+16, OPTINQ+4~, OPTINQ+15, GETRSN+1~, GETRSN+7, GETRSN+8
, GETRSN+13~, GETRSN+14
Y(0 LKUPRSN+2, LKUPACT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All