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