APCPHOP ; IHS/TUCSON/LAB - create operation and proc. portions of direct inpt rec AUGUST 14, 1992 ; [ 04/03/98 08:39 AM ]
Source file <APCPHOP.m>
| Package | Total | Call Graph | 
|---|---|---|
| Patient Care Component Data Transmission | 1 | ^APCPCICD | 
| Package | Total | Caller Graph | 
|---|---|---|
| Patient Care Component Data Transmission | 1 | APCPAH | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| START | ; | |
| INF | ; Infection Char Pos 103. .08 field. | |
| GETPRC | ; | |
| EOJ | ; | 
| Name | Field # of Occurrence | 
|---|---|
| ^APCPCICD | GETPRC+12 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVPRC - [#9000010.08] | GETPRC+1, GETPRC+9, INF+1 | 
| ^AUPNVPRC("AD" | START+2 | 
| ^DPT - [#2] | GETPRC+4 | 
| ^ICD0 - [#80.1] | GETPRC+2, GETPRC+3, GETPRC+4 | 
| ^ICD9 - [#80] | GETPRC+10, GETPRC+11 | 
| Name | Line Occurrences | 
|---|---|
| GETPRC | START+2 | 
| INF | GETPRC+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> APCP("V DFN" | START+2 | 
| >> APCPE("ERROR" | START+2, GETPRC+3*, GETPRC+4*, GETPRC+5*, GETPRC+6*, GETPRC+10*, GETPRC+13, GETPRC+15* | 
| >> APCPH("POV" | GETPRC+14 | 
| >> APCPHOP1 | START+1* | 
| >> APCPHOP2 | START+1* | 
| >> APCPHOP3 | START+1* | 
| >> APCPODX1 | START+1* | 
| >> APCPODX2 | START+1* | 
| >> APCPODX3 | START+1* | 
| >> APCPOIN1 | START+1* | 
| >> APCPOIN2 | START+1* | 
| >> APCPOIN3 | START+1* | 
| APCPT | EOJ+1! | 
| APCPT("DX" | GETPRC+14*, GETPRC+15, INF+4 | 
| APCPT("ICD PT | R" , GETPRC+9*, GETPRC+10, GETPRC+11 | 
| APCPT("ICD" | GETPRC+9*, GETPRC+11*, GETPRC+14 | 
| APCPT("INF" | INF+1*, INF+5 | 
| APCPT("O PTR" | , GETPRC+1*, GETPRC+2, GETPRC+3, GETPRC+4 | 
| APCPT("OH" | GETPRC+2*, GETPRC+5, GETPRC+6, GETPRC+7*, INF+3 | 
| APCPT("VAR" | INF+3*, INF+4*, INF+5* | 
| >> AUPNPAT | GETPRC+4 | 
| C | START+2*, EOJ+1!, INF+3, INF+4, INF+5 | 
| I | EOJ+1!, GETPRC+7* | 
| M | EOJ+1!, GETPRC+7* | 
| N | EOJ+1!, GETPRC+2*, GETPRC+6* | 
| O | START+2*, EOJ+1!, GETPRC+1, GETPRC+9, INF+1 | 
| U | GETPRC+1, GETPRC+2, GETPRC+3, GETPRC+4, GETPRC+9, GETPRC+11, INF+1 | 
| X | EOJ+1!, GETPRC+14* | 
| Y | EOJ+1! |