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 |