©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
APCHPWHU ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;
Source file <APCHPWHU.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC FILE^DICN ^DIE |
| IHS VA Utilities | 2 | ^XBFMK EN^XBNEW |
| DRG Grouper | 1 | $$CPT^ICPTCOD |
| Kernel | 1 | ($$FMADD,$$FMTE,$$NOW)^XLFDT |
| Patient Care Component | 1 | S^APCHPWH1 |
| Taxonomy | 1 | $$ICD^ATXAPI |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRAN(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT IN A TRAN CODE
|
|
| SUBHEAD | ;EP - print subheader
|
|
| LOC() | ;EP - Return location name from file 4 based on DUZ(2).
|
|
| UPDDEF | ;EP - called from option to update default PWH for the site
|
|
| CTR(X,Y) | ;EP - Center X in a field Y wide.
|
|
| EHR(DFN,APCHPWHT) | ||
| WRITEF(FORM,TEXT) | ;EP
|
|
| USR() | ;EP - Return name of current user from ^VA(200.
|
|
| CPT(P,BDATE,EDATE,T,F,SCEX) | ;EP - return ien of CPT entry if patient had this CPT
|
|
| RAD(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT
|
|
| WRITET(TEXT) | ;EP
|
|
| UPDLOG(P,T,D) | ;EP - update pwh log
|
| Name | Field # of Occurrence |
|---|---|
| S^APCHPWH1 | SUBHEAD+3, WRITET+4, WRITEF+4 |
| $$ICD^ATXAPI | CPT+16, RAD+15, TRAN+14 |
| ^DIC | UPDDEF+4 |
| FILE^DICN | UPDLOG+7 |
| ^DIE | UPDDEF+6 |
| $$CPT^ICPTCOD | CPT+25, CPT+26, TRAN+23, TRAN+24 |
| ^XBFMK | UPDDEF+7 |
| EN^XBNEW | EHR+1 |
| $$FMADD^XLFDT | CPT+6, RAD+5, TRAN+5 |
| $$FMTE^XLFDT | CPT+24, RAD+23, TRAN+22 |
| $$NOW^XLFDT | UPDLOG+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^APCCCTRL - [#9001000] | Classic Fileman Calls |
| ^APCHPWHL - [#9001027] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCHPWHF - [#9001025.06] | WRITEF+2, WRITEF+4 |
| ^APCHPWHI - [#9001028] | WRITET+4 |
| ^APCHPWHI("B" | WRITET+2 |
| ^AUPNVCPT - [#9000010.18] | CPT+16, CPT+23, CPT+24, CPT+25, CPT+26 |
| ^AUPNVCPT("AD" | CPT+13, CPT+15 |
| ^AUPNVRAD - [#9000010.22] | RAD+14, RAD+22, RAD+23, RAD+24, RAD+25 |
| ^AUPNVRAD("AD" | RAD+12, RAD+13 |
| ^AUPNVSIT - [#9000010] | CPT+12, CPT+14, CPT+23, CPT+24, CPT+25, CPT+26, RAD+11, RAD+22, RAD+23, RAD+24 , RAD+25, TRAN+11, TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
| ^AUPNVSIT("AA" | CPT+10, CPT+11, RAD+9, RAD+10, TRAN+9, TRAN+10 |
| ^AUPNVTC - [#9000010.33] | TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
| ^AUPNVTC("AD" | TRAN+12, TRAN+13 |
| ^DIC(4 - [#4] | LOC+1, UPDDEF+4 |
| ^RAMIS(71 - [#71] | RAD+14, RAD+24, RAD+25 |
| ^VA(200 - [#200] | USR+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | USR+1, LOC+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APCHPWHT | EHR~ |
| BD | CPT+8~, CPT+9*, CPT+10, RAD+7~, RAD+8*, RAD+9, TRAN+7~, TRAN+8*, TRAN+9 |
| BDATE | CPT~, CPT+6*, CPT+9, RAD~, RAD+5*, RAD+8, TRAN~, TRAN+5*, TRAN+8 |
| C | RAD+7~, RAD+14*, RAD+15 |
| D | UPDLOG~, UPDLOG+5, CPT+8~, RAD+7~, TRAN+7~ |
| D0 | UPDLOG+3~, UPDLOG+6! |
| >> DA | UPDDEF+6* |
| DD | UPDLOG+3~, UPDLOG+6! |
| DFN | EHR~ |
| >> DIADD | UPDLOG+4* |
| DIC | UPDLOG+3~, UPDLOG+4*, UPDDEF+4!* |
| DIC("B" | UPDDEF+4* |
| DIC("DR" | UPDLOG+5* |
| DIC(0 | UPDLOG+4*, UPDDEF+4* |
| >> DIE | UPDDEF+6* |
| >> DLAYGO | UPDLOG+4* |
| DO | UPDLOG+3~ |
| >> DR | UPDDEF+6* |
| DT | UPDLOG+5 |
| DUZ | USR+1 |
| DUZ(2 | LOC+1, UPDLOG+5, UPDDEF+4 |
| ED | CPT+8~, CPT+9*, CPT+10*, CPT+11, RAD+7~, RAD+8*, RAD+9*, RAD+10, TRAN+7~, TRAN+8* , TRAN+9*, TRAN+10 |
| EDATE | CPT~, CPT+5, CPT+6, CPT+9, RAD~, RAD+4, RAD+5, RAD+8, TRAN~, TRAN+4 , TRAN+5, TRAN+8 |
| F | CPT~, CPT+3*, CPT+21, CPT+22, CPT+23, CPT+24, CPT+25, CPT+26, RAD~, RAD+3* , RAD+20, RAD+21, RAD+22, RAD+23, RAD+24, RAD+25, TRAN~, TRAN+3*, TRAN+19, TRAN+20 , TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
| FORM | WRITEF~, WRITEF+2, WRITEF+4 |
| G | CPT+8~, CPT+9*, CPT+10, CPT+11, CPT+15, CPT+16*, CPT+20, CPT+21, CPT+22, CPT+23 , CPT+24, CPT+25, CPT+26, RAD+7~, RAD+8*, RAD+9, RAD+10, RAD+13, RAD+15*, RAD+19 , RAD+20, RAD+21, RAD+22, RAD+23, RAD+24, RAD+25, TRAN+7~, TRAN+8*, TRAN+9, TRAN+10 , TRAN+13, TRAN+14*, TRAN+18, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
| IOM | SUBHEAD+2, CTR+1 |
| P | UPDLOG~, UPDLOG+1, UPDLOG+4, CPT~, CPT+1, CPT+10, CPT+11, RAD~, RAD+1, RAD+9 , RAD+10, TRAN~, TRAN+1, TRAN+9, TRAN+10 |
| SCEX | CPT~, CPT+4*, CPT+14 |
| T | UPDLOG~, UPDLOG+2, UPDLOG+5, CPT~, CPT+2, CPT+16, RAD~, RAD+2, RAD+15, TRAN~ , TRAN+2, TRAN+14 |
| TEXT | WRITET~, WRITET+2, WRITEF~, WRITEF+2 |
| U | USR+1, LOC+1, UPDDEF+4, CPT+14, CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, RAD+14 , RAD+22, RAD+23, RAD+24, RAD+25, TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
| V | CPT+8~, CPT+11*, CPT+12, CPT+13, CPT+14, CPT+15, CPT+23*, CPT+24*, CPT+25*, CPT+26* , RAD+7~, RAD+10*, RAD+11, RAD+12, RAD+13, RAD+22*, RAD+23*, RAD+24*, RAD+25*, TRAN+7~ , TRAN+10*, TRAN+11, TRAN+12, TRAN+13, TRAN+21*, TRAN+22*, TRAN+23*, TRAN+24* |
| X | SUBHEAD+1~, SUBHEAD+2*, SUBHEAD+3, WRITET+1~, WRITET+2*, WRITET+3, WRITET+4, WRITEF+1~, WRITEF+2*, WRITEF+3 , WRITEF+4, CTR~, CTR+1, UPDLOG+3~, UPDLOG+4*, CPT+8~, CPT+15*, CPT+16, RAD+7~, RAD+13* , RAD+14, RAD+15, TRAN+7~, TRAN+13*, TRAN+14 |
| Y | WRITET+1~, WRITET+4*, WRITEF+1~, WRITEF+4*, CTR~, CTR+1, UPDDEF+5, UPDDEF+6, CPT+8~, RAD+7~ , TRAN+7~ |