BDGICR2 ; IHS/ANMC/LJF - INCOMPLETE CHART BY PROVIDER ; [ 01/06/2005 11:37 AM ]
Source file <BDGICR2.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 4 | ^%ZISC ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1 |
Registration | 3 | EN^VALM TERM^VALM0 CLEAR^VALM1 |
IHS Changes To ADT | 1 | ($$BROWSE,$$CONF,$$NUMDATE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF |
IHS Changes To Scheduling | 1 | $$DIV^BSDU |
VA Fileman | 1 | $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
GROUP | ;; grouping names spelled out
|
|
HDR | ; -- header code
|
|
PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
SUM | ;;Discharge Summary
|
|
HDG | ; heading for paper report
|
|
EXPND | ; -- expand code
|
|
SIG | ;;Signature
|
|
; print report to paper
|
||
TYPE(IEN) | ; returns abbreviated visit type
|
|
HELP | ; -- help code
|
|
SET(DATA,NUM) | ; puts display line into list template array
|
|
DATE(IEN) | ; return dates for entry (external format)
|
|
INIT | ; -- init variables and list array
|
|
IDATE(IEN) | ; return dates for entry (internal format)
|
|
ASH | ;;A Sheet
|
|
CLASS | ; select providers by their provider class
|
|
EN | ;EP; -- main entry point for BDG IC CHARTS BY PROVIDER
|
|
PROVS() | ;EP select providers for report
; returns type of info in BDGPRV array ; also called by ^BDGICS5 ;IHS/OIT/LJF 04/06/2006 PATCH 1005 |
|
SRV | ; select providers by their hospital service designation
|
|
OKAY(PRV,IEN) | ;return 1 if provider has at least one deficiency to report ;IHS/ITSC/LJF 6/2/2005 PATCH 1003
|
|
NAME | ; select providers by name
|
|
OPR | ;;Operative Report
|
|
SUMM(NAME,PRV) | ; display subcount summary for provider
|
|
TOTALS | ; display report totals on summary page
|
|
GROUPING(X1,X2) | ; return internal form of chart deficiency grouping ;IHS/ITSC/LJF 6/2/2005 PATCH 1003
|
|
EXIT | ; -- exit code
|
Name | Field # of Occurrence |
---|---|
^%ZISC | PRINT+16 |
$$BROWSE^BDGF | BDGICR2+23 |
$$CONF^BDGF | HDG+2 |
$$NUMDATE^BDGF | INIT+54, DATE+4, DATE+5 |
$$READ^BDGF | BDGICR2+14, BDGICR2+19, BDGICR2+22, BDGICR2+25, PROVS+6, SRV+4, CLASS+4, NAME+4 |
INIT^BDGF | PRINT+6 |
MSG^BDGF | BDGICR2+18, INIT+1 |
PRTKL^BDGF | PRINT+17 |
ZIS^BDGF | BDGICR2+26 |
$$DIV^BSDU | BDGICR2+17, INIT+6, PROVS+8 |
$$GET1^DIQ | BDGICR2+17, INIT+6, INIT+11, INIT+12, INIT+15, INIT+16, INIT+21, INIT+23, INIT+50, INIT+51 , INIT+61, INIT+62, INIT+66, INIT+70, INIT+71, DATE+2, DATE+4, DATE+5, IDATE+2, IDATE+3 , IDATE+4, TYPE+2, GROUPING+1, OKAY+3, OKAY+4, PROVS+9 |
EN^VALM | EN+5 |
TERM^VALM0 | EN+4 |
CLEAR^VALM1 | EN+4, EN+6 |
$$FMADD^XLFDT | BDGICR2+17, INIT+6 |
$$FMDIFF^XLFDT | INIT+58 |
$$FMTE^XLFDT | BDGICR2+18 |
$$REPEAT^XLFSTR | TOTALS+11, TOTALS+23, TOTALS+43, HDG+7, HDG+8, HDG+11, PAD+2 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^BDGIC - [#9009016.1] | GET1^DIQ |
9009016.11 | GET1^DIQ |
^BDGCD - [#9009016.4] | GET1^DIQ |
^BDGPAR - [#9009020.1] | GET1^DIQ |
9009020.13 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BDGIC - [#9009016.1] | INIT+60, OKAY+2 |
^BDGIC("APRV" | INIT+10, INIT+14 |
^BDGPAR - [#9009020.1] | PROVS+9 |
^TMP("BDGICR2" | INIT+3!, INIT+79, SET+2*, EXIT+1!, PRINT+9, PRINT+10 |
^TMP("BDGICR2A" | INIT+3!, INIT+25*, INIT+29, INIT+30, INIT+39, INIT+41, INIT+80! |
Name | Line Occurrences |
---|---|
$$GROUPING | INIT+64, OKAY+5 |
$$OKAY | INIT+20 |
$$PAD | INIT+50, INIT+54, INIT+55, INIT+65, INIT+67, SUMM+7, SUMM+8, TOTALS+10, TOTALS+14, TOTALS+16 , TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20, TOTALS+27, TOTALS+30, TOTALS+32, TOTALS+34, TOTALS+36, TOTALS+38 , SP+1 |
$$PROVS | BDGICR2+21 |
$$SP | INIT+36, SUMM+4, SUMM+5, SUMM+7, SUMM+8, TOTALS+5, TOTALS+9 |
$$TYPE | INIT+55 |
@( | PROVS+10 |
EN | BDGICR2+23 |
EXIT | PRINT+17 |
HDG | PRINT+6, PRINT+11, PRINT+12 |
INIT | EN+3 |
EN+3 | |
SET | INIT+32, INIT+36, INIT+68, INIT+75, INIT+79, SUMM+4, SUMM+5, SUMM+9, SUMM+10, TOTALS+3 , TOTALS+5, TOTALS+6, TOTALS+9, TOTALS+11, TOTALS+21, TOTALS+23, TOTALS+42, TOTALS+43 |
SUMM | INIT+77 |
TOTALS | INIT+78 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BDGC | INIT+2~, INIT+38! |
BDGC( | INIT+38*, INIT+74*, SUMM+2, SUMM+6, SUMM+7, SUMM+8 |
BDGC("DQ" | INIT+46*, SUMM+4 |
BDGC("IC" | INIT+47*, SUMM+5 |
BDGCOP | BDGICR2+11~, BDGICR2+25*, PRINT+16 |
>> BDGDATE | HDG+3 |
BDGDELQ | INIT+2~, INIT+6*, INIT+46, INIT+65 |
BDGI | PRINT+1~ |
BDGLN | PRINT+1~, PRINT+10*, PRINT+11, PRINT+13 |
BDGPG | PRINT+1~, PRINT+6!, HDG+1*, HDG+3 |
>> BDGPRT | EN+3*, INIT+1, INIT+32, TOTALS+3 |
BDGPRV | BDGICR2+11~, BDGICR2+19*, BDGICR2+20*, BDGICR2+21*, INIT+11, INIT+12, INIT+13 |
BDGPRV( | INIT+11, INIT+12, INIT+13, PROVS+9*, SRV+5*, CLASS+5*, NAME+5* |
BDGPRV(0 | BDGICR2+21, SRV+3, CLASS+3, NAME+3 |
BDGPT | INIT+2~ |
BDGPT( | SUMM+2*, TOTALS+12, TOTALS+13, TOTALS+15, TOTALS+16, TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20 |
BDGRPT | BDGICR2+11~, BDGICR2+22*, INIT+32, INIT+36, INIT+68, INIT+75, INIT+78, SUMM+3, HDG+7 |
BDGT | INIT+2~ |
BDGT( | INIT+74* |
BDGT("ASH" | TOTALS+33 |
BDGT("DQ" | INIT+46*, TOTALS+31 |
BDGT("IC" | INIT+47*, TOTALS+29 |
BDGT("OPR" | TOTALS+35 |
BDGT("SIG" | TOTALS+39 |
BDGT("SUM" | TOTALS+37 |
>> BDGTIME | HDG+2 |
BDGTYP | BDGICR2+11~, BDGICR2+14*, BDGICR2+16, INIT+17, INIT+18, HDG+5 |
>> BDGUSR | HDG+2 |
BDGX | PRINT+1~, PRINT+9*, PRINT+10 |
CNT | TOTALS+28~, TOTALS+29*, TOTALS+30, TOTALS+31*, TOTALS+32, TOTALS+33*, TOTALS+34, TOTALS+35*, TOTALS+36, TOTALS+37* , TOTALS+38, TOTALS+39*, TOTALS+40 |
D | PAD~, PAD+2 |
DATA | SET~, SET+2 |
DATE | INIT+2~, INIT+23*, INIT+24*, INIT+25, INIT+39*, INIT+41, INIT+46, INIT+54, INIT+58, INIT+65 |
>> DAYS | INIT+58*, INIT+67 |
DEFAULT | BDGICR2+11~, BDGICR2+16*, BDGICR2+18 |
DT | BDGICR2+17, INIT+6, INIT+58 |
FAC | PROVS+8~*, PROVS+9 |
FIRST | INIT+27~, INIT+28*, INIT+32, INIT+33*, SUMM+1~, SUMM+6*, SUMM+7, SUMM+9* |
I | INIT+2~, INIT+38*, SUMM+1~, SUMM+2*, SUMM+6*, SUMM+7, SUMM+8 |
IEN | INIT+2~, INIT+14*, INIT+15, INIT+16, INIT+20, INIT+23, INIT+25, INIT+27~, INIT+40*, INIT+41* , INIT+46, INIT+47, INIT+50, INIT+51, INIT+55, INIT+60, INIT+61, INIT+62, INIT+64, INIT+66 , INIT+70, INIT+74, DATE~, DATE+2, DATE+4, DATE+5, IDATE~, IDATE+2, IDATE+3, IDATE+4 , TYPE~, TYPE+2, OKAY~, OKAY+2, OKAY+3, OKAY+4, OKAY+5 |
IO | PRINT+2 |
IOF | PRINT+5, HDG+1 |
>> IORVOFF | INIT+35, TOTALS+4 |
>> IORVON | INIT+35, TOTALS+4 |
IOSL | PRINT+12 |
IOST | BDGICR2+25 |
L | PAD~, PAD+2 |
LINE | INIT+27~, INIT+50*, INIT+51*, INIT+54*, INIT+55*, INIT+65*, INIT+66*, INIT+67*, INIT+68*, TOTALS+1~ , TOTALS+9*, TOTALS+10*, TOTALS+11, TOTALS+14*, TOTALS+15*, TOTALS+16*, TOTALS+17*, TOTALS+18*, TOTALS+19*, TOTALS+20* , TOTALS+21, TOTALS+27*, TOTALS+30*, TOTALS+32*, TOTALS+34*, TOTALS+36*, TOTALS+38*, TOTALS+40*, TOTALS+42 |
N | SP~, SP+1 |
NAME | INIT+2~, INIT+21*, INIT+24*, INIT+25, INIT+27~, INIT+28*, INIT+29*, INIT+30, INIT+35, INIT+39 , INIT+41, INIT+77, SUMM~, SUMM+2, TOTALS+1~, TOTALS+12*, TOTALS+13, TOTALS+14, TOTALS+15, TOTALS+16 , TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20 |
NUM | SET~, SET+1*, SET+2 |
P | INIT+60*, INIT+61, INIT+62, INIT+64, INIT+66, INIT+70, OKAY+1~, OKAY+2*, OKAY+3, OKAY+4 , OKAY+5 |
PAT | TOTALS+28~, TOTALS+29*, TOTALS+31*, TOTALS+33*, TOTALS+35*, TOTALS+37*, TOTALS+39* |
PRV | INIT+2~, INIT+10*, INIT+11, INIT+12, INIT+13, INIT+14, INIT+20, INIT+21, INIT+25, INIT+27~ , INIT+30*, INIT+39, INIT+41, INIT+60, INIT+77, OKAY~, OKAY+2, SUMM~, SUMM+2, TOTALS+1~ , TOTALS+13*, TOTALS+15, TOTALS+16, TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20 |
RESULT | OKAY+1~, OKAY+2*, OKAY+6*, OKAY+7 |
TYPE | DATE+1~, DATE+2*, DATE+3, DATE+4, IDATE+1~, IDATE+2*, IDATE+3, TYPE+1~, TYPE+2*, TYPE+4 |
U | BDGICR2+20, SRV+5, CLASS+5, NAME+5 |
VALMCNT | EN+4~, INIT+4*, INIT+32, INIT+36, INIT+68, INIT+75, INIT+79, SUMM+4, SUMM+5, SUMM+9 , SUMM+10, TOTALS+3, TOTALS+5, TOTALS+6, TOTALS+9, TOTALS+11, TOTALS+21, TOTALS+23, TOTALS+42, TOTALS+43 |
VTYP | INIT+2~, INIT+16*, INIT+17, INIT+18, INIT+23 |
WARD | PRINT+1~ |
X | BDGICR2+11~, BDGICR2+17*, BDGICR2+18, INIT+35*, INIT+36, INIT+70*, INIT+71, DATE+1~, IDATE+1~, SUMM+1~ , SUMM+7*, SUMM+8*, SUMM+9, TOTALS+4*, TOTALS+5, HELP+1*, HDG+5~*, HDG+6, PROVS+3~, PROVS+9* , PROVS+10*, PROVS+11, SRV+1~, SRV+3*, SRV+4, CLASS+1~, CLASS+3*, CLASS+4, NAME+1~, NAME+3* , NAME+4 |
X1 | GROUPING~, GROUPING+1 |
X2 | GROUPING~, GROUPING+1 |
Y | INIT+71*, INIT+74, PROVS+3~, PROVS+6*, PROVS+7, PROVS+10, SRV+1~, SRV+2*, SRV+4*, SRV+5 , CLASS+1~, CLASS+2*, CLASS+4*, CLASS+5, NAME+1~, NAME+2*, NAME+4*, NAME+5 |
Name | Field # of Occurrence |
---|---|
$T(@I | SUMM+7, SUMM+8 |