PSSHRQ22 ;WOIFO/AV,TS - Handles parsing a PEPS drugTherapyChecks XML element ;09/20/07
Source file <PSSHRQ22.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| THERAPY(DOCHAND,NODE,BASE) | ;
; @DRIVER ; @DESC Parses the drugTherapyChecks XML elements |
|
| MSGREAD(DOCHAND,NODE,HASH,COUNT) | ;
; @DESC Handles parsing message section |
|
| THERREAD(DOCHAND,NODE,HASH,COUNT,MSGHASH,MSGCNT) | ;
; @DESC Handles parsing and storage of drugTherapyCheck element |
|
| THERWRIT(HASH,BASE) | ;
; @DESC Handles writing drugDrugChecks drugTherapy section of the XML document |
|
| SUBCOUNT(COUNT,BASE) | ;
; @DESC Returns the next subcount for drug therapy output global ; Format is ^TMP($JOB,BASE,"OUT","THERAPY",COUNT,SUBCOUNT) |
|
| MAKEINDX(INDX,HASH) | ;
; @DESC Creates index of drug list combinations. Uses gcn as the ; unique identifier of drug. |
|
| DLISTID(HASH,I) | ;
; @DESC Returns the id of the drug list. The id of the drug list ; consist of the gcn in sorted order separated by '^'. |
|
| TMPGLOB(HASH,MAINCNT,CHEKCNT,DRUGNUM,BASE) | ;
; @DESC Writes the drugList to the proper global |
|
| VALUE(HASH,MAINCNT,DRUGNUM) | ;
; @DESC Provides the ""piece" data we use when creating the output global. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP( | SUBCOUNT+15 |
| Name | Line Occurrences |
|---|---|
| $$DLISTID | THERWRIT+20, MAKEINDX+16 |
| $$SUBCOUNT | THERWRIT+33 |
| $$VALUE | TMPGLOB+12 |
| MAKEINDX | THERWRIT+15 |
| MSGREAD | THERAPY+21, THERREAD+20 |
| THERREAD | THERAPY+24 |
| THERWRIT | THERAPY+28 |
| TMPGLOB | THERWRIT+27 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | DLISTID+8~ |
| ARRAY( | DLISTID+15*, DLISTID+22 |
| BASE | THERAPY~, THERAPY+27, THERAPY+28, THERWRIT~, THERWRIT+27, THERWRIT+33, SUBCOUNT~, SUBCOUNT+15, TMPGLOB~ |
| CHEKCNT | TMPGLOB~ |
| COUNT | MSGREAD~, MSGREAD+11, THERREAD~, THERREAD+24, THERREAD+26, THERREAD+29, THERREAD+32, THERWRIT+8~, THERWRIT+11*, THERWRIT+20* , THERWRIT+27, THERWRIT+33, SUBCOUNT~, SUBCOUNT+15 |
| DOCHAND | THERAPY~, THERAPY+16, THERAPY+17, THERAPY+21, THERAPY+24, MSGREAD~, MSGREAD+11, THERREAD~, THERREAD+15, THERREAD+16 , THERREAD+20, THERREAD+24, THERREAD+26, THERREAD+29, THERREAD+32 |
| DRUGHASH | THERAPY+10~, THERAPY+24, THERAPY+28 |
| DRUGNUM | THERWRIT+8~, THERWRIT+25*, THERWRIT+26*, THERWRIT+27, TMPGLOB~, TMPGLOB+12, VALUE~, VALUE+16, VALUE+17, VALUE+18 , VALUE+19, VALUE+20 |
| HASH | MSGREAD~, MSGREAD+11, THERREAD~, THERREAD+24, THERWRIT~, THERWRIT+15, THERWRIT+20, THERWRIT+27, MAKEINDX~, MAKEINDX+16 , DLISTID~, TMPGLOB~, TMPGLOB+12, VALUE~ |
| HASH( | THERREAD+26*, THERREAD+29*, THERREAD+32*, THERWRIT+17, THERWRIT+26, THERWRIT+34, THERWRIT+35, THERWRIT+36, MAKEINDX+14, DLISTID+12 , DLISTID+14, VALUE+16, VALUE+17, VALUE+18, VALUE+19, VALUE+20 |
| I | THERWRIT+8~, THERWRIT+10*, THERWRIT+17*, THERWRIT+20, THERWRIT+26, THERWRIT+27, THERWRIT+34, THERWRIT+35, THERWRIT+36, MAKEINDX+9~ , MAKEINDX+13*, MAKEINDX+14*, MAKEINDX+16, DLISTID~, DLISTID+12, DLISTID+14 |
| INDX | THERWRIT+8~, THERWRIT+15, MAKEINDX~ |
| INDX( | THERWRIT+20, MAKEINDX+20, MAKEINDX+22* |
| INTDRUG | THERREAD+11~ |
| J | DLISTID+8~, DLISTID+11*, DLISTID+12*, DLISTID+14 |
| K | DLISTID+8~, DLISTID+19*, DLISTID+22*, DLISTID+24, DLISTID+29 |
| MAINCNT | TMPGLOB~, TMPGLOB+12, VALUE~, VALUE+16, VALUE+17, VALUE+18, VALUE+19, VALUE+20 |
| MSGCNT | THERREAD~, THERREAD+13 |
| MSGHASH | THERAPY+10~, THERAPY+21, THERAPY+24, THERAPY+27, THERREAD~, THERREAD+20 |
| NODE | THERAPY~, THERAPY+16, MSGREAD~, MSGREAD+11, THERREAD~, THERREAD+15, THERWRIT+8~, THERWRIT+23*, THERWRIT+34, THERWRIT+35 , THERWRIT+36, TMPGLOB+10~, TMPGLOB+11*, TMPGLOB+12 |
| OUT | VALUE+15~, VALUE+16*, VALUE+17*, VALUE+18*, VALUE+19*, VALUE+20*, VALUE+21 |
| PSMSGCNT | THERAPY+10~, THERAPY+14*, THERAPY+20*, THERAPY+21, THERAPY+24 |
| PSS | THERAPY+10~, THERREAD+10~, THERWRIT+8~, SUBCOUNT+9~, MAKEINDX+9~, DLISTID+8~ |
| PSS("child" | THERAPY+12*, THERAPY+16*, THERAPY+17, THERAPY+21, THERAPY+24, THERREAD+12*, THERREAD+15*, THERREAD+16, THERREAD+20, THERREAD+24 , THERREAD+26, THERREAD+29, THERREAD+32 |
| PSS("childName" | THERAPY+17*, THERAPY+20, THERAPY+21, THERAPY+23, THERAPY+24, THERREAD+16*, THERREAD+18, THERREAD+22, THERREAD+25, THERREAD+28 , THERREAD+31 |
| PSS("highCount" | SUBCOUNT+14*, SUBCOUNT+16*, SUBCOUNT+19 |
| PSS("messageCount" | THERREAD+13*, THERREAD+19*, THERREAD+20 |
| PSS("subCount" | THERWRIT+33*, THERWRIT+34, THERWRIT+35, THERWRIT+36, SUBCOUNT+13*, SUBCOUNT+15*, SUBCOUNT+16 |
| PSS("tempCount" | DLISTID+20*, DLISTID+23, DLISTID+27, DLISTID+28* |
| PSS("therapyCount" | THERAPY+13*, THERAPY+23*, THERAPY+24 |
| PSS("uniqueDrugCombination" | MAKEINDX+16*, MAKEINDX+20, MAKEINDX+22, DLISTID+21*, DLISTID+24*, DLISTID+29*, DLISTID+33 |
| PSS("uniqueDrugCombinationCount" | MAKEINDX+11*, MAKEINDX+21*, MAKEINDX+22 |
| PSS("uniqueDrugID" | DLISTID+14*, DLISTID+15 |
