©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
APCDPL ; IHS/CMI/LAB - PROBLEM LIST UPDATE ;
Source file <APCDPL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^%DT ^DIC $$GET1^DIQ |
| IHS Patient | 2 | (,KILL)^AUPNPAT $$ASKCL^AUPNVPLC |
| IHS VA Utilities | 2 | $$VAL^XBDIQ1 $$EXTSET^XBFUNC |
| Kernel | 2 | $$FMTE^XLFDT DISP^XQORM1 |
| Registration | 2 | EN^VALM ($$FTIME,$$SETSTR,CLEAR,FULL)^VALM1 |
| Patient Care Component | 1 | INAC^APCDEA |
| Patient Care Component Reports | 1 | ($$LASTNAP,$$LASTPLR,$$LASTPLU)^APCLAPI6 |
| Package | Total | Caller Graph |
|---|---|---|
| Patient Care Component | 5 | APCDAPRB APCDEH1 APCDEL1 APCDETP1 APCDPL1 |
| Diabetes Registry | 1 | BDMPL |
| IHS Changes To ADT | 1 | BDGPCCEL |
| Mental Health Social Services | 1 | AMHPL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HELP | ; -- help code
|
|
| EN | ;PEP main entry point for APCD PL PROBLEM LIST
|
|
| HDR | ;EP -- header code
|
|
| GATHER1 | ;
|
|
| EN1 | ;PEP - requires DFN to be set to patient
|
|
| GETLOC | ;
|
|
| EOJ | ;End of job cleanup
|
|
| GATHER | ;EP
|
|
| GETPAT | ;get patient
|
|
| NOTE | ||
| START | ;
|
|
| EN2 | ;PEP - can be called to update problem list, called from applications outside of PCC
|
|
| ENDE | ;EP - for data entry PL call
|
|
| EXIT | ; -- exit code
|
|
| TEXT | ;
|
|
| INIT | ; -- init variables and list array
|
|
| EXPND | ; -- expand code
|
|
| GETDATE | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | GETDATE+4 |
| INAC^APCDEA | GETPAT+10 |
| $$LASTNAP^APCLAPI6 | GATHER+12 |
| $$LASTPLR^APCLAPI6 | GATHER+8 |
| $$LASTPLU^APCLAPI6 | GATHER+10 |
| ^AUPNPAT | EN1+7, ENDE+6 |
| KILL^AUPNPAT | GETPAT+3, EOJ+5 |
| $$ASKCL^AUPNVPLC | GATHER1+9 |
| ^DIC | GETPAT+7, GETLOC+1 |
| $$GET1^DIQ | GATHER1+8, GATHER1+15, GATHER1+17 |
| EN^VALM | EN+2 |
| $$FTIME^VALM1 | HDR+2 |
| $$SETSTR^VALM1 | GATHER1+4, GATHER1+5, GATHER1+6 |
| CLEAR^VALM1 | EOJ+1, EN+3 |
| FULL^VALM1 | START+5, EN1+15, EN2+3, ENDE+16 |
| $$VAL^XBDIQ1 | GATHER1+5, GATHER1+9, GATHER1+11, GATHER1+12, GATHER1+13 |
| $$EXTSET^XBFUNC | GATHER1+5 |
| $$FMTE^XLFDT | GATHER+9, GATHER+11, GATHER+14, GATHER1+6, NOTE+4 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| ^AUPNPROB - [#9000011] | GET1^DIQ |
| 9000011.13 | GET1^DIQ |
| ^AUTTLOC - [#9999999.06] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCDSITE - [#9001001.2] | GETPAT+5 |
| ^AUPNPAT - [#9000001] | EN1+5, ENDE+4, HDR+2 |
| ^AUPNPROB - [#9000011] | GATHER1+2, GATHER1+16, GATHER1+17, NOTE, NOTE+1, NOTE+2, NOTE+4 |
| ^AUPNPROB("AA" | GATHER1+1, GATHER1+2 |
| ^AUPNPROB("AC" | GATHER+7 |
| ^AUTTLOC - [#9999999.06] | GATHER1+4, NOTE+1 |
| ^DIC(4 - [#4] | GETLOC+1 |
| ^DPT - [#2] | EN1+6, ENDE+5, HDR+2 |
| ^TMP($J | GETPAT+1!, EOJ+2!, EN1+1!, GATHER+4!, GATHER+7*, GATHER+9*, GATHER+11*, GATHER+14*, GATHER+15*, GATHER1+3* , GATHER1+7*, GATHER1+8*, GATHER1+9*, GATHER1+14*, GATHER1+15*, GATHER1+18*, NOTE+3*, NOTE+5*, NOTE+6*, EXIT+1! |
| ^VA(200 - [#200] | GATHER+9, GATHER+11, GATHER+14 |
| Name | Line Occurrences |
|---|---|
| EN | EN1+13, EN2+2, ENDE+14 |
| EN1 | START+5 |
| EOJ | START+6 |
| EXIT | START+5, EN1+9, EN1+11, EN1+16, EN2+4, ENDE+8, ENDE+10, ENDE+17 |
| GATHER | INIT+1 |
| GATHER1 | GATHER+17 |
| GETDATE | GETDATE+4, GETDATE+5, EN1+10 |
| GETLOC | EN1+8 |
| GETPAT | START+5, EN2+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GATHER1+2 |
| ^(0 | GATHER1+4, NOTE+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | GETDATE+4* |
| APCDAF | GETPAT+2!, EOJ+4!, GATHER+17*, GATHER1+2, EXIT+2! |
| APCDC | NOTE*, NOTE+1*, NOTE+3*, EXIT+2! |
| APCDDATE | GETPAT+2!, GETDATE+1*, GETDATE+6*, EOJ+4!, EN1+11, ENDE+9*, ENDE+10, EXIT+2! |
| APCDF | GATHER1+1*, GATHER1+2, GATHER1+4, NOTE+9! |
| APCDL | NOTE+1*, NOTE+2, NOTE+4, NOTE+9!, EXIT+2! |
| APCDLINE | INIT+2, GATHER+6*, GATHER+7*, GATHER+9*, GATHER+11*, GATHER+14*, GATHER+15*, GATHER1+3*, GATHER1+7, GATHER1+8* , GATHER1+9*, GATHER1+11*, GATHER1+14, GATHER1+15*, GATHER1+18*, NOTE+3*, NOTE+5*, NOTE+6*, EXIT+2! |
| APCDLOC | GETPAT+2!, GETLOC+1*, GETLOC+3*, EOJ+4!, EN1+9, ENDE+7*, ENDE+8, EXIT+2! |
| APCDLOOK | GETPAT+2!, EOJ+4!, EXIT+2! |
| APCDLR | NOTE+1*, NOTE+4, NOTE+9!, EXIT+2! |
| APCDOVRR | GETPAT+2!, EOJ+4!, EN1+12*, ENDE+13*, INIT+3*, EXIT+2! |
| APCDP0 | GATHER1+2*, GATHER1+4, GATHER1+5, GATHER1+6, GATHER1+9, GATHER1+10, GATHER1+12, GATHER1+13, EXIT+2! |
| APCDPAT | GETPAT+2!, EOJ+4! |
| APCDPDFN | GETPAT+2!, EOJ+4!, EXIT+2! |
| APCDPIEN | GETPAT+2!, EOJ+4!, GATHER1+2*, GATHER1+3, GATHER1+5, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+11, GATHER1+12 , GATHER1+13, GATHER1+14, GATHER1+15, GATHER1+16, GATHER1+17, GATHER1+18, NOTE, NOTE+1, NOTE+2, NOTE+3 , NOTE+4, NOTE+5, NOTE+6, EXIT+2! |
| APCDPL | GATHER+6!, EXIT+2! |
| >> APCDPLD | ENDE+9 |
| >> APCDPLL | ENDE+7 |
| APCDPLPT | START+5*!, GETPAT+2!, GETPAT+4*, GETPAT+9*, GETPAT+10*, EOJ+4!, EN1+3*, EN1+4, EN1+5, EN1+6 , EN1+7, EN1+14!, ENDE+2*, ENDE+3, ENDE+4, ENDE+5, ENDE+6, ENDE+15!, HDR+2, GATHER+7 , GATHER+8, GATHER+10, GATHER+12, GATHER1+1, GATHER1+2 |
| >> APCDPLV | ENDE+11 |
| APCDPRB | GETPAT+2!, EOJ+4!, GATHER1+2*, EXIT+2! |
| APCDQUIT | GATHER+6! |
| APCDRCNT | GATHER+6*, GATHER+16*, GATHER1+3*, GATHER1+4, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+14, GATHER1+15, GATHER1+18 , NOTE+3, NOTE+5, NOTE+6, EXIT+2! |
| APCDSX | GATHER+5~, GATHER+8*, GATHER+9, GATHER+10*, GATHER+11, GATHER+12*, GATHER+14 |
| >> APCDV | ENDE+11*, ENDE+12* |
| APCDX | GATHER1+3*, GATHER1+4*, GATHER1+5*, GATHER1+6*, GATHER1+7*, GATHER1+8*, GATHER1+9*, GATHER1+11*, GATHER1+12*, GATHER1+13* , GATHER1+14*, GATHER1+15*, GATHER1+16*, GATHER1+17*, GATHER1+18*, NOTE+2*, NOTE+4, NOTE+9!, EXIT+2! |
| >> AUPNDOB | HDR+2 |
| >> AUPNLK("INAC" | GETPAT+5* |
| >> DFN | START+5*, EN1+2, EN1+3, ENDE+1, ENDE+2 |
| DIC | GETPAT+7*!, GETLOC+1*! |
| DIC("A" | GETLOC+1* |
| DIC("B" | GETLOC+1* |
| DIC(0 | GETPAT+7*, GETLOC+1* |
| DT | GETDATE+5, GATHER+8, GATHER+10, GATHER+12 |
| DTIME | GETDATE+2 |
| DUZ(2 | GETPAT+5, GETLOC+1, HDR+2 |
| IOF | START+1 |
| >> IOINHI | GATHER1+8, GATHER1+9 |
| >> IOINORM | GATHER1+8, GATHER1+9, NOTE+3, NOTE+6 |
| >> IORVOFF | HDR+2, NOTE+3 |
| >> IORVON | HDR+2, NOTE+3 |
| J | START+2*, START+3! |
| U | GETPAT+5, GETLOC+1, HDR+2, GATHER+9, GATHER+11, GATHER+14, GATHER1+2, GATHER1+4, GATHER1+5, GATHER1+6 , GATHER1+9, GATHER1+10, GATHER1+12, GATHER1+13, NOTE+1, NOTE+4 |
| VALM | EOJ+3! |
| VALMAR | EOJ+3! |
| VALMBCK | EOJ+3! |
| VALMBG | EOJ+3! |
| VALMCAP | EOJ+3! |
| >> VALMCC | EN+1* |
| VALMCNT | EOJ+3!, INIT+2* |
| VALMDN | EOJ+3! |
| VALMEVL | EOJ+3! |
| VALMHDR | EXIT+4! |
| VALMHDR(1 | HDR+1* |
| VALMHDR(2 | HDR+2* |
| VALMHDR(3 | HDR+3* |
| VALMIOXY | EOJ+3! |
| VALMKEY | EOJ+3! |
| VALMLFT | EOJ+3! |
| VALMLST | EOJ+3! |
| VALMMCON | EOJ+3! |
| VALMMENU | EOJ+3! |
| VALMOFF | EOJ+3! |
| VALMSGR | EOJ+3! |
| VALMUP | EOJ+3! |
| VALMWD | EOJ+1, EOJ+3! |
| VALMY | EOJ+3! |
| X | START+2*, START+3!, GETPAT+10, GETDATE+2*, GETDATE+3, GETDATE+5!, GATHER1+4*, GATHER1+5*, GATHER1+15*, GATHER1+17* , NOTE+3*, NOTE+4*, NOTE+5, HELP+1*, EXIT+3! |
| XQORNEST | EOJ+3! |
| XQORS | EOJ+3! |
| XQORSPEW | EOJ+3! |
| Y | GETPAT+8, GETPAT+9, GETLOC+2, GETLOC+3, GETDATE+4, GETDATE+5, GETDATE+6, EN1+7*, ENDE+6*, EXIT+3! |
| Name | Field # of Occurrence |
|---|---|
| $T(TEXT+J | START+2 |