APCLACGM ;IHS/CMI/LAB - A/C monthly report; [ 12/9/2009 19:39 PM ]
Source file <APCLACGM.m>
| Package | Total | Call Graph | 
|---|---|---|
| Patient Care Component Reports | 4 | $$LASTLAB^APCLAPIU $$START1^APCLDF DONE^APCLOSUT $$VD^APCLV | 
| VA Fileman | 3 | DD^%DT (COMMA,NOW)^%DTC ^DIR | 
| Kernel | 2 | $$FMTE^XLFDT $$STRIP^XLFSTR | 
| IHS Patient | 1 | ($$DOB,$$HRN)^AUPNPAT | 
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 | 
| Patient Care Component | 1 | $$D1^APCHSMU | 
| Package | Total | Caller Graph | 
|---|---|---|
| Patient Care Component Reports | 2 | APCLACG APCLACG1 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PER(N,D) | ;return % of n/d | |
| LIST5 | ;all patient in ^TMP($J,"PATIENTS" | |
| LIST4 | ;all patient in ^TMP($J,"PATIENTS" | |
| LIST1 | ;all patient in ^TMP($J,"PATIENTS" | |
| LIST3 | ;all patient in ^TMP($J,"PATIENTS" | |
| LIST2 | ;all patient in ^TMP($J,"PATIENTS" | |
| USR() | ;EP - Return name of current user from ^VA(200. | |
| EOP | ;EP - End of page. | |
| DONE | ; | |
| SUBHEAD1 | ; | |
| SUBHEAD2 | ; | |
| SUBHEAD3 | ; | |
| ; | ||
| LOC() | ;EP - Return location name from file 4 based on DUZ(2). | |
| CTR(X,Y) | ;EP - Center X in a field Y wide. | |
| INRGOAL(P,A) | ;EP - inr goal documented on or before this date | |
| MONT | ; | |
| HEAD | ||
| MRGOAL(P) | ;PEP - most recent INR goal and date | |
| VITK | ; | |
| LASTINR(P,BD,ED) | ;EP | |
| C(X,X2,X3) | ; | |
| HEAD1 | ; | |
| RPTPOP | ;report population | |
| LISTS | ; | 
| Name | Field # of Occurrence | 
|---|---|
| DD^%DT | PRINT+2 | 
| COMMA^%DTC | C+2 | 
| NOW^%DTC | PRINT+2 | 
| $$D1^APCHSMU | RPTPOP+32, RPTPOP+36, VITK+10, VITK+13, VITK+16, LIST1+7, LIST1+10, LIST2+7, LIST2+10, LIST3+7 , LIST3+10, LIST4+7, LIST4+10, LIST5+7, LIST5+10 | 
| $$LASTLAB^APCLAPIU | LASTINR+2 | 
| $$START1^APCLDF | RPTPOP+40, VITK+18 | 
| DONE^APCLOSUT | APCLACGM+7 | 
| $$VD^APCLV | MRGOAL+13 | 
| $$DOB^AUPNPAT | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7 | 
| $$HRN^AUPNPAT | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7 | 
| ^DIR | HEAD+1, EOP+5 | 
| $$VAL^XBDIQ1 | MRGOAL+12, INRGOAL+14 | 
| $$FMTE^XLFDT | PRINT+8, PRINT+13, RPTPOP+13, HEAD1+2 | 
| $$STRIP^XLFSTR | C+3, PER+4 | 
| 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 | 
 | 
| 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 | 
 | 
| 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 | 
 | 
| 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 (* Changed, ! Killed) | 
|---|---|
| ^ATXAX("B" | LASTINR+2 | 
| ^ATXLAB("B" | LASTINR+2 | 
| ^AUPNVACG - [#9000010.51] | MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+13, INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13 | 
| ^AUPNVACG("AA" | MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, INRGOAL+2, INRGOAL+5, INRGOAL+6, INRGOAL+7 | 
| ^DIBT( | RPTPOP+6 | 
| ^DIC(4 - [#4] | LOC+1 | 
| ^DIC(40.7 - [#40.7] | RPTPOP+5 | 
| ^DPT - [#2] | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7 | 
| ^VA(200 - [#200] | USR+1 | 
| ^XTMP("APCLACG" | APCLACGM+5!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5, LIST2+4 , LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5 | 
| Name | Line Occurrences | 
|---|---|
| $$C | PRINT+10, PRINT+13, PRINT+15, RPTPOP+9, RPTPOP+13, RPTPOP+16, RPTPOP+21, RPTPOP+26, VITK+4, MONT+5 , MONT+10, MONT+15, MONT+20, MONT+25, MONT+30 | 
| $$CTR | HEAD1+3, HEAD1+4, HEAD1+5 | 
| $$INRGOAL | RPTPOP+36, VITK+11, LIST1+8, LIST2+8, LIST3+8, LIST4+8, LIST5+8 | 
| $$LASTINR | VITK+12, LIST1+9, LIST2+9, LIST3+9, LIST4+9, LIST5+9 | 
| $$LOC | HEAD1+3 | 
| $$PER | PRINT+13, PRINT+15, RPTPOP+13, RPTPOP+16, RPTPOP+21, RPTPOP+26, VITK+4, MONT+5, MONT+10, MONT+15 , MONT+20, MONT+25, MONT+30 | 
| DONE | LISTS+1, LISTS+3, LISTS+5, LISTS+7, LISTS+9 | 
| HEAD | PRINT+5, PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+31, RPTPOP+38, VITK+1 , VITK+5, VITK+9, VITK+15, MONT+1, MONT+6, MONT+11, MONT+16, MONT+21, MONT+26, LIST1+2 , LIST1+6, LIST2+2, LIST2+6, LIST3+2, LIST3+6, LIST4+2, LIST4+6, LIST5+2, LIST5+6 | 
| HEAD1 | HEAD | 
| LIST1 | LISTS+2 | 
| LIST2 | LISTS+4 | 
| LIST3 | LISTS+6 | 
| LIST4 | LISTS+8 | 
| LIST5 | LISTS+10 | 
| APCLACGM+4 | |
| SUBHEAD1 | RPTPOP+29, RPTPOP+31, RPTPOP+38 | 
| SUBHEAD2 | VITK+7, VITK+9, VITK+15 | 
| SUBHEAD3 | LIST1+6, LIST2+6, LIST3+6, LIST4+6, LIST5+6, HEAD1+7 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | USR+1, LOC+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | RPTPOP+40*, VITK+18* | 
| A | INRGOAL~, INRGOAL+11 | 
| >> APCL80S | PRINT+1*, SUBHEAD2+2, SUBHEAD1+2, SUBHEAD3+2, HEAD1+6 | 
| >> APCLACCR( | RPTPOP+5 | 
| >> APCLAP | PRINT+3* | 
| >> APCLBD | PRINT+8, RPTPOP+40, VITK+12, VITK+18, LIST1+9, LIST2+9, LIST3+9, LIST4+9, LIST5+9 | 
| APCLBTH | APCLACGM+5, APCLACGM+6!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5 , LIST2+4, LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5 | 
| APCLD | RPTPOP+39!, VITK+17! | 
| APCLD( | RPTPOP+42, VITK+20 | 
| >> APCLDT | PRINT+2* | 
| >> APCLED | PRINT+8, PRINT+13, RPTPOP+13, RPTPOP+36, RPTPOP+40, VITK+11, VITK+12, VITK+18, LIST1+8, LIST1+9 , LIST2+8, LIST2+9, LIST3+8, LIST3+9, LIST4+8, LIST4+9, LIST5+8, LIST5+9 | 
| >> APCLGRP | RPTPOP+3, RPTPOP+4, RPTPOP+6, RPTPOP+7, RPTPOP+8 | 
| >> APCLI | RPTPOP+34*, RPTPOP+35 | 
| >> APCLICP | RPTPOP+7, RPTPOP+8 | 
| APCLJOB | APCLACGM+5, APCLACGM+6!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5 , LIST2+4, LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5 | 
| >> APCLL | VITK+12*, VITK+13, LIST1+9*, LIST1+10, LIST2+9*, LIST2+10, LIST3+9*, LIST3+10, LIST4+9*, LIST4+10 , LIST5+9*, LIST5+10 | 
| >> APCLLIST | LISTS+1 | 
| >> APCLLIST(1 | LISTS+2 | 
| >> APCLLIST(2 | LISTS+4 | 
| >> APCLLIST(3 | LISTS+6 | 
| >> APCLLIST(4 | LISTS+8 | 
| >> APCLLIST(5 | LISTS+10 | 
| >> APCLPG | PRINT+3*, HEAD, HEAD1+1*, HEAD1+2 | 
| APCLQUIT | PRINT+4!, PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+30, RPTPOP+31, RPTPOP+33 , RPTPOP+34, RPTPOP+38, VITK+1, VITK+5, VITK+8, VITK+9, VITK+15, MONT+1, MONT+6, MONT+11 , MONT+16, MONT+21, MONT+26, LISTS+3, LISTS+5, LISTS+7, LISTS+9, LISTS+11, LIST1+3, LIST1+5 , LIST1+6, LIST2+3, LIST2+5, LIST2+6, LIST3+3, LIST3+5, LIST3+6, LIST4+3, LIST4+5, LIST4+6 , LIST5+3, LIST5+5, LIST5+6, HEAD+1* | 
| >> APCLR | RPTPOP+35*, RPTPOP+36 | 
| >> APCLRPI9 | RPTPOP+26 | 
| >> APCLRPIN | RPTPOP+21, RPTPOP+26 | 
| >> APCLRPMI | MONT+5 | 
| >> APCLRPMN | MONT+15 | 
| >> APCLRPMU | MONT+25 | 
| >> APCLRPNI | MONT+10 | 
| >> APCLRPNN | MONT+20 | 
| >> APCLRPNU | MONT+30 | 
| >> APCLRPOP | RPTPOP+9, RPTPOP+13 | 
| >> APCLRPVK | VITK+4 | 
| >> APCLRPWA | RPTPOP+16 | 
| >> APCLRPWR | RPTPOP+13, RPTPOP+16, RPTPOP+21, VITK+4, MONT+5, MONT+10, MONT+15, MONT+20, MONT+25, MONT+30 | 
| >> APCLSHD | PRINT+7*, LIST1+1*, LIST2+1*, LIST3+1*, LIST4+1*, LIST5+1*, HEAD1+5, HEAD1+7 | 
| >> APCLSTMP | RPTPOP+6 | 
| >> APCLUPAC | PRINT+15 | 
| >> APCLUPOP | PRINT+10, PRINT+13 | 
| >> APCLUPWR | PRINT+13, PRINT+15 | 
| APCLVAL | LASTINR+1~, LASTINR+2*, LASTINR+3 | 
| >> APCLVD | RPTPOP+33*, RPTPOP+34, RPTPOP+35, RPTPOP+36 | 
| BD | LASTINR~, LASTINR+2 | 
| D | MRGOAL+3~, MRGOAL+5*, MRGOAL+6, MRGOAL+7, INRGOAL+3~, INRGOAL+5*, INRGOAL+6, INRGOAL+7, PER~, PER+1 , PER+3 | 
| >> DFN | RPTPOP+30*, RPTPOP+32, RPTPOP+33, RPTPOP+34, RPTPOP+35, RPTPOP+36, RPTPOP+40, VITK+8*, VITK+10, VITK+11 , VITK+12, VITK+16, VITK+18, LIST1+5*, LIST1+7, LIST1+8, LIST1+9, LIST2+5*, LIST2+7, LIST2+8 , LIST2+9, LIST3+5*, LIST3+7, LIST3+8, LIST3+9, LIST4+5*, LIST4+7, LIST4+8, LIST4+9, LIST5+5* , LIST5+7, LIST5+8, LIST5+9 | 
| DFOUT | EOP+4! | 
| DIR | HEAD+1!, EOP+3~ | 
| DIR(0 | HEAD+1*, EOP+5* | 
| DIRUT | EOP+4! | 
| DLOUT | EOP+4! | 
| DT | HEAD1+2 | 
| DTOUT | HEAD+1, EOP+4! | 
| DUOUT | EOP+4! | 
| DUZ | USR+1 | 
| DUZ(2 | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7, LOC+1 | 
| >> E | RPTPOP+40*, VITK+18* | 
| ED | LASTINR~, LASTINR+2 | 
| I | MRGOAL+3~, MRGOAL+7*, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+12, MRGOAL+13, INRGOAL+3~, INRGOAL+7* , INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13, INRGOAL+14 | 
| IO | HEAD+1 | 
| IO("S" | EOP+2 | 
| IO(0 | HEAD+1 | 
| IOF | HEAD1+1 | 
| IOM | CTR+1 | 
| IOSL | PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+31, RPTPOP+38, VITK+1, VITK+5 , VITK+9, VITK+15, MONT+1, MONT+6, MONT+11, MONT+16, MONT+21, MONT+26, LIST1+6, LIST2+6 , LIST3+6, LIST4+6, LIST5+6 | 
| IOST | HEAD+1, EOP+1 | 
| >> IOT | EOP+2 | 
| J | INRGOAL+3~, INRGOAL+10*, INRGOAL+11 | 
| N | PER~, PER+3 | 
| P | LASTINR~, LASTINR+2, MRGOAL~, MRGOAL+1, MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, INRGOAL~, INRGOAL+1 , INRGOAL+2, INRGOAL+5, INRGOAL+6, INRGOAL+7 | 
| R | MRGOAL+3~, MRGOAL+4*, MRGOAL+5, MRGOAL+6, MRGOAL+13*, MRGOAL+14, INRGOAL+3~, INRGOAL+4*, INRGOAL+5, INRGOAL+6 , INRGOAL+15*, INRGOAL+16 | 
| S | MRGOAL+3~, MRGOAL+11*, MRGOAL+12*, MRGOAL+13, INRGOAL+3~, INRGOAL+13*, INRGOAL+14*, INRGOAL+15 | 
| U | RPTPOP+5, RPTPOP+6, RPTPOP+7, RPTPOP+8, RPTPOP+32, RPTPOP+36, RPTPOP+42, VITK+10, VITK+11, VITK+13 , VITK+20, LIST1+7, LIST1+8, LIST1+10, LIST2+7, LIST2+8, LIST2+10, LIST3+7, LIST3+8, LIST3+10 , LIST4+7, LIST4+8, LIST4+10, LIST5+7, LIST5+8, LIST5+10, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11 , MRGOAL+13, INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13, USR+1, LOC+1 | 
| X | PRINT+2, RPTPOP+5*, RPTPOP+42*, VITK+20*, MRGOAL+3~, MRGOAL+6*, MRGOAL+7, INRGOAL+3~, INRGOAL+6*, INRGOAL+7 , INRGOAL+10, C~, C+3, CTR~, CTR+1 | 
| X2 | C~ | 
| X3 | C~, C+1* | 
| Y | PRINT+2*, MRGOAL+3~, INRGOAL+3~, HEAD+1, CTR~, CTR+1 | 
| Z | MRGOAL+3~, MRGOAL+10*, MRGOAL+11, MRGOAL+12, INRGOAL+3~, INRGOAL+12*, INRGOAL+13, INRGOAL+14, PER+2~, PER+3* , PER+4 | 
| >> ZTQUEUED | EOP+2 |