©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
APCPAH ; IHS/TUCSON/LAB - create INPATIENT SYSTEM record AUGUST 14, 1992 ; [ 04/04/02 8:35 PM ]
Source file <APCPAH.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component Data Transmission | 8 | ^APCPCICD COUNT^APCPDR2 ^APCPDRPP ^APCPHOP ^APCPHOSP ^APCPHPOV ^APCPHPRV ^APCPHTX |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| VA Fileman | 1 | ^%DTC |
| Package | Total | Caller Graph |
|---|---|---|
| Patient Care Component Data Transmission | 1 | APCPDR2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DISP | ; Disposition Type-CP 60
|
|
| BEN | ;
|
|
| SETVARS | ; set standard variables for record
|
|
| ADMTYPE | ; Admission Type-CP 51
|
|
| UCAUS | ;
|
|
| EOJ | ;
|
|
| CONSULTS | ;
|
|
| DAY |
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | DAY+1 |
| ^APCPCICD | UCAUS+7 |
| COUNT^APCPDR2 | APCPAH+2, APCPAH+3, APCPAH+5, APCPAH+7, APCPAH+9, APCPAH+11, APCPAH+13, APCPAH+15 |
| ^APCPDRPP | APCPAH+4 |
| ^APCPHOP | APCPAH+14 |
| ^APCPHOSP | APCPAH+6 |
| ^APCPHPOV | APCPAH+12 |
| ^APCPHPRV | APCPAH+10 |
| ^APCPHTX | APCPAH+16 |
| $$VAL^XBDIQ1 | ADMTYPE+2, ADMTYPE+3, DISP+2, DISP+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | BEN+1, UCAUS+3, UCAUS+4 |
| ^AUPNVINP - [#9000010.02] | ADMTYPE+1, DISP+1, CONSULTS+1 |
| ^AUTTBEN - [#9999999.25] | BEN+2, BEN+3 |
| ^DD(9000010.02 | ADMTYPE+2, ADMTYPE+3, DISP+2, DISP+3 |
| ^DPT - [#2] | SETVARS+3 |
| ^ICD9 - [#80] | UCAUS+5 |
| Name | Line Occurrences |
|---|---|
| DAY | CONSULTS+1 |
| EOJ | APCPAH+3, APCPAH+5, APCPAH+7, APCPAH+9, APCPAH+11, APCPAH+13, APCPAH+15 |
| SETVARS | APCPAH+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APCPE | APCPAH+5 |
| >> APCPE("ERROR" | APCPAH+2*, APCPAH+3*, APCPAH+7, APCPAH+9, APCPAH+11, APCPAH+13, APCPAH+15, BEN+1*, BEN+2*, ADMTYPE+1* , ADMTYPE+4*, DISP+1*, DISP+4*, UCAUS+3*, UCAUS+4*, UCAUS+8 |
| APCPH | EOJ+2! |
| APCPH("ADM DA | TE" , SETVARS+1* |
| APCPH("ADM TY | PE" , ADMTYPE+2*, ADMTYPE+3*, ADMTYPE+4 |
| APCPH("BEN" | BEN+3* |
| APCPH("CAUSE" | UCAUS+2*, UCAUS+10* |
| APCPH("CON" | CONSULTS+1*, CONSULTS+2* |
| APCPH("DAYS" | DAY*, DAY+1* |
| APCPH("DIS DA | TE" , SETVARS+2* |
| APCPH("DISP" | DISP+2*, DISP+3*, DISP+4, UCAUS+2 |
| APCPH("DOB" | SETVARS+4* |
| APCPH("L" | UCAUS+9* |
| APCPH("LC" | UCAUS+5* |
| APCPH("SEX" | SETVARS+5* |
| APCPH("SSN" | SETVARS+3* |
| APCPH("VINP P | TR" , ADMTYPE+1, DISP+1, CONSULTS+1 |
| APCPHDX1 | EOJ+2! |
| APCPHDX2 | EOJ+2! |
| APCPHDX3 | EOJ+2! |
| APCPHDX4 | EOJ+2! |
| APCPHDX5 | EOJ+2! |
| APCPHDX6 | EOJ+2! |
| APCPHHA1 | EOJ+2! |
| APCPHHA2 | EOJ+2! |
| APCPHHA3 | EOJ+2! |
| APCPHHA4 | EOJ+2! |
| APCPHHA5 | EOJ+2! |
| APCPHHA6 | EOJ+2! |
| APCPHOP1 | EOJ+2! |
| APCPHOP2 | EOJ+2! |
| APCPHOP3 | EOJ+2! |
| APCPODX1 | EOJ+2! |
| APCPODX2 | EOJ+2! |
| APCPODX3 | EOJ+2! |
| APCPOIN1 | EOJ+2! |
| APCPOIN2 | EOJ+2! |
| APCPOIN3 | EOJ+2! |
| APCPT | EOJ+2! |
| APCPT("ICD PT | R" , UCAUS+4*, UCAUS+5 |
| APCPT("ICD" | UCAUS+5*, UCAUS+6*, UCAUS+9*, UCAUS+10 |
| >> APCPV("CHART" | APCPAH+2 |
| >> APCPV("DISCHA | RGE DATE" , SETVARS+2, DAY+1 |
| >> APCPV("LOC DF | N" , APCPAH+3 |
| >> APCPV("V DATE | " , SETVARS+1, DAY+1 |
| >> AUPNDOB | SETVARS+4 |
| >> AUPNPAT | SETVARS+3, BEN+1, UCAUS+3, UCAUS+4 |
| >> AUPNSEX | SETVARS+5 |
| DUZ(2 | APCPAH+3 |
| I | EOJ+1!, UCAUS+9* |
| U | SETVARS+3, BEN+1, BEN+3, ADMTYPE+1, ADMTYPE+2, ADMTYPE+3, DISP+1, DISP+2, DISP+3, CONSULTS+1 , UCAUS+4, UCAUS+5 |
| >> X | BEN+1*, BEN+2, BEN+3, ADMTYPE+1*, ADMTYPE+2, ADMTYPE+3, DISP+1*, DISP+2, DISP+3, DAY+1 |
| >> X1 | DAY+1* |
| >> X2 | DAY+1* |