PXRMDLL ;SLC/PJH - REMINDER DIALOG LOADER ;05/12/2014
Source file <PXRMDLL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GROUP(DIEN,DSUB) | ;Dialog group
|
|
| ERRORQ | ;
|
|
| TAXERROR(DIEN,TIEN) | ;
|
|
| EXP(TIEN,DITEM,DSUB,DEXC,DMHEX,DRESL,DTXT) | ;Expand taxonomy codes
|
|
| OK(DIEN) | ;Check if mental health test is for GUI
|
|
| AHIS(DITEM) | ;
|
|
| ERROR(DESC,ZTSAVE) | ;
|
|
| LOAD(DIEN,DFN) | ;Load dialog questions into array
|
|
| TAX(TXIEN,DITEM,TEXT,ARRAY) | ;Return list of resolutions/codes for taxonomy
|
|
| TXT | ;Format text
|
|
| ISDISAB(PXRMIEN) | ;
|
|
| ISDISABX | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | ERROR+6 |
| $$GET1^DIQ | GROUP+67 |
| $$MH^PXRMDLG5 | OK+2 |
| $$DISABCHK^PXRMDLG6 | ISDISAB+11 |
| $$RESGROUP^PXRMDLLB | GROUP+53, LOAD+48 |
| REPLACE^PXRMDLLB | GROUP+42, LOAD+45 |
| $$CHECKER^PXRMDTAX | TAXERROR+5 |
| $$TOK^PXRMDTAX | TAX+9, TAX+10 |
| DIALDSAR^PXRMFRPT | ISDISAB+10 |
| SEND^PXRMMSG | ERRORQ+2 |
| FORMAT^PXRMTEXT | TAXERROR+7 |
| $$STRREP^PXRMUTIL | TXT+5 |
| $$NOW^XLFDT | ERROR+5 |
| FileNo | Call Tags |
|---|---|
| ^GMRD(120.51 - [#120.51] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMRD(120.51 - [#120.51] | LOAD+66 |
| ^PXD(811.2 - [#811.2] | TAX+6, TAX+7, TAX+19, TAX+21, TAXERROR+3 |
| ^PXRMD(801.41 - [#801.41] | EXP+2, EXP+3, GROUP+4, GROUP+14, GROUP+29, GROUP+30, GROUP+32, GROUP+39, GROUP+45, GROUP+46 , GROUP+47, GROUP+48, GROUP+50, GROUP+55, GROUP+58, ISDISAB+2, LOAD+4, LOAD+33, LOAD+34, LOAD+35 , LOAD+38, LOAD+41, LOAD+51, LOAD+52, LOAD+53, LOAD+54, LOAD+60, TAX+11, TAX+30, TAX+34 , TAX+38, TAXERROR+2, AHIS+2, AHIS+8, AHIS+10, AHIS+12 |
| ^PXRMD(801.42 - [#801.42] | AHIS+14 |
| ^PXRMD(801.9 - [#801.9] | TAX+29, AHIS+4 |
| ^TMP("PXRMXMZ" | ERRORQ+1* |
| ^XTMP("PXRM_DISEV" | LOAD+11 |
| Name | Line Occurrences |
|---|---|
| $$AHIS | EXP+10, GROUP+17, GROUP+57, LOAD+62 |
| $$ISDISAB | GROUP+35, LOAD+6, LOAD+38 |
| $$OK | GROUP+62, LOAD+58 |
| $$TAX | EXP+8 |
| ERROR | ISDISABX+3, TAXERROR+12 |
| EXP | GROUP+65, LOAD+64 |
| GROUP | GROUP+69, LOAD+68 |
| ISDISABX | ISDISAB+10, ISDISAB+12 |
| TAXERROR | TAX+7, TAX+13 |
| TXT | EXP+20, EXP+31, GROUP+25, GROUP+76, LOAD+75 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACNT | EXP+1~, EXP+36*, EXP+37*, EXP+39, EXP+41, EXP+43, EXP+47 |
| AHIS | EXP+1~, EXP+41*, EXP+51 |
| ARRAY | EXP+1~, EXP+8, EXP+9, EXP+24, TAX~, TAX+23* |
| ARRAY( | EXP+37, EXP+39, EXP+41, EXP+43, TAX+35*, TAX+39* |
| ATYP | EXP+1~, EXP+43*, EXP+51 |
| BOTH | EXP+1~, EXP+8*, EXP+27, EXP+49 |
| CNT | EXP+1~, ISDISAB+1~, ISDISAB+7*, ISDISAB+9, ISDISAB+13*, ISDISAB+16*, ISDISAB+17, TAX+1~, TAX+23*, TAX+35* , TAX+39*, TAXERROR+1~, TAXERROR+8*, TAXERROR+10* |
| CODES | EXP+1~ |
| DARRAY | LOAD+1~ |
| DARRAY( | GROUP+60, LOAD+56 |
| DARRAY("AUTTEDT(" | LOAD+17* |
| DARRAY("AUTTEXAM(" | LOAD+18* |
| DARRAY("AUTTHF(" | LOAD+19* |
| DARRAY("AUTTIMM(" | LOAD+20* |
| DARRAY("AUTTSK(" | LOAD+21* |
| DARRAY("GMRD(120.51," | LOAD+22* |
| DARRAY("ICD9(" | LOAD+26* |
| DARRAY("ICPT(" | LOAD+27* |
| DARRAY("ORD(101.41," | LOAD+23* |
| DARRAY("PXD(811.2," | LOAD+28* |
| DARRAY("WV(790.1," | LOAD+29* |
| DARRAY("YTT(601.71," | LOAD+24* |
| DATA | GROUP+1~, GROUP+4*, GROUP+5, GROUP+6, GROUP+7, GROUP+32*, GROUP+33, GROUP+42, GROUP+44, GROUP+48* , GROUP+51, GROUP+52, LOAD+1~, LOAD+4*, LOAD+8, LOAD+35*, LOAD+36, LOAD+38*, LOAD+45, LOAD+46 , LOAD+47 |
| DBOX | GROUP+1~, GROUP+5*, GROUP+8*, GROUP+20 |
| DCAP | GROUP+1~, GROUP+5*, GROUP+20 |
| DCCNT | GROUP+1~ |
| DCHECK | EXP+45*, LOAD+2~ |
| DCHK | GROUP+1~, GROUP+10*, GROUP+16 |
| DCOUNT | GROUP+2~, GROUP+72 |
| DDIS | EXP+1~, EXP+4*, EXP+18, EXP+26, EXP+45*, GROUP+28~, GROUP+70*, GROUP+72, LOAD+2~, LOAD+70* , LOAD+71*, LOAD+72 |
| DENTRY | GROUP+1~, GROUP+6*, GROUP+19 |
| DESC | ERROR~, ERROR+2 |
| DEXC | EXP~, EXP+18, EXP+26, EXP+50*, EXP+51, GROUP+1~, GROUP+14*, GROUP+16, GROUP+44*, GROUP+50* , GROUP+65, GROUP+72, LOAD+2~, LOAD+60*, LOAD+64, LOAD+72 |
| DFIEN | GROUP+59*, GROUP+62, GROUP+65, GROUP+67*, LOAD+1~, LOAD+55*, LOAD+58, LOAD+64, LOAD+66* |
| DFIND | GROUP+58*, GROUP+59, LOAD+1~, LOAD+54*, LOAD+55 |
| DFN | GROUP+42, LOAD~, LOAD+45 |
| DFTYP | GROUP+59*, GROUP+60, LOAD+1~, LOAD+55*, LOAD+56 |
| DGCNT | GROUP+28~*, GROUP+31* |
| DGIEN | GROUP+1~, GROUP+33*, GROUP+35, GROUP+39, GROUP+42, GROUP+45, GROUP+46, GROUP+47, GROUP+48, GROUP+50 , GROUP+53, GROUP+55, GROUP+57, GROUP+58, GROUP+65, GROUP+69, GROUP+72, GROUP+77 |
| DGRP | GROUP+1~, GROUP+63*, GROUP+65, GROUP+69, GROUP+71*, GROUP+72, GROUP+77 |
| DGSEQ | GROUP+1~, GROUP+28*, GROUP+29*, GROUP+30 |
| DGSUB | GROUP+1~, GROUP+30*, GROUP+32, GROUP+63, GROUP+71 |
| DHIDE | EXP+45*, GROUP+1~, GROUP+6*, GROUP+10*, GROUP+12*, GROUP+18, LOAD+2~ |
| DHIS | EXP+10*, EXP+18, EXP+27, GROUP+57*, GROUP+72, LOAD+2~, LOAD+62*, LOAD+72 |
| DHIST | EXP+1~ |
| DIEN | OK~, OK+1, OK+2, GROUP~, GROUP+4, GROUP+14, GROUP+16, GROUP+17, GROUP+26, GROUP+29 , GROUP+30, GROUP+32, LOAD~, LOAD+4, LOAD+6, LOAD+33, LOAD+34, LOAD+35, TAXERROR~, TAXERROR+2 , TAXERROR+5 |
| DIND | GROUP+1~, GROUP+5*, GROUP+18 |
| DINDPN | GROUP+2~, GROUP+7*, GROUP+21 |
| DITEM | EXP~, EXP+2, EXP+3, EXP+8, EXP+10, EXP+18, EXP+21, EXP+26, EXP+33, EXP+51 , EXP+53, LOAD+1~, LOAD+36*, LOAD+38, LOAD+41, LOAD+45, LOAD+48, LOAD+51, LOAD+52, LOAD+53 , LOAD+54, LOAD+60, LOAD+62, LOAD+64, LOAD+68, LOAD+72, LOAD+76, TAX~, TAX+7, TAX+11 , TAX+13, TAX+30, TAX+34, TAX+38, AHIS~, AHIS+2, AHIS+8 |
| DMHEX | EXP~, EXP+18, GROUP+2~, GROUP+52*, GROUP+65, GROUP+72, LOAD+2~, LOAD+47*, LOAD+64, LOAD+72 |
| DNAME | TAXERROR+1~, TAXERROR+2* |
| DPCE | EXP+1~, EXP+39*, GROUP+60*, GROUP+62, GROUP+65, GROUP+67, LOAD+1~, LOAD+56*, LOAD+58, LOAD+64 , LOAD+66 |
| DRES | GROUP+55*, LOAD+1~, LOAD+53* |
| DRESL | EXP~, EXP+18, GROUP+2~, GROUP+53*, GROUP+65, GROUP+72, LOAD+2~, LOAD+48*, LOAD+64, LOAD+72 |
| DSEQ | LOAD+1~, LOAD+32*, LOAD+33*, LOAD+34 |
| DSHARE | GROUP+2~, GROUP+6*, GROUP+19 |
| DSUB | EXP~, EXP+18, EXP+21, EXP+26, EXP+33, EXP+47, GROUP~, GROUP+16, GROUP+26, GROUP+63 , GROUP+71, LOAD+1~, LOAD+34*, LOAD+35, LOAD+64, LOAD+68, LOAD+72, LOAD+76 |
| DSUPP | EXP+1~, EXP+3*, EXP+4, GROUP+10, GROUP+28~, GROUP+51*, GROUP+70, LOAD+2~, LOAD+46*, LOAD+71 |
| DTAX | EXP+1~, EXP+47*, EXP+51, EXP+53 |
| DTXT | EXP~, GROUP+46!, GROUP+65, LOAD+1~, LOAD+50!, LOAD+64, TAX+1~, TAX+15*, TAX+17*, TAX+19* , TAX+21*, TAX+23 |
| DTXT( | TXT+2, EXP+19, EXP+30, GROUP+24, GROUP+47*, GROUP+75, LOAD+52*, LOAD+74 |
| DTYP | GROUP+28~, GROUP+51*, GROUP+65, GROUP+69, LOAD+1~, LOAD+46*, LOAD+64, LOAD+68 |
| DUZ | ERRORQ+2 |
| DXNODE | TAX+1~ |
| ERRORTXT | ISDISAB+1~, ERRORQ+1, TAXERROR+1~ |
| ERRORTXT( | ISDISAB+9*, ISDISAB+13*, ISDISAB+17*, TAXERROR+8*, TAXERROR+10* |
| FAIL | TAX+1~, TAXERROR+1~, TAXERROR+5* |
| GUI | AHIS+6~, AHIS+12*, AHIS+14 |
| HEADER | ISDISAB+1~, ISDISAB+5*, ERRORQ+2, TAXERROR+1~, TAXERROR+4* |
| HISTIEN | TAX+1~, TAX+29*, TAX+31 |
| IDENT | GROUP+28~, LOAD+2~ |
| LAST | TXT+4, TXT+6*, EXP+17~, EXP+19*, EXP+28~, EXP+30*, GROUP+23~, GROUP+24*, GROUP+74~, GROUP+75* , LOAD+73~, LOAD+74* |
| LINE | TAXERROR+1~, TAXERROR+8* |
| MSG | ISDISAB+1~, ISDISAB+11, ISDISAB+12 |
| MSG( | ISDISAB+15, ISDISAB+17 |
| MSGCNT | ISDISAB+1~, ISDISAB+14*, ISDISAB+15*, ISDISAB+17 |
| NIN | TAXERROR+1~, TAXERROR+6*, TAXERROR+7 |
| NODE | TAX+1~, TAX+11*, TAX+12, TAX+17 |
| NOUT | TAXERROR+1~, TAXERROR+7, TAXERROR+8 |
| NULL | TXT+1~, TXT+2*, TXT+3*, TXT+4, TXT+6 |
| NUM | TAX+1~ |
| OCNT | EXP+14*, EXP+18, EXP+21*, EXP+26, EXP+27, EXP+32*, EXP+33, EXP+48*, EXP+51, EXP+52* , EXP+53, GROUP+16*, GROUP+17, GROUP+18, GROUP+19, GROUP+20, GROUP+21, GROUP+26*, GROUP+71*, GROUP+72 , GROUP+77*, LOAD+1~, LOAD+32*, LOAD+70*, LOAD+72, LOAD+76* |
| >> ORY( | EXP+18*, EXP+21*, EXP+26*, EXP+27*, EXP+33*, EXP+51*, EXP+53*, GROUP+16*, GROUP+17*, GROUP+18* , GROUP+19*, GROUP+20*, GROUP+21*, GROUP+26*, GROUP+72*, GROUP+77*, LOAD+72*, LOAD+76* |
| >> ORY(1 | LOAD+12* |
| >> ORY(2 | LOAD+13* |
| OUTPUT | TAXERROR+1~, TAXERROR+5, TAXERROR+7 |
| OUTPUT("" | TAXERROR+6 |
| PFOUND | AHIS+6~, AHIS+7*, AHIS+8, AHIS+14*, AHIS+15 |
| PIEN | AHIS+6~, AHIS+7*, AHIS+8*, AHIS+10, AHIS+12 |
| PRNODE | TAX+1~ |
| PXRMDATA | ISDISAB+1~, ISDISAB+2*, ISDISAB+3, ISDISAB+4, ISDISAB+6, ISDISAB+9 |
| PXRMIEN | ISDISAB~, ISDISAB+2, ISDISAB+11 |
| REINDX | LOAD+2~, LOAD+10*, LOAD+14*, LOAD+15 |
| RESULT | ISDISAB+1~, ISDISAB+11*, TAX+1~, TAX+5*, TAX+7, TAX+28*, TAX+41 |
| RESVALUE | TAX+1~, TAX+30*, TAX+31 |
| RSIEN | AHIS+1~, AHIS+2*, AHIS+3, AHIS+4 |
| RSNAM | AHIS+1~, AHIS+4*, AHIS+5 |
| STDFILES | ISDISAB+1~, ISDISAB+10, ISDISAB+11 |
| SUB | TXT+2, EXP+1~, EXP+19*, EXP+30*, GROUP+2~, GROUP+24*, GROUP+46*, GROUP+47, GROUP+75*, LOAD+2~ , LOAD+50*, LOAD+51*, LOAD+52, LOAD+74* |
| TAXTEXT | EXP+1~, EXP+24*, EXP+39*, EXP+53 |
| >> TCUR | TAX+31*, TAX+34, TAX+35, TAX+38, TAX+39 |
| TDHTXT | TAX+2~ |
| TDTXT | TAX+2~, TAX+34*, TAX+35 |
| >> TDX | TAX+9*, TAX+26*, TAX+28, TAX+33 |
| TEMP | TAXERROR+1~, TAXERROR+7 |
| TEMP( | TAXERROR+8 |
| TERMNODE | GROUP+38~, GROUP+39*, GROUP+40, GROUP+42, LOAD+41*, LOAD+43, LOAD+45 |
| TERMSTAT | GROUP+38~, GROUP+40, GROUP+41*, GROUP+42, LOAD+42~, LOAD+43, LOAD+44*, LOAD+45 |
| TEXT | TXT+2*, TXT+3, TXT+4*, TXT+5*, TXT+6*, EXP+1~, EXP+6*, EXP+8, EXP+17~, EXP+21 , EXP+28~, EXP+29*, EXP+33, GROUP+23~, GROUP+26, GROUP+74~, GROUP+77, LOAD+73~, LOAD+76, TAX~ |
| TIEN | EXP~, EXP+8, TAXERROR~, TAXERROR+3, TAXERROR+5 |
| TNAME | TAX+1~, TAX+6*, TAX+34, TAX+38, TAXERROR+1~, TAXERROR+3* |
| TPHTXT | TAX+2~ |
| >> TPR | TAX+10*, TAX+27*, TAX+28, TAX+37 |
| TPTXT | TAX+2~, TAX+38*, TAX+39 |
| TSEL | EXP+1~, EXP+2*, EXP+8, EXP+9, EXP+16, TAX+1~, TAX+12*, TAX+26, TAX+27 |
| TXIEN | TAX~, TAX+6, TAX+7, TAX+9, TAX+10, TAX+13, TAX+19, TAX+21 |
| TXTCNT | LOAD+2~ |
| TYPE | ISDISAB+1~, ISDISAB+6*, ISDISAB+8*, ISDISAB+9, TAX+1~ |
| U | EXP+2, EXP+3, EXP+18, EXP+21, EXP+26, EXP+27, EXP+33, EXP+39, EXP+41, EXP+43 , EXP+51, EXP+53, GROUP+5, GROUP+6, GROUP+7, GROUP+14, GROUP+16, GROUP+17, GROUP+18, GROUP+19 , GROUP+20, GROUP+21, GROUP+26, GROUP+33, GROUP+44, GROUP+45, GROUP+50, GROUP+51, GROUP+52, GROUP+55 , GROUP+58, GROUP+72, GROUP+77, ISDISAB+3, ISDISAB+4, ISDISAB+6, ISDISAB+9, LOAD+8, LOAD+12, LOAD+13 , LOAD+36, LOAD+46, LOAD+47, LOAD+53, LOAD+54, LOAD+60, LOAD+66, LOAD+72, LOAD+76, TAX+6 , TAX+7, TAX+12, TAX+17, TAX+19, TAX+21, TAX+30, TAX+34, TAX+35, TAX+38, TAX+39 , TAXERROR+2, TAXERROR+3, AHIS+2, AHIS+4, AHIS+10, AHIS+12, AHIS+14 |
| ZTDESC | ERROR+1~, ERROR+2* |
| ZTDTH | ERROR+1~, ERROR+5* |
| ZTIO | ERROR+1~, ERROR+4* |
| ZTRTN | ERROR+1~, ERROR+3* |
| ZTSAVE | ISDISAB+1~, ISDISABX+3, ERROR~, TAXERROR+12 |
| ZTSAVE("ERRORTXT(" | ISDISABX+2*, TAXERROR+11* |
| ZTSAVE("HEADER" | ISDISABX+1*, TAXERROR+11* |