©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
APCPACHA ; IHS/TUCSON/LAB - create CHA activity reporting system record AUGUST 14, 1992 ; [ 09/16/02 12:15 PM ]
Source file <APCPACHA.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component Data Transmission | 1 | ^APCPCICD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPOV | ;
|
|
| CONVERT | ;convert minutes to hours
|
|
| GETCODE | ;
|
|
| SETTX | ;
|
|
| POV | ;get POV information
|
|
| EOJ | ;
|
|
| SETPOV | ||
| CHART | ;CHANGE CHART TO DUZ(2) IF EQUAL 999999
|
|
| HIGH | ||
| ACTCODE | ;
|
|
| TIME | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^APCPCICD | GETPOV+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | CHART+2, CHART+3 |
| ^AUPNVPOV - [#9000010.07] | GETPOV+1 |
| ^AUPNVPOV("AD" | POV+1 |
| ^AUPNVTM - [#9000010.19] | TIME+3 |
| ^AUPNVTM("AD" | TIME+1 |
| ^AUTTCHA - [#9999999.74] | HIGH+3, HIGH+5 |
| ^AUTTCHA("AH" | HIGH, HIGH+1, HIGH+2 |
| ^BAPCDATA( | SETTX+6* |
| ^ICD9 - [#80] | GETPOV+1 |
| Name | Line Occurrences |
|---|---|
| ACTCODE | APCPACHA+3 |
| CHART | APCPACHA+9 |
| CONVERT | TIME+6, TIME+9 |
| EOJ | APCPACHA+6, APCPACHA+8 |
| GETPOV | POV+1 |
| HIGH | GETCODE+2, GETCODE+3, GETCODE+4 |
| POV | APCPACHA+5 |
| SETTX | APCPACHA+10 |
| TIME | APCPACHA+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CHART+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APCP("CHA" | SETTX+2* |
| >> APCP("COUNT" | SETTX+2*, SETTX+6 |
| >> APCP("RUN LOC | ATION" , SETTX+4 |
| >> APCP("V DFN" | POV+1, TIME+1 |
| APCPCHD1 | APCPACHA+4*, EOJ+1!, SETTX+4 |
| APCPCHD2 | APCPACHA+4*, EOJ+1!, SETTX+4 |
| >> APCPE | APCPACHA+6, APCPACHA+8 |
| >> APCPE("EDFN" | HIGH*, HIGH+1*, HIGH+4* |
| >> APCPE("ERROR" | POV+1, GETPOV+2, HIGH*, HIGH+1*, HIGH+4*, TIME+2*, TIME+4*, TIME+9* |
| >> APCPE("FILE" | HIGH*, HIGH+1*, HIGH+4* |
| APCPT | EOJ+1! |
| APCPT("AC" | GETCODE+6*, HIGH+5*, SETPOV |
| APCPT("ACT TI | ME MIN" , TIME+3*, TIME+4, TIME+5*, TIME+6, ME" , TIME+7*, SETTX+5 |
| APCPT("ACTC" | ACTCODE+1*, ACTCODE+2*, SETTX+4 |
| APCPT("AT REC | " , TIME+1*, TIME+2, TIME+3 |
| APCPT("CHA CH | ART" , CHART+1*, CHART+2*, CHART+3*, CHART+4*, SETTX+5 |
| APCPT("CHA" | TIME+5 |
| APCPT("DA1" | HIGH+1*, HIGH+2, HIGH+3, HIGH+5 |
| APCPT("DA2" | HIGH+2*, HIGH+3 |
| APCPT("HIGH" | HIGH*, HIGH+1, HIGH+2 |
| APCPT("ICD PT | R" , GETPOV+1* |
| APCPT("ICD" | GETPOV+1*, GETCODE+1*, HIGH+4 |
| APCPT("LOW" | HIGH+3*, HIGH+4 |
| APCPT("TRAVEL | TIME MIN" , TIME+3*, TIME+8*, TIME+9, TIME" , TIME+8*, TIME+10*, SETTX+5 |
| APCPT("VAR" | SETPOV* |
| APCPT("VD" | SETTX+1*, SETTX+4 |
| APCPT("X" | GETPOV+1*, GETCODE+2*, GETCODE+3*, GETCODE+4*, GETCODE+5*, GETCODE+6*, HIGH |
| APCPT(1 | POV+1*, SETPOV |
| APCPT(2 | POV+1*, GETPOV+1, HIGH, HIGH+1, HIGH+4 |
| >> APCPV("CHA TX | GENERATED" , SETTX+3* |
| >> APCPV("CLINIC | CODE" , ACTCODE+2 |
| >> APCPV("COMM C | ODE" , SETTX+4 |
| >> APCPV("LOC DF | N" , CHART+3 |
| >> APCPV("PATIEN | T DFN" , CHART+2, CHART+3 |
| >> APCPV("SRV CA | T" , ACTCODE+1 |
| >> APCPV("TX GEN | ERATED" , SETTX+3* |
| >> APCPV("TX" | SETTX+4*, SETTX+5*, SETTX+6 |
| >> APCPV("V DATE | " , SETTX+1 |
| >> AUPNDOB | SETTX+5 |
| >> AUPNSEX | SETTX+5 |
| DUZ(2 | CHART+2 |
| H | TIME+6*, TIME+7, TIME+9, TIME+10, TIME+11!, CONVERT+1*, CONVERT+3* |
| M | TIME+7, TIME+10, TIME+11!, CONVERT+1*, CONVERT+2* |
| U | GETPOV+1, HIGH+3, HIGH+5, TIME+3, CHART+2, CHART+3, SETTX+4, SETTX+5 |
| X | TIME+6*, TIME+9*, TIME+11!, CONVERT+1 |
| Y | TIME+11! |