DGMHV ;ALB/JCH - Display Pre-Registration MHV Enrollment/Registration ; 12/9/03 3:22pm
Source file <DGMHV.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 |
Package | Total | Caller Graph |
---|---|---|
Registration | 5 | DGMHV DGMHVAC DGMHVUTL DGPREP1 ^DGMHV(390.01 |
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
|
Name | Field # of Occurrence |
---|---|
ENDR^%ZISS | ALERT+4, REVERSE+3 |
ACTIONS^DGMHV | MAIN+9 |
MAIN^DGMHV | EN+3 |
SOCIAL^DGMHV | MAIN+12 |
EN^DGMHVAC | MAIN+7, MAIN+11, MAIN+14 |
FILRNA^DGMHVAC | SLOOP+20, SLOOP+22, SLOOP+23, NOFLW+12 |
$$MHVENABL^DGMHVUTL | EN+3 |
ACTSCRN^DGMHVUTL | GETACTS+6 |
GETFLDS^DGMHVUTL | DSPLACT+6 |
GETLACT^DGMHVUTL | DSPLACT+3 |
QUESUC^DGMHVUTL | DSPLACT+18 |
FIND^DIC | GTSOCODS+4 |
FILE^DICN | FILSOC+6, ACTIONS+18 |
^DIE | SLOOP+18, FILSOC+8, NOFLW+11, ACTIONS+19, ACTIONS+21 |
^DIR | SLOOP+11, NOFLW+6, ACTLOOP+5, ACTLOOP+8, ACTLOOP+20, ACTLOOP+25, DELETE+7, CONT+1 |
CLEAR^VALM1 | CLEAR+1 |
FULL^VALM1 | CLEAR+2 |
$$FMTE^XLFDT | DSPLACT+9 |
$$NOW^XLFDT | SLOOP+15, SLOOP+18, NOFLW+9, ACTIONS+19 |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^DGMHV(390.01 - [#390.01] | FIND^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGMHV(390.01 - [#390.01] | SLOOP+25, CANNED+2, CANNED+3, CANNED+4, GTSOCODS+2, GTSOCODS+3 |
^DGMHV(390.02 - [#390.02] | GETACTS+4, GETACTS+5 |
^DGMHV(390.03 - [#390.03] | NOFLW+12 |
^DPT - [#2] | MAIN+9, SOCIAL+2, SLOOP+17, SLOOP+21, FILSOC+5, ACTIONS+18, ACTIONS+20 |
Name | Line Occurrences |
---|---|
ACTIONS | NOFLW+6 |
ACTLOOP | ACTIONS+13 |
ALERT | MAIN+5 |
CANNED | SLOOP+24 |
CLEAR | MAIN+5, MAIN+6, SLOOP+6, SLOOP+24, ACTIONS+8, ACTLOOP+1, ACTLOOP+12, DELETE+8 |
CONT | MAIN+5, SLOOP+12, SLOOP+24, DELETE+8 |
DELETE | ACTLOOP+22 |
DELIM | SPLIT+6 |
DSPLACT | MAIN+5 |
FILSOC | SLOOP+15 |
GETACTS | ACTIONS+10 |
GTSOCODS | SLOOP+4 |
LEN | SPLIT+7, DELIM+9 |
SLOOP | SOCIAL+4 |
SPLIT | TXT+4 |
TXT | ACTLOOP+17, GETACTS+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTCNT | ACTIONS+9~, ACTIONS+11*, GETACTS+3~*, GETACTS+7*, GETACTS+9 |
ACTIEN | GETACTS+3~, GETACTS+4*, GETACTS+5, GETACTS+6, GETACTS+7 |
ACTLINE | GETACTS+8~*, GETACTS+9, GETACTS+10 |
ACTLLIST | GETACTS+6~ |
ACTLLIST( | GETACTS+6 |
ACTSEL | ACTIONS~, ACTIONS+13, ACTIONS+14, ACTLOOP~, ACTLOOP+22 |
ACTSEL( | ACTIONS+16, ACTIONS+17, ACTLOOP+10*, ACTLOOP+16, ACTLOOP+17 |
ACTTXT | GETACTS+3~, GETACTS+4*, GETACTS+5*, GETACTS+7, GETACTS+8 |
BSD | SPLIT+4~, SPLIT+6*, DELIM~, DELIM+5, DELIM+7, DELIM+8 |
DA | SLOOP+18~*, FILSOC+4~!, FILSOC+7!*, NOFLW+1~, NOFLW+9~*, ACTIONS+17~, ACTIONS+19~*, ACTIONS+20~!*, DSPLACT+2~ |
DA(1 | FILSOC+5*, FILSOC+6, FILSOC+7*, ACTIONS+18*, ACTIONS+19*, ACTIONS+20* |
DA(2 | FILSOC+5*, ACTIONS+17*, ACTIONS+18, ACTIONS+20* |
DA(3 | ACTIONS+17* |
DFN | EN~, EN+3, MAIN~, MAIN+5, MAIN+7, MAIN+9, MAIN+11, MAIN+14, SOCIAL+2, SLOOP+15 , SLOOP+17, SLOOP+18, SLOOP+20, SLOOP+21, SLOOP+22, SLOOP+23, FILSOC~, FILSOC+5, FILSOC+7, NOFLW+9 , NOFLW+12, ACTIONS+17, ACTIONS+18, ACTIONS+19, ACTIONS+20, DSPLACT~, DSPLACT+3, DSPLACT+6, DSPLACT+18 |
DGACCNT | ACTIONS+9~, ACTIONS+10* |
DGACDONE | ACTIONS+9~*, ACTIONS+13, ACTLOOP+8*, ACTLOOP+25*, ACTLOOP+27* |
DGACSAVE | ACTIONS+9~*, ACTIONS+14, ACTLOOP+8*, ACTLOOP+25*, ACTLOOP+27* |
DGACTD | DELETE~, DELETE+3, DELETE+5!*, DELETE+8 |
DGACTD( | DELETE+7! |
DGACTDT | DSPLACT+2~, DSPLACT+9*, DSPLACT+10, DSPLACT+11, DSPLACT+12*, DSPLACT+16 |
DGACTS | MAIN+4~ |
DGAIEN | ACTIONS+16~, ACTIONS+17*, ACTIONS+18, ACTIONS+21 |
DGAR1 | SLOOP+25*, NOFLW+1~*, NOFLW+6 |
DGAR2 | NOFLW+1~*, NOFLW+6 |
DGCNT | ACTLOOP+12~*, ACTLOOP+13*, ACTLOOP+14, ACTLOOP+15*, ACTLOOP+18*, ACTLOOP+19*, DELETE+2~* |
DGDASH | GETACTS+9~*, GETACTS+10 |
DGDELAR | DELETE+2~, DELETE+3*, DELETE+5 |
DGDELAR( | DELETE+6 |
DGDELDIR | DELETE+2! |
DGDIR0 | SLOOP+1~, SLOOP+4*, SLOOP+10 |
DGDIR0( | SLOOP+4, SLOOP+13 |
DGDPTSOC | MAIN+4~, MAIN+9~*, SLOOP+1~*, SLOOP+15, SLOOP+25, FILSOC~, FILSOC+5*, NOFLW+6, ACTIONS+15*, ACTIONS+17 , ACTIONS+20 |
DGENRQ | ACTIONS~, ACTIONS+15, ACTIONS+18, ACTIONS+19 |
DGENTRY | MAIN+4~ |
DGFLD | SLOOP+20~*, SLOOP+22*, SLOOP+23* |
DGFLDAR | DSPLACT+2~, DSPLACT+6 |
DGFLDAR(0 | DSPLACT+6 |
DGII | ACTLOOP+12~, ACTLOOP+16* |
DGLACTS | DSPLACT+2~*, DSPLACT+3, DSPLACT+6* |
DGLACTS( | DSPLACT+8, DSPLACT+13, DSPLACT+14, DSPLACT+15, DSPLACT+16 |
DGLACTS(0 | DSPLACT+7 |
DGLINCNT | CANNED+2~, CANNED+3*, CANNED+4 |
DGMHAC | MAIN+4~, MAIN+9 |
DGMHSEL | MAIN+4~, MAIN+9 |
DGMHV | SLOOP+1~ |
DGMHV("SOCIAL" | SLOOP+5, SLOOP+13*, SLOOP+15, SLOOP+16, SLOOP+24, SLOOP+25 |
DGMHVLIN | CANNED+2~*, CANNED+3 |
DGMHVMOD | SLOOP+1~*, ACTIONS~, ACTIONS+10, GETACTS~, GETACTS+6 |
DGMHVND | FILSOC+4~, FILSOC+6*, FILSOC+7, ACTIONS+16~, ACTIONS+18* |
DGMHVNOS | MAIN+4~, MAIN+10, MAIN+13, ACTIONS+14* |
DGMHVNOW | NOFLW+9~*, NOFLW+10 |
DGMHVOUT | MAIN+4~, MAIN+5, MAIN+7, MAIN+8, MAIN+10, MAIN+12, SOCIAL+4, SLOOP+5, SLOOP+11*, SLOOP+14 , CANNED+2~*, CANNED+4*, CANNED+5, ACTIONS+23*, ACTLOOP+8*, ACTLOOP+25*, DSPLACT+18 |
DGMHVSAT | GETACTS+3~ |
DGMSACT | ACTIONS~, ACTIONS+8!, ACTIONS+10, ACTIONS+13, ACTLOOP~, GETACTS~ |
DGMSACT( | ACTIONS+11, ACTLOOP+10, GETACTS+7* |
DGMSACT("" | ACTIONS+10 |
DGOLDEN | SLOOP+17~*, SLOOP+19 |
DGPLURAL | ACTIONS+16~*, ACTIONS+22 |
DGREADTX | SLOOP+1~, SLOOP+3*, SLOOP+6, SLOOP+24 |
DGREALQ | ACTLOOP+6~*, ACTLOOP+23~* |
DGREVTXT | REVERSE~, REVERSE+4 |
>> DGRPFLD | NOFLW+12* |
DGRSPNS | MAIN+4~ |
DGSEL | ACTIONS+16~*, ACTIONS+17 |
DGSELIT | ACTLOOP+10~* |
DGSELL | ACTLOOP+10~* |
DGSOCCOD | GTSOCODS~, GTSOCODS+1!*, NOFLW~ |
DGSOCCOD( | GTSOCODS+5* |
DGSOCIEN | GTSOCODS+1!*, GTSOCODS+3*, GTSOCODS+4, GTSOCODS+5 |
DGSOCSEQ | GTSOCODS+1!*, GTSOCODS+2*, GTSOCODS+3 |
DGSODONE | SOCIAL+3~, SOCIAL+4, SLOOP+24*, SLOOP+26* |
DGSP | DSPLACT+15~*, DSPLACT+16 |
DGSTAY | ACTIONS+9~, ACTLOOP+2*, ACTLOOP+8*, ACTLOOP+9*, ACTLOOP+11, ACTLOOP+12*, ACTLOOP+22*, ACTLOOP+25*, ACTLOOP+26*, DELETE+8* |
DGTAB | SLOOP+1~ |
DIC | FILSOC+5*, FILSOC+7!, NOFLW+1~, ACTIONS+17~*, ACTIONS+19~, ACTIONS+20~!, DSPLACT+2~ |
DIC("DR" | FILSOC+6*, ACTIONS+18* |
DIC(0 | FILSOC+5*, ACTIONS+17* |
DIE | SLOOP+18~*, FILSOC+4~!, FILSOC+7!*, NOFLW+9~, NOFLW+10*, ACTIONS+17~, ACTIONS+19~*, ACTIONS+20~!* |
DINUM | FILSOC+4~, FILSOC+6*, ACTIONS+9~, ACTIONS+18* |
DIR | MAIN+4~, SLOOP+7!, ALERT+2~, NOFLW+1~, ACTIONS+8!, ACTIONS+9~, ACTIONS+13, ACTLOOP~, ACTLOOP+7~, ACTLOOP+12~ , ACTLOOP+24~, DELETE+2!, REVERSE+1~, CONT+1~ |
DIR("??" | SLOOP+11* |
DIR("A" | SLOOP+9*, NOFLW+2*, NOFLW+3*, NOFLW+4*, NOFLW+5*, ACTLOOP+7*, ACTLOOP+8*, ACTLOOP+13*, ACTLOOP+14*, ACTLOOP+15* , ACTLOOP+18*, ACTLOOP+19*, ACTLOOP+20*, ACTLOOP+24*, ACTLOOP+25*, GETACTS+10*, GETACTS+11*, GETACTS+12*, DELETE+7*, CONT+1* |
DIR(0 | SLOOP+10*, NOFLW+5*, ACTIONS+11*, ACTIONS+12*, ACTLOOP+7*, ACTLOOP+20*, ACTLOOP+24*, DELETE+6*, CONT+1* |
DIRUT | SLOOP+2!, SLOOP+24, ALERT+2~, ACTLOOP+6, REVERSE+1~ |
DO | FILSOC+4~! |
DR | SLOOP+18~*, FILSOC+4~!, FILSOC+8*, NOFLW+9~, NOFLW+10*, ACTIONS+19*, ACTIONS+21* |
DTPC | DSPLACT+10~, DSPLACT+11* |
FLWUP | SLOOP+25~* |
I | SLOOP+1~, SLOOP+4*, GTSOCODS+1~*, GTSOCODS+5*, DSPLACT+2~, DSPLACT+13* |
IDT | DSPLACT+10~*, DSPLACT+11 |
II | DELETE+2~, DELETE+6* |
IORVOFF | ALERT+2~, ALERT+5, REVERSE+1~, REVERSE+4 |
IORVON | ALERT+2~, ALERT+5, REVERSE+1~, REVERSE+4 |
J | DSPLACT+2~, DSPLACT+14*, DSPLACT+16 |
LASTDT | DSPLACT+2~, DSPLACT+8*, DSPLACT+9, DSPLACT+13, DSPLACT+14, DSPLACT+15, DSPLACT+16, DSPLACT+17 |
LEN | TXT~, TXT+6, SPLIT+5, SPLIT+7, LEN+2, LEN+4 |
MARX | ACTLOOP+17~, GETACTS+8~, TXT+4!, TXT+11* |
MARX( | ACTLOOP+17, ACTLOOP+18, GETACTS+8, GETACTS+10, TXT+6*, TXT+7, TXT+8*, TXT+10* |
MHVND | SLOOP+21~*, SLOOP+22, SLOOP+23 |
NEWDT | DSPLACT+10~, DSPLACT+11*, DSPLACT+12 |
NEWSTR | SPLIT+4~, DELIM+4! |
NEWSTR( | SPLIT+8, LEN+4*, DELIM+7*, DELIM+8*, DELIM+9, DELIM+10 |
NXT1 | DSPLACT+2~, DSPLACT+13*, DSPLACT+14, DSPLACT+15, DSPLACT+16 |
NXT2 | DSPLACT+2~, DSPLACT+14*, DSPLACT+16 |
OLD | TXT+4~, SPLIT+7!, LEN~, LEN+2, LEN+3, LEN+4, DELIM+10! |
OLD( | TXT+5, TXT+6, TXT+9, SPLIT+8*, DELIM+5, DELIM+7, DELIM+8, DELIM+10* |
OLD(0 | SPLIT+6 |
OLD(1 | SPLIT+5*, SPLIT+6*, SPLIT+7 |
PAD | REVERSE~, REVERSE+2*, REVERSE+4 |
RSPDT | FILSOC~, FILSOC+6, FILSOC+8, ACTIONS+19~* |
RSPNT | FILSOC~, FILSOC+6, FILSOC+8 |
RTST | SLOOP+25~* |
SCRIPT | CANNED~, CANNED+1, CANNED+2, CANNED+3, CANNED+4 |
SELAC | ACTLOOP+12~, ACTLOOP+16*, ACTLOOP+17, ACTLOOP+18 |
SELACSUB | ACTLOOP+17~*, ACTLOOP+18 |
SELCNT | GETACTS+3~*, GETACTS+7*, GETACTS+10*, GETACTS+11 |
TEXT | GTSOCODS+1~*, GTSOCODS+4~ |
TEXT("DILIST" | GTSOCODS+5 |
TMPDT | DSPLACT+2~, DSPLACT+16, DSPLACT+17* |
TXT | TXT~, SPLIT+5, SPLIT+6, SPLIT+7 |
TXTND | GETACTS+5~* |
>> VALMBCK | CLEAR+3* |
X | SLOOP+24, ALERT+2~, ALERT+3*, FILSOC+6*, ACTIONS+18*, REVERSE+1~, REVERSE+2*, TXT+5*, TXT+6, TXT+9 , SPLIT+4~, SPLIT+8*, LEN+1~, LEN+3*, LEN+4*, DELIM+5*, DELIM+7, DELIM+8, DELIM+10* |
X1 | TXT+4~, TXT+5*, TXT+6*, TXT+7, TXT+8, TXT+10, TXT+11, SPLIT+4~, LEN~, LEN+4* , DELIM+5*, DELIM+6*, DELIM+7, DELIM+8, DELIM+9 |
>> XQY0 | ALERT+1 |
Y | SLOOP+11, SLOOP+12, SLOOP+13, ALERT+2~, NOFLW+6, ACTLOOP+6, ACTLOOP+7~, ACTLOOP+8, ACTLOOP+10, ACTLOOP+21 , ACTLOOP+22, ACTLOOP+23, ACTLOOP+24~, ACTLOOP+25, DELETE+7, REVERSE+1~, TXT+4~, TXT+5*, TXT+6*, TXT+9* , TXT+10, SPLIT+4~, DELIM+5*, DELIM+7, DELIM+8 |
ZZ | DELETE+2~, DELETE+6* |
Name | Field # of Occurrence |
---|---|
$T(@RTST | SLOOP+25 |