IBACCWLAIVIEW ;EDE/TPF - ACC (Automated Community Care) Encounters - Action Items related to Viewing Bill or Encounter data ; 12-SEP-2023
Source file <IBACCWLAIVIEW.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 9 | EN^IBACCWLBILLVE INIT^IBACCWLEE WORDWRAP^IBACCWLPREV ($$GETFLD,EDITPREVACT,EDITSTATUS,UPDSTATUS)^IBACCWLUTIL ($$ASKSTATUS,AVAILABLECHK,FIELDPUBLISH)^IBACCWLUTIL1 NEWPROVMAIN^IBACCWLUTIL4 (EN,INIT)^IBACCWLVE EN^IBACCWLVERUR EN^IBACCWLVS |
| VA FileMan | 5 | ^DIC (,UPDATE)^DIE $$IENS^DILF ($$GET1,GETS)^DIQ ^DIR |
| List Manager | 4 | EN^VALM (FULL,PAUSE)^VALM1 FLDTEXT^VALM10 EN^VALM2 |
| Kernel | 1 | ($$CJ,$$RJ)^XLFSTR |
| 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 |
|---|---|---|
| VIEWSERCON(IBDA) | ;EP - VIEW SERVICE CONNECTED DATA
|
|
| VIEWENCOUNTER | ;EP - VIEW READABLE ACC ENCOUNTER. ISN'T THIS IN EE?
|
|
| REVSTATUS(IBDA) | ;EP - REVIEW/EDIT ACC CLAIM STATUS
|
|
| REVSTATUSLOOP(IBDAIEN,BATCHITEM,BATCHCOMMENT,BATCHSTATUS) | ;EP - LOOP REVSTATUS
|
|
| PATINSUR | ;EP - VIEW/EDIT PATIENT INSURANCE
|
|
| PROVMAIN | ;EP - Takes the user to the Provider ID Maintenance Menu
|
|
| PREVREVIEW | ;EP - PREVIOUS ACTIVITY REVIEW FOR AUDITING
|
|
| SEL(IBDA,OPTION) | ;EP -
|
|
| PAUSE(IBQUIT) | ; CONT?
|
|
| HDR(PAGE,SUBHEADER) | ;EP - HEADER
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | PREVREVIEW+17 |
| ^DIE | REVSTATUSLOOP+100 |
| UPDATE^DIE | REVSTATUSLOOP+79 |
| $$IENS^DILF | REVSTATUSLOOP+91 |
| $$GET1^DIQ | REVSTATUSLOOP+26, REVSTATUSLOOP+27, REVSTATUSLOOP+29, REVSTATUSLOOP+38, PREVREVIEW+58 |
| GETS^DIQ | REVSTATUSLOOP+101 |
| ^DIR | PAUSE+4 |
| EN^IBACCWLBILLVE | VIEWENCOUNTER+55 |
| INIT^IBACCWLEE | PREVREVIEW+41 |
| WORDWRAP^IBACCWLPREV | PREVREVIEW+72 |
| $$GETFLD^IBACCWLUTIL | REVSTATUSLOOP+48, REVSTATUSLOOP+56, REVSTATUSLOOP+64 |
| EDITPREVACT^IBACCWLUTIL | REVSTATUSLOOP+107 |
| EDITSTATUS^IBACCWLUTIL | REVSTATUSLOOP+36 |
| UPDSTATUS^IBACCWLUTIL | REVSTATUSLOOP+33 |
| $$ASKSTATUS^IBACCWLUTIL1 | REVSTATUS+16 |
| AVAILABLECHK^IBACCWLUTIL1 | REVSTATUS+12 |
| FIELDPUBLISH^IBACCWLUTIL1 | REVSTATUSLOOP+57, REVSTATUSLOOP+68 |
| NEWPROVMAIN^IBACCWLUTIL4 | PROVMAIN+27 |
| EN^IBACCWLVE | VIEWENCOUNTER+58 |
| INIT^IBACCWLVE | PREVREVIEW+61 |
| EN^IBACCWLVERUR | VIEWENCOUNTER+53 |
| EN^IBACCWLVS | VIEWSERCON+40 |
| EN^VALM | PATINSUR+40, PATINSUR+41 |
| FULL^VALM1 | VIEWENCOUNTER+32, REVSTATUSLOOP+25, PATINSUR+37, SEL+2 |
| PAUSE^VALM1 | VIEWSERCON+33, REVSTATUSLOOP+86, REVSTATUSLOOP+113, PATINSUR+32, PREVREVIEW+30, PREVREVIEW+50, PREVREVIEW+83 |
| FLDTEXT^VALM10 | REVSTATUSLOOP+49, REVSTATUSLOOP+50, REVSTATUSLOOP+51, REVSTATUSLOOP+65, REVSTATUSLOOP+66, REVSTATUSLOOP+67 |
| EN^VALM2 | SEL+3 |
| $$CJ^XLFSTR | PREVREVIEW+75, PREVREVIEW+76, HDR+2, HDR+3 |
| $$RJ^XLFSTR | HDR+3 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(364.9 - [#364.9] | Classic Fileman Calls, GET1^DIQ |
| 364.94 | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | VIEWSERCON+24, VIEWSERCON+25, REVSTATUSLOOP+19, REVSTATUSLOOP+20, PATINSUR+23, PATINSUR+24 |
| ^DPT - [#2] | VIEWSERCON+38 |
| ^IBA(364.9 - [#364.9] | VIEWSERCON+19, VIEWENCOUNTER+29, REVSTATUSLOOP+15, PATINSUR+19, PROVMAIN+22 |
| ^SD(409.61 - [#409.61] | PREVREVIEW+26, PREVREVIEW+32, PREVREVIEW+36, PREVREVIEW+46, PREVREVIEW+54 |
| ^TMP("IBACCWLBILLVE" | VIEWENCOUNTER+11 |
| ^TMP("IBACCWLPREV" | PREVREVIEW+79! |
| ^TMP("IBACCWLVE" | VIEWENCOUNTER+7, VIEWENCOUNTER+10, PREVREVIEW+78! |
| ^TMP("VALM VIDEO" | PREVREVIEW+80! |
| Name | Line Occurrences |
|---|---|
| HDR | PREVREVIEW+66, PREVREVIEW+69 |
| PAUSE | PREVREVIEW+69 |
| REVSTATUSLOOP | REVSTATUS+23 |
| SEL | VIEWSERCON+5, VIEWENCOUNTER+16, REVSTATUS+5, PATINSUR+6, PROVMAIN+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PREVREVIEW+36, PREVREVIEW+54 |
| ^(0 | PREVREVIEW+36, PREVREVIEW+54 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDERR | REVSTATUSLOOP+2~, REVSTATUSLOOP+81 |
| ADDERR("DIERR" | REVSTATUSLOOP+84 |
| ADDFDA | REVSTATUSLOOP+2~ |
| ADDFDA( | REVSTATUSLOOP+74*, REVSTATUSLOOP+75*, REVSTATUSLOOP+76*, REVSTATUSLOOP+77* |
| ADDIENS | REVSTATUSLOOP+2~, REVSTATUSLOOP+73*, REVSTATUSLOOP+74, REVSTATUSLOOP+75, REVSTATUSLOOP+76, REVSTATUSLOOP+77 |
| ADDIENS(1 | REVSTATUSLOOP+88 |
| BATCHCOMMENT | REVSTATUS+1~, REVSTATUS+23, REVSTATUSLOOP~, REVSTATUSLOOP+102*, REVSTATUSLOOP+106, REVSTATUSLOOP+107 |
| BATCHCOMMENT("E" | REVSTATUSLOOP+103! |
| BATCHCOMMENT("I" | REVSTATUSLOOP+104! |
| BATCHITEM | REVSTATUS+1~, REVSTATUS+21*, REVSTATUS+23, REVSTATUSLOOP~, REVSTATUSLOOP+92, REVSTATUSLOOP+106 |
| BATCHSTATUS | REVSTATUS+1~, REVSTATUS+16*, REVSTATUS+23, REVSTATUSLOOP~, REVSTATUSLOOP+33, REVSTATUSLOOP+41 |
| CNT | VIEWSERCON+1~, REVSTATUS+18~* |
| CURASSIGGRP | REVSTATUS+1~, REVSTATUSLOOP+2~, REVSTATUSLOOP+26*, REVSTATUSLOOP+29*, REVSTATUSLOOP+30 |
| CURINDICATOR | REVSTATUSLOOP+2~, REVSTATUSLOOP+48*, REVSTATUSLOOP+49, REVSTATUSLOOP+50, REVSTATUSLOOP+56*, REVSTATUSLOOP+57, REVSTATUSLOOP+64*, REVSTATUSLOOP+65, REVSTATUSLOOP+66, REVSTATUSLOOP+68 |
| DA | REVSTATUS+1~, REVSTATUSLOOP+88*, REVSTATUSLOOP+91 |
| DA(1 | REVSTATUSLOOP+89*, REVSTATUSLOOP+97 |
| DASHLINE | PREVREVIEW+2~, PREVREVIEW+24*, HDR+4 |
| DETRETURN | VIEWENCOUNTER+48*, PREVREVIEW+40~ |
| DFN | VIEWSERCON+1~, VIEWSERCON+19*, VIEWSERCON+20*, VIEWSERCON+24*, VIEWSERCON+28, VIEWSERCON+31*, VIEWSERCON+38, VIEWSERCON+40, VIEWENCOUNTER+1~, VIEWENCOUNTER+29* , VIEWENCOUNTER+30*, REVSTATUSLOOP+2~, REVSTATUSLOOP+15*, REVSTATUSLOOP+16*, REVSTATUSLOOP+19*, PATINSUR+1~, PATINSUR+19*, PATINSUR+20*, PATINSUR+23*, PATINSUR+27 , PATINSUR+30*, PROVMAIN+2~, PROVMAIN+22*, PROVMAIN+23* |
| DIC | PREVREVIEW+2~, PREVREVIEW+8* |
| DIC("A" | PREVREVIEW+16* |
| DIC("S" | PREVREVIEW+13* |
| DIC(0 | PREVREVIEW+15* |
| DIE | REVSTATUS+1~, REVSTATUSLOOP+97* |
| DIR | VIEWSERCON+32~, REVSTATUSLOOP+85~, REVSTATUSLOOP+112~, PATINSUR+31~, PREVREVIEW+29~, PREVREVIEW+49~, PREVREVIEW+82~, PAUSE+2~ |
| DIR(0 | PAUSE+3* |
| DIRUT | REVSTATUSLOOP+85~, REVSTATUSLOOP+112~, PAUSE+2~, PAUSE+5 |
| DR | REVSTATUS+1~, REVSTATUSLOOP+98*, REVSTATUSLOOP+99* |
| DTOUT | REVSTATUSLOOP+85~, REVSTATUSLOOP+112~, PAUSE+2~, PAUSE+5 |
| DUOUT | REVSTATUSLOOP+85~, REVSTATUSLOOP+112~, PAUSE+2~, PAUSE+5 |
| DUZ | REVSTATUSLOOP+75 |
| >> ENCRETURN( | VIEWENCOUNTER+48 |
| FROMSTATUS | REVSTATUSLOOP+2~, REVSTATUSLOOP+27*, REVSTATUSLOOP+32, REVSTATUSLOOP+36, REVSTATUSLOOP+39, REVSTATUSLOOP+41 |
| GREF | VIEWSERCON+1~ |
| I | PREVREVIEW+2~, PREVREVIEW+35*, PREVREVIEW+36*, PREVREVIEW+53*, PREVREVIEW+54* |
| IBBILL | VIEWSERCON+1~, VIEWSERCON+25*, VIEWSERCON+37, VIEWENCOUNTER+1~, REVSTATUSLOOP+2~, REVSTATUSLOOP+20*, REVSTATUSLOOP+23, PATINSUR+1~, PATINSUR+24*, PATINSUR+35 , PROVMAIN+2~, PROVMAIN+25 |
| IBCLELIG | VIEWSERCON+1~ |
| IBDA | VIEWSERCON~, VIEWSERCON+5~, VIEWSERCON+7, VIEWSERCON+9, VIEWSERCON+16, VIEWSERCON+17, VIEWENCOUNTER+16~, VIEWENCOUNTER+18, VIEWENCOUNTER+20, VIEWENCOUNTER+26 , VIEWENCOUNTER+27, VIEWENCOUNTER+48, VIEWENCOUNTER+53, REVSTATUS~, REVSTATUS+5~, REVSTATUS+7, REVSTATUS+9, REVSTATUS+12, REVSTATUS+13, REVSTATUS+14 , PATINSUR+6~, PATINSUR+8, PATINSUR+10, PATINSUR+16, PATINSUR+17, PROVMAIN+9~, PROVMAIN+11, PROVMAIN+13, PROVMAIN+19, PROVMAIN+20 , PREVREVIEW+2~, PREVREVIEW+39*, PREVREVIEW+41, SEL~, SEL+1!, SEL+7*, SEL+8*, SEL+9, SEL+11* |
| IBDA( | VIEWSERCON+9, VIEWENCOUNTER+20, REVSTATUS+9, REVSTATUS+14, REVSTATUS+18, REVSTATUS+21, REVSTATUS+22, REVSTATUSLOOP+44, PATINSUR+10, PROVMAIN+13 , SEL+9* |
| IBDA("" | SEL+11 |
| IBDA("TOTAL" | REVSTATUS+14, REVSTATUS+16, REVSTATUSLOOP+33, REVSTATUSLOOP+35, REVSTATUSLOOP+39, REVSTATUSLOOP+41, REVSTATUSLOOP+94, SEL+6*, SEL+10* |
| IBDAIEN | REVSTATUS+1~, REVSTATUS+20*, REVSTATUS+21*, REVSTATUS+22, REVSTATUS+23, REVSTATUSLOOP~, REVSTATUSLOOP+6, REVSTATUSLOOP+12, REVSTATUSLOOP+13, REVSTATUSLOOP+44 , REVSTATUSLOOP+48, REVSTATUSLOOP+49, REVSTATUSLOOP+50, REVSTATUSLOOP+51, REVSTATUSLOOP+56, REVSTATUSLOOP+64, REVSTATUSLOOP+65, REVSTATUSLOOP+66, REVSTATUSLOOP+67 |
| IBDAIEN( | REVSTATUSLOOP+44* |
| IBDATE | VIEWSERCON+1~ |
| IBENCIEN | VIEWENCOUNTER+1~, REVSTATUSLOOP+2~, PATINSUR+1~, PROVMAIN+2~ |
| IBENCIFN | VIEWSERCON+1~, VIEWSERCON+13*, VIEWSERCON+17*, VIEWSERCON+19, VIEWENCOUNTER+1~, VIEWENCOUNTER+23*, VIEWENCOUNTER+27*, VIEWENCOUNTER+29, REVSTATUSLOOP+9*, REVSTATUSLOOP+13* , REVSTATUSLOOP+15, REVSTATUSLOOP+26, REVSTATUSLOOP+27, REVSTATUSLOOP+29, REVSTATUSLOOP+33, REVSTATUSLOOP+36, REVSTATUSLOOP+38, REVSTATUSLOOP+57, REVSTATUSLOOP+68, REVSTATUSLOOP+73 , REVSTATUSLOOP+89, PATINSUR+13*, PATINSUR+17*, PATINSUR+19, PROVMAIN+16*, PROVMAIN+20*, PROVMAIN+22, PREVREVIEW+20*, PREVREVIEW+41, PREVREVIEW+58 |
| >> IBFROMVALMDDF | VIEWENCOUNTER+45*, VIEWENCOUNTER+53, REVSTATUSLOOP+63 |
| >> IBFROMVALMDDF("INDICATOR" | REVSTATUSLOOP+64, REVSTATUSLOOP+65, REVSTATUSLOOP+66, REVSTATUSLOOP+67, REVSTATUSLOOP+68 |
| >> IBFROMVALMDDF(1 | VIEWENCOUNTER+46*, VIEWENCOUNTER+47*, VIEWENCOUNTER+53, REVSTATUSLOOP+62 |
| >> IBICAMEFROMEE | VIEWENCOUNTER+60* |
| IBIFN | VIEWSERCON+1~, VIEWSERCON+14*, VIEWSERCON+16*, VIEWSERCON+23, VIEWSERCON+24, VIEWSERCON+25, VIEWENCOUNTER+1~, VIEWENCOUNTER+24*, VIEWENCOUNTER+26*, REVSTATUSLOOP+2~ , REVSTATUSLOOP+10*, REVSTATUSLOOP+12*, REVSTATUSLOOP+18, REVSTATUSLOOP+19, REVSTATUSLOOP+20, PATINSUR+1~, PATINSUR+14*, PATINSUR+16*, PATINSUR+22, PATINSUR+23 , PATINSUR+24, PROVMAIN+2~, PROVMAIN+17*, PROVMAIN+19*, PREVREVIEW+3~, PREVREVIEW+38*, PREVREVIEW+41, PREVREVIEW+58* |
| IBNAME | VIEWSERCON+1~ |
| >> IBPARENT | VIEWSERCON+12, VIEWENCOUNTER+22, VIEWENCOUNTER+44, REVSTATUSLOOP+8, REVSTATUSLOOP+47, REVSTATUSLOOP+55, REVSTATUSLOOP+60, PATINSUR+12, PROVMAIN+15 |
| IBQUIT | PREVREVIEW+2~, PREVREVIEW+68, PREVREVIEW+69, PAUSE~, PAUSE+5* |
| >> IBREGVE | VIEWENCOUNTER+10, VIEWENCOUNTER+11, VIEWENCOUNTER+55 |
| IBVIEW | PATINSUR+1~, PATINSUR+40*, PATINSUR+41* |
| IEN | REVSTATUS+18~*, PREVREVIEW+2~, PREVREVIEW+67*, PREVREVIEW+68*, PREVREVIEW+71, PREVREVIEW+72, PREVREVIEW+73 |
| IOF | HDR+1 |
| IOM | PREVREVIEW+24, PREVREVIEW+75, PREVREVIEW+76, HDR+2, HDR+3 |
| >> IORVOFF | PREVREVIEW+57* |
| >> IORVON | PREVREVIEW+57* |
| IOSL | PREVREVIEW+69 |
| LINENUM | PREVREVIEW+2~, PREVREVIEW+68* |
| LISTTEMP | PREVREVIEW+2~, PREVREVIEW+25*, PREVREVIEW+26, PREVREVIEW+28, PREVREVIEW+45*, PREVREVIEW+46, PREVREVIEW+48 |
| LISTTEMPIEN | PREVREVIEW+2~, PREVREVIEW+26*, PREVREVIEW+27, PREVREVIEW+32, PREVREVIEW+36, PREVREVIEW+46*, PREVREVIEW+47, PREVREVIEW+54 |
| >> NAME | VIEWENCOUNTER+46 |
| OPTION | SEL~, SEL+3 |
| PAGE | PREVREVIEW+64*, PREVREVIEW+66, PREVREVIEW+69, HDR~, HDR+3, HDR+6* |
| >> PREVACTIENS | REVSTATUSLOOP+91*, REVSTATUSLOOP+101, REVSTATUSLOOP+102, REVSTATUSLOOP+107 |
| >> PREVACTRET( | REVSTATUSLOOP+102 |
| >> PREVVALMAR | VIEWENCOUNTER+49* |
| >> PUBLISHINGON | REVSTATUSLOOP+57, REVSTATUSLOOP+68 |
| >> PUBSUCCESS | REVSTATUSLOOP+57*, REVSTATUSLOOP+68* |
| >> SESSIONKEY | VIEWENCOUNTER+7, VIEWENCOUNTER+9, VIEWENCOUNTER+55, PATINSUR+40 |
| STOP | VIEWENCOUNTER+2~, VIEWENCOUNTER+9, VIEWENCOUNTER+10*, VIEWENCOUNTER+11* |
| SUBHEADER | PREVREVIEW+65*, PREVREVIEW+66, PREVREVIEW+69, PREVREVIEW+75, HDR~, HDR+3 |
| TOSTATUS | REVSTATUSLOOP+2~, REVSTATUSLOOP+38*, REVSTATUSLOOP+39, REVSTATUSLOOP+49, REVSTATUSLOOP+50, REVSTATUSLOOP+51, REVSTATUSLOOP+65, REVSTATUSLOOP+66, REVSTATUSLOOP+67 |
| U | VIEWSERCON+19, VIEWSERCON+24, VIEWSERCON+25, VIEWSERCON+38, VIEWENCOUNTER+29, REVSTATUSLOOP+15, REVSTATUSLOOP+19, REVSTATUSLOOP+20, PATINSUR+19, PATINSUR+23 , PATINSUR+24, PROVMAIN+22, PREVREVIEW+36, PREVREVIEW+54 |
| >> USERGROUP | REVSTATUSLOOP+77 |
| VALMAR | VIEWSERCON+13, VIEWSERCON+14, VIEWSERCON+16, VIEWSERCON+17, VIEWENCOUNTER+23, VIEWENCOUNTER+24, VIEWENCOUNTER+26, VIEWENCOUNTER+27, VIEWENCOUNTER+47, VIEWENCOUNTER+49 , VIEWENCOUNTER+53, REVSTATUSLOOP+9, REVSTATUSLOOP+10, REVSTATUSLOOP+12, REVSTATUSLOOP+13, REVSTATUSLOOP+61~, REVSTATUSLOOP+62*, PATINSUR+13, PATINSUR+14, PATINSUR+16 , PATINSUR+17, PROVMAIN+16, PROVMAIN+17, PROVMAIN+19, PROVMAIN+20, PREVREVIEW+2~, PREVREVIEW+32*, PREVREVIEW+33, PREVREVIEW+68, PREVREVIEW+71 , PREVREVIEW+72, PREVREVIEW+73, SEL+9 |
| >> VALMBCK | VIEWSERCON+7*, VIEWSERCON+9*, VIEWSERCON+34*, VIEWSERCON+41*, VIEWENCOUNTER+7*, VIEWENCOUNTER+10*, VIEWENCOUNTER+11*, VIEWENCOUNTER+18*, VIEWENCOUNTER+20*, VIEWENCOUNTER+53* , VIEWENCOUNTER+55*, VIEWENCOUNTER+62*, REVSTATUS+7*, REVSTATUS+9*, REVSTATUS+13*, REVSTATUS+14*, REVSTATUS+16*, REVSTATUS+25*, REVSTATUSLOOP+39*, REVSTATUSLOOP+41* , REVSTATUSLOOP+83*, REVSTATUSLOOP+110*, REVSTATUSLOOP+115*, PATINSUR+8*, PATINSUR+10*, PATINSUR+33*, PATINSUR+40*, PATINSUR+43*, PROVMAIN+11*, PROVMAIN+13* , PROVMAIN+29* |
| VALMDDF | VIEWENCOUNTER+45, REVSTATUSLOOP+61~, REVSTATUSLOOP+63*, PREVREVIEW+2~, PREVREVIEW+52! |
| VALMDDF( | PREVREVIEW+36*, PREVREVIEW+54* |
| VALMDDF("INDICATOR" | REVSTATUSLOOP+48, REVSTATUSLOOP+49, REVSTATUSLOOP+50, REVSTATUSLOOP+51, REVSTATUSLOOP+56, REVSTATUSLOOP+57 |
| VALMEVL | PREVREVIEW+4~, PREVREVIEW+56* |
| VALMSG | VIEWSERCON+3*, VIEWENCOUNTER+14*, REVSTATUS+3*, REVSTATUSLOOP+4*, PATINSUR+3~, PATINSUR+4*, PROVMAIN+3~, PROVMAIN+4*, PROVMAIN+5*, PREVREVIEW+6* |
| VALMY | SEL+1!, SEL+4 |
| VALMY( | SEL+8 |
| WPERR | REVSTATUSLOOP+107!, REVSTATUSLOOP+108 |
| WPERR("DIERR" | REVSTATUSLOOP+111 |
| >> XQORNOD(0 | SEL+3 |
| Y | PREVREVIEW+2~, PREVREVIEW+18, PREVREVIEW+20 |