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* |