©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
BDGPCCE1 ; IHS/ANMC/LJF - BUILD DISPLAY SCREENS FOR CODE ; [ 06/19/2002 11:37 AM ]
Source file <BDGPCCE1.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| Kernel | 1 | $$REPEAT^XLFSTR |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET(DATA,NUM) | ; puts display data into array
|
|
| POV | ; build diagnosis display
|
|
| PROV | ; build display of providers
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| ADMIT | ; build display of admit data
|
|
| OTHER | ; build display of all other PCC data for patient's visit
|
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
| OP | ; build list of procedures
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | ADMIT+9, ADMIT+10, ADMIT+13, ADMIT+14, ADMIT+17, ADMIT+18, ADMIT+19, ADMIT+20, ADMIT+21, ADMIT+22 , ADMIT+25, ADMIT+26, ADMIT+27, ADMIT+30, ADMIT+31, ADMIT+32, ADMIT+33, ADMIT+37, ADMIT+40, ADMIT+43 , ADMIT+46, ADMIT+48, ADMIT+51, POV+7, POV+8, POV+9, POV+12, POV+14, POV+18, POV+19 , POV+21, OP+7, OP+8, OP+10, OP+13, OP+15, OP+16, OP+18, OP+21, OP+22 , OP+24, OP+29, OP+30, OP+34, OP+36, OP+37, PROV+7, PROV+8, PROV+9, PROV+10 , OTHER+13, OTHER+17, OTHER+18, OTHER+20, OTHER+23 |
| $$ICDDX^ICDCODE | ADMIT+43, OP+26 |
| $$REPEAT^XLFSTR | PAD+2 |
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | GET1^DIQ |
| ^DG(405.1 - [#405.1] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| ^AUPNVINP - [#9000010.02] | GET1^DIQ |
| ^AUPNVPRV - [#9000010.06] | GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | GET1^DIQ |
| ^AUPNVPRC - [#9000010.08] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVINP("AD" | ADMIT+2 |
| ^AUPNVPOV("AD" | POV+2, POV+6 |
| ^AUPNVPRC("AD" | OP+2, OP+6 |
| ^AUPNVPRV("AD" | PROV+2, PROV+6 |
| ^DGPM("AVISIT" | ADMIT+36 |
| ^DIC - [#1] | OTHER+3, OTHER+6, OTHER+8 |
| ^ICD - [#80.2] | ADMIT+48 |
| ^TMP("BDGPCCE" | SET+2* |
| Name | Line Occurrences |
|---|---|
| $$PAD | ADMIT+6, ADMIT+9, ADMIT+13, ADMIT+19, ADMIT+27, ADMIT+32, POV+8, POV+16, POV+19, OP+7 , OP+9, OP+17, OP+27, OP+31, OP+37, PROV+7, PROV+11, SP+1 |
| $$SP | ADMIT+40, ADMIT+46, ADMIT+51, POV+12, POV+16, POV+19, POV+21, OP+13, OP+16, OP+26 , OTHER+17, OTHER+23 |
| ADMIT | BDGPCCE1+7 |
| OP | BDGPCCE1+7 |
| OTHER | BDGPCCE1+7 |
| POV | BDGPCCE1+7 |
| PROV | BDGPCCE1+7 |
| SET | ADMIT+3, ADMIT+5, ADMIT+7, ADMIT+11, ADMIT+15, ADMIT+23, ADMIT+28, ADMIT+34, ADMIT+38, ADMIT+44 , ADMIT+49, ADMIT+52, ADMIT+53, POV+3, POV+5, POV+10, POV+12, POV+16, POV+20, POV+21 , POV+23, OP+4, OP+11, OP+13, OP+19, OP+27, OP+32, OP+38, OP+40, PROV+3 , PROV+5, PROV+12, OTHER+10, OTHER+21, OTHER+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BDGV | ADMIT+2, ADMIT+9, ADMIT+36, ADMIT+46, ADMIT+48, POV+2, POV+6, OP+2, OP+6, PROV+2 , PROV+6, OTHER+10, OTHER+12 |
| D | PAD~, PAD+2 |
| DATA | SET~, SET+2 |
| FILE | OTHER+1~, OTHER+2*, OTHER+3*, OTHER+4, OTHER+5, OTHER+6, OTHER+8, OTHER+13, OTHER+17, OTHER+18 , OTHER+20, OTHER+23 |
| GLOBAL | OTHER+1~, OTHER+6*, OTHER+7*, OTHER+10, OTHER+12 |
| IEN | POV+1~, POV+6*, POV+7, POV+8, POV+9, POV+12, POV+14, POV+18, POV+19, POV+21 , OP+1~, OP+6*, OP+7, OP+8, OP+10, OP+13, OP+15, OP+16, OP+18, OP+21 , OP+22, OP+24, OP+29, OP+30, OP+34, OP+36, OP+37, PROV+1~, PROV+6*, PROV+7 , PROV+8, PROV+9, PROV+10, OTHER+1~, OTHER+12*, OTHER+13, OTHER+17, OTHER+18, OTHER+20, OTHER+23 |
| >> IORVOFF | BDGPCCE1+6*, ADMIT+5, POV+5, OP+4, PROV+5, OTHER+10 |
| >> IORVON | BDGPCCE1+6*, ADMIT+5, POV+5, OP+4, PROV+5, OTHER+10 |
| >> IOUOFF | BDGPCCE1+6*, ADMIT+6 |
| >> IOUON | BDGPCCE1+6*, ADMIT+6 |
| L | PAD~, PAD+2 |
| LINE | ADMIT+1~, ADMIT+6*, ADMIT+7, ADMIT+9*, ADMIT+10*, ADMIT+11, ADMIT+13*, ADMIT+14*, ADMIT+15, ADMIT+17* , ADMIT+19*, ADMIT+20*, ADMIT+22*, ADMIT+23, ADMIT+25*, ADMIT+26*, ADMIT+27*, ADMIT+28, ADMIT+30*, ADMIT+31* , ADMIT+32*, ADMIT+33*, ADMIT+34, ADMIT+36*, ADMIT+37*, ADMIT+38, ADMIT+40*, ADMIT+41*, ADMIT+43*, ADMIT+44 , ADMIT+46*, ADMIT+47*, ADMIT+48*, ADMIT+49, ADMIT+51*, ADMIT+52, POV+1~, POV+7*, POV+8*, POV+9* , POV+10, POV+19*, POV+20, OP+1~, OP+7*, OP+9*, OP+10*, OP+11, OP+15*, OP+16* , OP+17*, OP+18*, OP+19, OP+21*, OP+27, OP+29*, OP+31*, OP+32, OP+36*, OP+37* , OP+38, PROV+1~, PROV+7*, PROV+8*, PROV+11*, PROV+12, OTHER+1~, OTHER+13*, OTHER+17*, OTHER+19* , OTHER+20*, OTHER+21, OTHER+23*, OTHER+24 |
| N | SP~, SP+1 |
| NAME | OTHER+1~, OTHER+8*, OTHER+10, OTHER+16 |
| NUM | SET~, SET+1*, SET+2 |
| U | ADMIT+43, OP+26, OTHER+8 |
| >> VALMCNT | ADMIT+3, ADMIT+5, ADMIT+7, ADMIT+11, ADMIT+15, ADMIT+23, ADMIT+28, ADMIT+34, ADMIT+38, ADMIT+44 , ADMIT+49, ADMIT+52, ADMIT+53, POV+3, POV+5, POV+10, POV+12, POV+16, POV+20, POV+21 , POV+23, OP+4, OP+11, OP+13, OP+19, OP+27, OP+32, OP+38, OP+40, PROV+3 , PROV+5, PROV+12, OTHER+10, OTHER+21, OTHER+24 |
| VH | ADMIT+1~, ADMIT+2*, ADMIT+10, ADMIT+13, ADMIT+14, ADMIT+17, ADMIT+18, ADMIT+20, ADMIT+21, ADMIT+25 , ADMIT+26, ADMIT+27, ADMIT+30, ADMIT+31, ADMIT+32, ADMIT+33, ADMIT+40, ADMIT+43, ADMIT+51 |
| X | ADMIT+18*, ADMIT+19, ADMIT+21*, ADMIT+22, ADMIT+36*, ADMIT+37, POV+1~, POV+14*, POV+15, POV+16 , POV+18*, POV+19, OP+1~, OP+8*, OP+9, OP+22*, OP+23, OP+26*, OP+27, OP+30* , OP+31, OP+34*, OP+35, PROV+1~, PROV+9*, PROV+11, OTHER+1~, OTHER+18*, OTHER+19 |
| Y | POV+1~, POV+14*, POV+15, POV+16, OP+1~, OP+24*, OP+26, PROV+1~, PROV+10*, PROV+11 , OTHER+1~ |