SCMCMHPP ;BP-CIOFO/LLH - MH Clinician's Patients ; 2/7/2012 10:00am
Source file <SCMCMHPP.m>
| 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 |
|---|---|---|
| PROMPTS | ;
|
|
| ENTRY2(INST,TEAM,ROLE,PRACT,SUMM,SORT,IOP,ZTDTH,VADEL) | ;
|
|
| RET | ||
| QENTRY | ;
|
|
| ERR | ;
|
|
| EXIT1 | ;
|
|
| EXIT2 | ;
|
|
| PRINTIT(STORE,IOP,TITL,SORT) | ; Print All Data
|
|
| S | ;
|
|
| S1 | ||
| PRNT(ST4,ST3,SEC3,PAGE,TITL,INS,SEC,TRD) | ;
|
|
| SPECFMT(STORE) | ; Patch 589 - format delimited output
|
|
| FMTDATA(DATA) | ;
; patch 589, used to strip trailing spaces from the formated data ; input - DATA = formatted data, clinician, Position, Team and Patients Assigned ; output - STR = data in DATA, with trailing spaces removed |
|
| SSH | ;Summary subheader
|
|
| HOLD(PAGE,TIT,MARG) | ;
|
|
| SHEAD | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | ENTRY2+26 |
| ^DIR | S1 |
| DRIVE^SCMCMHP2 | QENTRY+9 |
| $$DELOUT^SCMCMHU1 | PROMPTS+15 |
| $$SORT^SCMCMHU1 | PROMPTS+18 |
| PRACT^SCMCMHU1 | PROMPTS+11 |
| PRMTT^SCMCMHU1 | PROMPTS+9 |
| PAT^SCRPPAT3 | PRNT+14, PRNT+38, PRNT+66 |
| TOTAL1^SCRPPAT3 | PRNT+41, PRNT+69 |
| INST^SCRPU1 | PROMPTS+7 |
| ROLE^SCRPU1 | PROMPTS+10 |
| $$SUMM^SCRPU2 | PROMPTS+12 |
| $$GETTIME^SCRPU3 | PROMPTS+21 |
| $$NODATA^SCRPU3 | QENTRY+10 |
| $$PDEVICE^SCRPU3 | PROMPTS+19 |
| HOLD^SCRPU3 | PRNT+21, PRNT+29, PRNT+40, PRNT+49, PRNT+55, PRNT+68 |
| NEWP1^SCRPU3 | PRNT+17, PRNT+20, PRNT+28, PRNT+39, PRNT+48, PRNT+54, PRNT+67 |
| TITLE^SCRPU3 | PRNT+10, PRNT+19, PRNT+26, PRNT+47, PRNT+53 |
| $$FMTE^XLFDT | SPECFMT+8 |
| 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 |
|
| 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 |
|
| Name | Line Occurrences |
|---|---|
| $$ENTRY2 | PROMPTS+25 |
| $$FMTDATA | SPECFMT+15 |
| ERR | PROMPTS+7, PROMPTS+9, PROMPTS+10, PROMPTS+11, PROMPTS+12, PROMPTS+15, PROMPTS+18, PROMPTS+20, PROMPTS+22 |
| EXIT1 | RET+2 |
| EXIT2 | QENTRY+15 |
| HOLD | PRNT+16 |
| PRINTIT | QENTRY+14, S1+1 |
| PRNT | S+12 |
| QENTRY | ENTRY2+18 |
| RET | ENTRY2+18 |
| S | PRINTIT+16 |
| S1 | PRINTIT+17 |
| SHEAD | PRNT+9, PRNT+19, PRNT+26, PRNT+47, PRNT+53 |
| SPECFMT | QENTRY+13 |
| SSH | PRNT+19, PRNT+20, PRNT+21, PRNT+47, PRNT+48, PRNT+49 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D1 | FMTDATA+5~, FMTDATA+8*, FMTDATA+9*, FMTDATA+12 |
| D2 | FMTDATA+5~, FMTDATA+8*, FMTDATA+10*, FMTDATA+12 |
| D3 | FMTDATA+5~, FMTDATA+8*, FMTDATA+11*, FMTDATA+12 |
| DATA | SPECFMT+6~, SPECFMT+14*, SPECFMT+15, FMTDATA~, FMTDATA+7, FMTDATA+8 |
| DIR | S1~ |
| DIR(0 | S1* |
| DT | SPECFMT+8 |
| DTIME | HOLD+4 |
| FIRST | PRINTIT+11~, PRINTIT+12*, S1+1*, PRNT+19*, PRNT+26, PRNT+28, PRNT+29, PRNT+30*, PRNT+47*, PRNT+53 , PRNT+54, PRNT+55, PRNT+56* |
| II | ENTRY2+23~, ENTRY2+25* |
| INAME | PRINTIT+11~, PRINTIT+12*, PRINTIT+13*, PRINTIT+14 |
| INS | PRINTIT+11~, PRINTIT+12*, PRINTIT+14*, PRINTIT+15, S+2, S+3, S+7, S+8, S+12, PRNT~ , PRNT+3, PRNT+6, PRNT+12, PRNT+14, PRNT+15, PRNT+22, PRNT+23, PRNT+32, PRNT+34, PRNT+35 , PRNT+36, PRNT+38, PRNT+41, PRNT+43, PRNT+45, PRNT+50, PRNT+51, PRNT+57, PRNT+58, PRNT+61 , PRNT+63, PRNT+66, PRNT+69, SPECFMT+6~, SPECFMT+10*, SPECFMT+11, SPECFMT+12, SPECFMT+13, SPECFMT+14, SPECFMT+15 |
| INST | ENTRY2~, ENTRY2+13, EXIT2+2! |
| IOF | PRINTIT+7, S1+1, HOLD+6 |
| IOP | ENTRY2~, ENTRY2+13, ENTRY2+16*, ENTRY2+17*, ENTRY2+22, QENTRY+14, EXIT2+2!, PRINTIT~, S1+1 |
| IOSL | PRNT+20, PRNT+21, PRNT+39, PRNT+40, PRNT+48, PRNT+49, PRNT+67, PRNT+68 |
| IOST | ENTRY2+16*, ENTRY2+18, PRINTIT+7, S1, PRNT+10, PRNT+16, PRNT+17, PRNT+20, PRNT+21, PRNT+28 , PRNT+29, PRNT+39, PRNT+40, PRNT+48, PRNT+49, PRNT+54, PRNT+55, PRNT+67, PRNT+68 |
| K | FMTDATA+5~, FMTDATA+9*, FMTDATA+10*, FMTDATA+11* |
| MARG | HOLD~, HOLD+3* |
| MORE | PRNT+5~*, PRNT+10, PRNT+12, PRNT+14*, PRNT+26, PRNT+30 |
| NODATA | QENTRY+10*, QENTRY+13, QENTRY+14, EXIT2+2! |
| NUMBER | PROMPTS+4~, PROMPTS+25*, PROMPTS+26, ENTRY2+15~, RET*, RET+1*, RET+3 |
| PAGE | PRINTIT+6~, PRINTIT+7*, S+12, PRNT~, PRNT+10, PRNT+16*, PRNT+17, PRNT+19, PRNT+20, PRNT+21 , PRNT+26, PRNT+28, PRNT+29, PRNT+39, PRNT+40, PRNT+47, PRNT+48, PRNT+49, PRNT+53, PRNT+54 , PRNT+55, PRNT+67, PRNT+68, HOLD~ |
| POS | PRNT+2~, PRNT+5*, PRNT+6*, PRNT+12, PRNT+14, PRNT+15, PRNT+22, PRNT+23, PRNT+32, PRNT+34 , PRNT+38, PRNT+41, PRNT+44*, PRNT+45*, PRNT+50, PRNT+51, PRNT+61, PRNT+63, PRNT+66, PRNT+69 , SPECFMT+6~, SPECFMT+13*, SPECFMT+14, SPECFMT+15 |
| PRACT | ENTRY2~, ENTRY2+13, EXIT2+2! |
| PRNT | PROMPTS+4~, PROMPTS+19*, PROMPTS+20, PROMPTS+21, PROMPTS+23*, PROMPTS+25 |
| PT | PRINTIT+11~ |
| QTIME | PROMPTS+4~, PROMPTS+6*, PROMPTS+21*, PROMPTS+22, PROMPTS+25 |
| ROLE | ENTRY2~, ENTRY2+13, EXIT2+2! |
| SCI | SSH+3~* |
| SCUP | PROMPTS+5!, EXIT1+2! |
| SEC | PRINTIT+11~, S+3*, S+4, S+12, PRNT~, PRNT+3, PRNT+6, PRNT+12, PRNT+14, PRNT+15 , PRNT+22, PRNT+23, PRNT+32, PRNT+34, PRNT+38, PRNT+41, PRNT+43, PRNT+45, PRNT+50, PRNT+51 , PRNT+57, PRNT+61, PRNT+63, PRNT+66, PRNT+69, SPECFMT+6~, SPECFMT+11*, SPECFMT+12, SPECFMT+13, SPECFMT+14 , SPECFMT+15 |
| SEC1 | PRINTIT+8~, PRINTIT+9*, PRINTIT+10*, S+1 |
| SEC2 | PRINTIT+8~, PRINTIT+9*, PRINTIT+10*, S+6 |
| SEC3 | PRINTIT+8~, PRINTIT+9*, PRINTIT+10*, S+5, S+12, PRNT~, PRNT+3, PRNT+14, PRNT+38, PRNT+43 , PRNT+66 |
| SEC4 | PRINTIT+8~, PRINTIT+9*, PRINTIT+10*, S+11 |
| SECN | PRINTIT+11~, S+1*, S+2*, S+3 |
| SORT | PROMPTS+4~, PROMPTS+16*, PROMPTS+17*, PROMPTS+18*, PROMPTS+25, ENTRY2~, ENTRY2+13, QENTRY+14, EXIT1+2!, EXIT2+2! , PRINTIT~, PRINTIT+9, PRINTIT+10, S1+1, PRNT+7, PRNT+25, PRNT+35, PRNT+57, PRNT+60 |
| ST1 | PRINTIT+8~, S+1*, S+2, S+3 |
| ST2 | PRINTIT+8~, S+6*, S+7, S+8 |
| ST3 | PRINTIT+8~, S+5*, S+12, PRNT~, PRNT+3, PRNT+6, PRNT+12, PRNT+14, PRNT+15, PRNT+32 , PRNT+34, PRNT+38, PRNT+57, PRNT+66 |
| ST4 | PRINTIT+8~, S+11*, S+12, PRNT~, PRNT+14, PRNT+35, PRNT+38, PRNT+43, PRNT+45, PRNT+61 , PRNT+63, PRNT+66 |
| STOP | EXIT2+2!, PRINTIT+7*, PRINTIT+13, PRINTIT+15, S+2, S+7, S+12, S1*, S1+1, PRNT+6 , PRNT+16, PRNT+17, PRNT+20, PRNT+21, PRNT+30, PRNT+38, PRNT+39, PRNT+40, PRNT+45, PRNT+48 , PRNT+49, PRNT+56, PRNT+66, PRNT+67, PRNT+68, HOLD+5* |
| STORE | QENTRY+5*, QENTRY+6, QENTRY+7, QENTRY+10, QENTRY+13, QENTRY+14, EXIT2+1, EXIT2+2!, PRINTIT~, PRINTIT+13 , PRINTIT+14, S+1, S+5, S+6, S+11, S1+1, PRNT+9, PRNT+22, PRNT+23, PRNT+36 , PRNT+50, PRNT+51, PRNT+58, SPECFMT~, SPECFMT+10, SPECFMT+11, SPECFMT+12, SPECFMT+13, SPECFMT+14, SPECFMT+15 , SHEAD+2, SHEAD+3*, SHEAD+7*, SHEAD+8*, SHEAD+9*, SHEAD+10*, SHEAD+11*, SHEAD+12*, SHEAD+13*, SHEAD+14* |
| STR | PRNT+12~*, PRNT+32~*, PRNT+60~, PRNT+61*, FMTDATA+5~, FMTDATA+6*, FMTDATA+12*, FMTDATA+13 |
| SUMM | ENTRY2~, ENTRY2+13, QENTRY+4, EXIT2+2!, S1+1*, PRNT+7, PRNT+18, PRNT+28, PRNT+29, PRNT+46 , PRNT+54, PRNT+55 |
| TEAM | ENTRY2~, ENTRY2+13, EXIT2+2! |
| TIT | HOLD~ |
| TITL | QENTRY+3*, QENTRY+4*, QENTRY+10, QENTRY+14, EXIT2+2!, PRINTIT~, S+12, S1+1*, PRNT~, PRNT+10 , PRNT+17, PRNT+19, PRNT+20, PRNT+21, PRNT+26, PRNT+28, PRNT+29, PRNT+39, PRNT+40, PRNT+47 , PRNT+48, PRNT+49, PRNT+53, PRNT+54, PRNT+55, PRNT+67, PRNT+68 |
| TRD | PRINTIT+11~, S+8*, S+9, S+12, PRNT~, PRNT+3, PRNT+6, PRNT+12, PRNT+14, PRNT+15 , PRNT+22, PRNT+23, PRNT+32, PRNT+34, PRNT+35, PRNT+38, PRNT+41, PRNT+43, PRNT+45, PRNT+50 , PRNT+51, PRNT+61, PRNT+63, PRNT+66, PRNT+69, SPECFMT+6~, SPECFMT+12*, SPECFMT+13, SPECFMT+14, SPECFMT+15 |
| TRDN | PRINTIT+11~, S+6*, S+7*, S+8 |
| U | SPECFMT+8, SPECFMT+9, SPECFMT+15, FMTDATA+12 |
| VADEL | PROMPTS+4~, PROMPTS+14*, PROMPTS+15*, PROMPTS+17, PROMPTS+25, ENTRY2~, ENTRY2+13, QENTRY+13, QENTRY+14 |
| VAUTD | PROMPTS+4~, PROMPTS+25, EXIT1+1! |
| VAUTP | PROMPTS+4~, PROMPTS+11, PROMPTS+25, EXIT1+1! |
| VAUTR | PROMPTS+4~, PROMPTS+10, PROMPTS+25, EXIT1+1! |
| VAUTS | PROMPTS+4~, PROMPTS+12*, PROMPTS+14, PROMPTS+15, PROMPTS+25, EXIT1+2! |
| VAUTT | PROMPTS+4~, PROMPTS+9, PROMPTS+25, EXIT1+1! |
| X | HOLD+2~, HOLD+4*, HOLD+5 |
| Y | PROMPTS+4~, PROMPTS+7, PROMPTS+9!, PROMPTS+10!, S1 |
| ZTDESC | ENTRY2+22*, EXIT1+1! |
| ZTDTH | ENTRY2~, ENTRY2+19*, EXIT1+1! |
| ZTIO | ENTRY2+22*, EXIT1+1! |
| ZTRTN | ENTRY2+20*, EXIT1+1! |
| ZTSAVE | EXIT1+1! |
| ZTSAVE( | ENTRY2+25* |
| ZTSK | RET+1, EXIT1+1! |