©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
APCM13EP ; IHS/CMI/LAB - IHS MU ;
Source file <APCM13EP.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component Table Maintiance | 4 | (,$$SN,W)^APCM13EH SAVEDEL^APCM13EQ SUM^APCM13ER LIST^APCM13NP |
| Kernel | 3 | ^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR |
| VA Fileman | 3 | COMMA^%DTC ^DIR ^DIWP |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Patient Care Component Reports | 1 | $$RBLK^APCLUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUM | ;summary sheet for each provider
|
|
| USR() | ;EP - Return name .
|
|
| EOP | ;EP - End of page.
|
|
| DEL | ;create delimited output file
|
|
| SB(X) | ;EP - Strip
|
|
| WP | ;
|
|
| ;EP
|
||
| V(T,R,N,P,PROV,K,RT) | ;EP ;SPDX
|
|
| DENOMO | ;
|
|
| PRINT1 | ;EP
|
|
| PRINT2 | ;
|
|
| CTR(X,Y) | ;EP - Center X in a field Y wide.
|
|
| SETN | ;EP - set numerator fields
|
|
| WPS | ;
|
|
| PRINT1N | ;REORDER THE PRINT BY CORE,ORDER THEN MENU,ORDER
|
|
| PRINT1H | ;
|
|
| SCREEN | ;
|
|
| PRNTM | ;print 1 measure
|
|
| HEADER | ;EP
|
|
| C(X,X2,X3) | ;
|
|
| PI1 | ;EP
|
|
| EXCL | ;
|
|
| H2 | ;EP
|
|
| H1 | ;EP
|
|
| HEADER1 | ;
|
|
| EXIT | ;
|
|
| CALC(N,O) | ;ENTRY POINT
|
|
| SUMEOP | ;EP - End of page.
|
| Name | Field # of Occurrence |
|---|---|
| COMMA^%DTC | C+2 |
| ^%ZISC | DEL+1 |
| $$RBLK^APCLUTL | C+1 |
| ^APCM13EH | PRINT+7, DEL+5 |
| $$SN^APCM13EH | HEADER1+6 |
| W^APCM13EH | PRINT+13, PRINT+15, WPS+3, PRINT2+3, PRINT2+5, PRINT2+9, PRINT2+13, PRINT2+16, PRINT2+19, PRINT2+23 , PRINT2+27, PRINT2+30, PRINT2+34, PRINT2+37, PRINT2+39, H2+2, H2+3, H2+4, H2+5, H2+6 , H2+14, H1+1, H1+2, H1+3, H1+4, H1+5, H1+6, H1+7, H1+8, HEADER1+2 , HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, HEADER1+11, HEADER1+12 , PI1+14, PI1+15, PI1+19, PI1+20, PI1+21, PI1+22, PI1+23, PI1+28, PI1+29, DENOMO+13 , DENOMO+14, EXCL+2, EXCL+5, EXCL+6, EXCL+14, EXCL+18, EXCL+20, EXCL+22 |
| SAVEDEL^APCM13EQ | DEL+13 |
| SUM^APCM13ER | SUM+1 |
| LIST^APCM13NP | PRINT+14, DEL+11 |
| ^DIR | EOP+5, SUMEOP+5, EXIT+1, HEADER+2 |
| ^DIWP | WP+5, PI1+11, DENOMO+10, EXCL+17 |
| $$VAL^XBDIQ1 | PRINT2+3 |
| $$FMTE^XLFDT | HEADER1+2, HEADER1+10, HEADER1+11 |
| $$REPEAT^XLFSTR | HEADER1+12 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCM13OB - [#9001301.02] | WP+3, WP+5, PRINT1+4, PRINT1+5, PRINT2+3, PRINT2+7, PRINT2+9, PRINT2+14, PRINT2+16, PRINT2+21 , PRINT2+23, PRINT2+28, PRINT2+30, PRINT2+35, PRINT2+37, H2+6, H2+13, H1+5, H1+7, PI1+2 , PI1+10, PI1+11, PI1+20, PI1+21, PI1+22, PI1+28, PI1+29, DENOMO+1, DENOMO+2, DENOMO+9 , DENOMO+10, EXCL+4, EXCL+5, EXCL+7, SETN+5 |
| ^APCMM13C - [#9001301.03] | V+6, V+8 |
| ^APCMM13P - [#9001301.04] | V+10, V+12 |
| ^DD("FUNC" - [#.5] | SB+2 |
| ^DD(9001301.0311 | PI1+4, DENOMO+4, EXCL+9 |
| ^DIC(4 - [#4] | PRINT1H+1, HEADER1+7, HEADER1+9 |
| ^TMP($J | PRINT+1!, PRINT+4*, PRINT+16!, DEL+2!, DEL+3*, DEL+15!, SCREEN+1 |
| ^UTILITY($J | WP+1!, WPS+1, WPS+3, WPS+5!, PI1+8!, PI1+14, PI1+17!, DENOMO+7!, DENOMO+13, DENOMO+16! , EXCL+13!, EXCL+18, EXCL+21! |
| ^VA(200 - [#200] | PRINT1+9, HEADER1+2, HEADER1+6, USR+1 |
| ^XTMP("APCM1D" | PRINT+17!, DEL+14! |
| Name | Line Occurrences |
|---|---|
| $$C | H2+2, H2+4, PI1+19, PI1+20, PI1+21 |
| $$SB | H2+10, H2+12 |
| $$V | PI1+5, PI1+6, EXCL+10, SETN+1, SETN+2 |
| DEL | PRINT+5 |
| EOP | PRINT+17, DEL+16 |
| EXCL | DENOMO+1 |
| H1 | PRNTM+4 |
| H2 | DENOMO+17 |
| HEADER | WPS+2, PRINT2+1, PRINT2+4, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+18, PRINT2+22, PRINT2+25, PRINT2+29 , PRINT2+32, PRINT2+36, PRNTM+3, EXCL+12 |
| HEADER1 | PRINT1N+1, HEADER+1 |
| PRINT1 | PRINT+10, DEL+7 |
| PRINT1H | PRINT1+7 |
| PRINT1N | PRINT1+11, PRINT1H+3 |
| PRINT2 | PRINT1N+4 |
| PRNTM | PRINT2+40 |
| SETN | DENOMO+5 |
| SUM | PRINT+12, DEL+9 |
| SUMEOP | PRINT+11 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | USR+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SB+1~ |
| >> APCM1 | EXCL+4*, EXCL+5 |
| >> APCMADDQ("ANS" | EXCL+1, EXCL+6 |
| >> APCMBD | HEADER1+10 |
| >> APCMCM | PRINT1N+2*, PRINT1N+3, PRINT1N+4 |
| >> APCMCOL | WP+3 |
| >> APCMCYD | PI1+5*, PI1+19, PI1+25*, PI1+27, SETN+6 |
| >> APCMCYN | H2+2, H2+9, SETN+1*, SETN+3*, SETN+6 |
| >> APCMCYP | H2+3, H2+10, SETN+6* |
| >> APCMDF | PI1+2*, PI1+4 |
| >> APCMED | HEADER1+10 |
| >> APCMEF | EXCL+7*, EXCL+9 |
| >> APCMEV | EXCL+10*, EXCL+11, EXCL+16, EXCL+20 |
| >> APCMFAC | PRINT1H+1, PRINT1H+2 |
| >> APCMGPG | PRINT+8*, HEADER+1, HEADER1+1*, HEADER1+2 |
| >> APCMGUI | PRINT+2 |
| >> APCMH | PRINT+17, DEL+14 |
| >> APCMIC | WP+3, WP+5, PRINT1N+4*, PRINT2+3, PRINT2+7, PRINT2+9, PRINT2+14, PRINT2+16, PRINT2+21, PRINT2+23 , PRINT2+28, PRINT2+30, PRINT2+35, PRINT2+37, H2+6, H2+13, H1+5, H1+7, PI1+2, PI1+10 , PI1+11, PI1+20, PI1+21, PI1+22, PI1+28, PI1+29, DENOMO+1, DENOMO+2, DENOMO+9, DENOMO+10 , EXCL+1, EXCL+4, EXCL+5, EXCL+6, EXCL+7, SETN+5 |
| >> APCMIND( | PRINT1+3 |
| APCMINDO | PRINT1+2! |
| APCMINDO( | PRINT1+6*, PRINT1N+2, PRINT1N+3, PRINT1N+4 |
| >> APCMIOSL | PRINT+2*, WPS+2, PRINT2+4, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+18, PRINT2+22, PRINT2+25, PRINT2+29 , PRINT2+32, PRINT2+36, PRNTM+3, EXCL+12 |
| >> APCMJ | PRINT+17, DEL+14 |
| >> APCMLCNT | WP+2*, WP+4*, WP+5 |
| >> APCMMO | PRINT1N+3*, PRINT1N+4 |
| >> APCMNF | DENOMO+2*, DENOMO+3, DENOMO+4 |
| >> APCMNODE | WP+3, WP+5, PRINT2+6*, PRINT2+7, PRINT2+9, PRINT2+12*, PRINT2+14, PRINT2+16, PRINT2+20*, PRINT2+21 , PRINT2+23, PRINT2+26*, PRINT2+28, PRINT2+30, PRINT2+33*, PRINT2+35, PRINT2+37 |
| >> APCMNP | PI1+4*, DENOMO+4*, EXCL+9* |
| >> APCMPBD | HEADER1+11 |
| >> APCMPED | HEADER1+11 |
| >> APCMPNAM | PRINT1+10*, PRINT1+11, PRINT1H+1* |
| >> APCMPRD | PI1+6*, PI1+20, PI1+26*, PI1+27, SETN+7 |
| >> APCMPRN | H2+4, H2+11, SETN+2*, SETN+4*, SETN+7 |
| APCMPROV | PRINT1+8!, PRINT1+11*, PRINT1H+2*, HEADER1+6, HEADER1+7, PI1+5, PI1+6, EXCL+6, EXCL+10, SETN+1 , SETN+2 |
| APCMPROV( | PRINT1+9*, PRINT1+10, PRINT1+11 |
| >> APCMPRP | H2+5, H2+12, SETN+7* |
| >> APCMPRV( | PRINT1+9 |
| >> APCMPTYP | PRINT+6*, PRINT+13, PRINT+15, DEL+4*, WPS+2, WPS+3, PRINT1N+1, PRINT2+1, PRINT2+3, PRINT2+4 , PRINT2+5, PRINT2+8, PRINT2+9, PRINT2+11, PRINT2+13, PRINT2+15, PRINT2+16, PRINT2+18, PRINT2+19, PRINT2+22 , PRINT2+23, PRINT2+25, PRINT2+27, PRINT2+29, PRINT2+30, PRINT2+32, PRINT2+34, PRINT2+36, PRINT2+37, PRINT2+39 , H2+1, H2+2, H2+3, H2+4, H2+5, H2+6, H2+7, H2+14, H1+1, H1+2 , H1+3, H1+4, H1+5, H1+6, H1+7, H1+8, HEADER1+1, HEADER1+2, HEADER1+3, HEADER1+4 , HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, HEADER1+11, HEADER1+12, PRNTM+3, PI1+14 , PI1+15, PI1+18, PI1+19, PI1+20, PI1+21, PI1+22, PI1+23, PI1+24, PI1+28, PI1+29 , DENOMO+13, DENOMO+14, EXCL+2, EXCL+5, EXCL+6, EXCL+12, EXCL+14, EXCL+15, EXCL+18, EXCL+20 , EXCL+22 |
| >> APCMQUIT | PRINT+3*, PRINT+9*, DEL+6*, DEL+8, DEL+10, DEL+12, WPS+2, PRINT1+10, PRINT1+11, PRINT1N+2 , PRINT1N+3, PRINT1N+4, PRINT2+1, PRINT2+4, PRINT2+7, PRINT2+8, PRINT2+10, PRINT2+11, PRINT2+14, PRINT2+15 , PRINT2+17, PRINT2+18, PRINT2+21, PRINT2+22, PRINT2+24, PRINT2+25, PRINT2+28, PRINT2+29, PRINT2+31, PRINT2+32 , PRINT2+35, PRINT2+36, PRINT2+38, HEADER+2*, PRNTM+3, EXCL+12 |
| >> APCMROT | PRINT+5, PRINT+17 |
| >> APCMRPT | PI1+5, PI1+6, EXCL+10, SETN+1, SETN+2 |
| >> APCMRPTT | PRINT1+7, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+9, PI1+5, PI1+6, EXCL+10, SETN+1 , SETN+2 |
| >> APCMSUM | PRINT+10, DEL+7 |
| >> APCMTOT | HEADER1+8, PI1+5, PI1+6, EXCL+10, SETN+1, SETN+2 |
| >> APCMWPP | HEADER1+11 |
| >> APCMX | PRINT2+7*, PRINT2+9, PRINT2+14*, PRINT2+16, PRINT2+21*, PRINT2+23, PRINT2+28*, PRINT2+30, PRINT2+35*, PRINT2+37 , H2+8*, H2+9*, H2+10*, H2+11*, H2+12*, H2+13*, H2+14, PI1+11*, PI1+15, DENOMO+10* , DENOMO+14 |
| >> APCMY | WP+3, WP+5 |
| APCMZ | WP+2*, WP+3*, WP+5, PI1+9*, PI1+10*, PI1+11, PI1+14*, PI1+16!, DENOMO+8*, DENOMO+9* , DENOMO+10, DENOMO+13*, DENOMO+15!, EXCL+1*, EXCL+4, EXCL+5, EXCL+6, EXCL+18*, EXCL+19! |
| >> C | PRINT1+4*, PRINT1+6 |
| DFOUT | EOP+4!, SUMEOP+4! |
| DIR | EOP+3~, SUMEOP+3~, EXIT+1!, HEADER+2! |
| DIR("A" | EOP+5*, SUMEOP+5*, EXIT+1* |
| DIR(0 | EOP+5*, SUMEOP+5*, EXIT+1*, HEADER+2* |
| DIRUT | EOP+4!, SUMEOP+4!, EXIT+1* |
| DIWF | WP+3*, WPS+4!, PI1+16!, DENOMO+15!, EXCL+19! |
| DIWL | WP+3*, WPS+1, WPS+3, WPS+4!, PI1+10*, PI1+14, PI1+16!, DENOMO+9*, DENOMO+13, DENOMO+15! , EXCL+16*, EXCL+18, EXCL+19! |
| DIWR | WP+3*, WPS+4!, PI1+10*, PI1+16!, DENOMO+9*, DENOMO+15!, EXCL+16*, EXCL+19! |
| DLOUT | EOP+4!, SUMEOP+4! |
| DT | HEADER1+2 |
| DTOUT | EOP+4!, SUMEOP+4!, HEADER+2 |
| DUOUT | EOP+4!, SUMEOP+4!, EXIT+1 |
| DUZ | HEADER1+2, USR+1 |
| DUZ(2 | HEADER1+9 |
| I | V+1~, V+2*, V+3*, V+4*, V+6, V+10 |
| IO | EXIT+1, HEADER+2 |
| IO("S" | EOP+2, SUMEOP+2 |
| IO(0 | EXIT+1, HEADER+2 |
| IOF | HEADER1+1 |
| IOM | CTR+1 |
| IOSL | PRINT+2 |
| IOST | EOP+1, SUMEOP+1, EXIT+1, HEADER+2 |
| >> IOT | EOP+2, SUMEOP+2 |
| J | V+1~, V+6*, V+7, V+8, V+10*, V+11, V+12 |
| K | V~, V+4, V+6, V+8, V+10, V+12 |
| N | CALC~, CALC+2, PI1+4*, PI1+5, PI1+6, DENOMO+4*, EXCL+9*, EXCL+10, SETN+1, SETN+2 , V~, V+8, V+12 |
| O | PRINT1+5*, PRINT1+6, CALC~, CALC+2 |
| P | PI1+4*, PI1+5, PI1+6, DENOMO+4*, EXCL+9*, EXCL+10, SETN+1, SETN+2, V~, V+8 , V+12 |
| PROV | V~, V+2, V+3 |
| R | V~, V+6, V+8, V+10, V+12 |
| RT | V~, V+2, V+3 |
| T | V~, V+5, V+9 |
| U | PRINT1+4, PRINT1+5, PRINT1+9, PRINT1H+1, PRINT2+3, H2+10, H2+11, H2+12, H2+13, H1+5 , H1+7, HEADER1+2, HEADER1+6, HEADER1+7, HEADER1+9, USR+1, PI1+2, PI1+4, PI1+20, PI1+21 , PI1+22, PI1+28, PI1+29, DENOMO+1, DENOMO+2, DENOMO+4, EXCL+7, EXCL+9, SETN+5, V+8 , V+12 |
| X | WP+5*, WPS+5!, PRINT1+3*, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+9*, SCREEN+1*, SB~, SB+3 , C~, C+1, C+3, HEADER1+2*, HEADER1+6*, HEADER1+7*, HEADER1+8*, HEADER1+9*, HEADER1+10*, HEADER1+11* , HEADER1+12*, CTR~, CTR+1, PI1+11*, DENOMO+10*, EXCL+16*, V+1~, V+5, V+7*, V+8* , V+9, V+11*, V+12* |
| X2 | C~ |
| X3 | C~ |
| Y | HEADER+2, CTR~, CTR+1, PI1+27*, PI1+28*, PI1+29, V+1~ |
| Z | WPS+1*, WPS+3, WPS+4!, CALC+1~, CALC+2*, CALC+3, V+1~ |
| >> ZTQUEUED | EOP+2, SUMEOP+2, EXIT+1, HEADER+2 |