BDGICS5 ; IHS/ANMC/LJF - INCOMPLETE STATS BY PROVIDER ;
Source file <BDGICS5.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 3 | ^%ZISC $$REPEAT^XLFSTR DISP^XQORM1 |
Registration | 3 | EN^VALM TERM^VALM0 CLEAR^VALM1 |
IHS Changes To ADT | 2 | ($$BROWSE,$$CONF,$$NUMDATE,$$RANGE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF $$PROVS^BDGICR2 |
VA Fileman | 2 | ^%DT $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
SET(DATA,NUM) | ; puts display line into list template array
|
|
EN | ; -- main entry point for BDG IC CHARTS BY PATIENT
|
|
HELP | ; -- help code
|
|
PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
EXPND | ; -- expand code
|
|
HDG | ; heading for paper report
|
|
INIT | ; -- init variables and list array
|
|
EXIT | ; -- exit code
|
|
; print report to paper
|
||
FIND | ; find all entries for date range
|
|
HDR | ; -- header code
|
Name | Field # of Occurrence |
---|---|
^%DT | INIT+44 |
^%ZISC | PRINT+10 |
$$BROWSE^BDGF | BDGICS5+17 |
$$CONF^BDGF | HDR+2, HDG+3 |
$$NUMDATE^BDGF | INIT+28 |
$$RANGE^BDGF | HDR+5, HDG+7 |
$$READ^BDGF | BDGICS5+6, BDGICS5+8, BDGICS5+9, BDGICS5+11, BDGICS5+15 |
INIT^BDGF | PRINT+2 |
MSG^BDGF | INIT+1 |
PRTKL^BDGF | PRINT+10 |
ZIS^BDGF | BDGICS5+18 |
$$PROVS^BDGICR2 | BDGICS5+13 |
$$GET1^DIQ | INIT+26, INIT+27, INIT+30, INIT+31, INIT+39, INIT+42, INIT+43, INIT+45, FIND+7, FIND+8 , FIND+12, FIND+14, FIND+15, FIND+16, FIND+19, FIND+20, FIND+21 |
EN^VALM | EN+3 |
TERM^VALM0 | EN+2 |
CLEAR^VALM1 | EN+2, EN+4 |
$$REPEAT^XLFSTR | 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 |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^BDGIC - [#9009016.1] | GET1^DIQ |
9009016.11 | GET1^DIQ |
^BDGCD - [#9009016.4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BDGIC - [#9009016.1] | FIND+4, FIND+5, FIND+11 |
^TMP("BDGICS5" | INIT+2!, INIT+60, SET+2*, EXIT+1!, PRINT+6, PRINT+8 |
^TMP("BDGICS5A" | INIT+2!, INIT+13, INIT+19, INIT+20, INIT+21, INIT+22, INIT+61!, FIND+23* |
Name | Line Occurrences |
---|---|
$$PAD | INIT+26, INIT+28, INIT+29, INIT+30, INIT+31, INIT+53, INIT+55, INIT+57, INIT+58, SP+1 |
$$SP | HDR+2, HDR+4, HDR+5, INIT+16, INIT+55, INIT+58 |
EN | BDGICS5+17 |
EXIT | PRINT+10 |
FIND | INIT+8 |
HDG | PRINT+3, PRINT+7 |
INIT | EN+1 |
EN+1 | |
SET | INIT+15, INIT+16, INIT+32, INIT+52, INIT+53, INIT+55, INIT+56, INIT+57, INIT+58, INIT+60 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %DT | INIT+44* |
BDGBD | BDGICS5+4~, BDGICS5+8*, HDR+5, INIT+7, FIND+3, HDG+7 |
BDGCNT | INIT+11~, INIT+17! |
BDGCNT("DELQ" | INIT+47*, INIT+48*, INIT+57, INIT+58 |
BDGCNT("TOTAL" | INIT+38*, INIT+40*, INIT+53, INIT+54, INIT+55 |
>> BDGDATE | HDG+4 |
BDGED | BDGICS5+4~, BDGICS5+9*, HDR+5, INIT+7, FIND+3, HDG+7 |
BDGLN | PRINT+1~, PRINT+8*, PRINT+9 |
BDGPG | PRINT+1~, HDG+2*, HDG+4 |
BDGPRT | EN+1*, INIT+1, EXIT+1! |
BDGPRV | BDGICS5+4~, BDGICS5+11*, BDGICS5+12*, BDGICS5+13*, FIND+15, FIND+16, FIND+17 |
BDGPRV( | FIND+15, FIND+16, FIND+17 |
BDGPRV(0 | BDGICS5+13 |
BDGRPT | BDGICS5+4~, BDGICS5+6*, INIT+25, INIT+34, INIT+50, HDG+9 |
BDGSRT | BDGICS5+4~, BDGICS5+15*, HDR+3, FIND+8, FIND+22, HDG+5 |
>> BDGTIME | HDG+6 |
>> BDGUSR | HDG+3 |
BDGX | PRINT+1~, PRINT+6*, PRINT+8 |
D | PAD~, PAD+2 |
DATA | SET~, SET+2 |
DATE | INIT+6~, INIT+7*, FIND+1~, FIND+3*, FIND+4*, FIND+5, FIND+23 |
DEF | FIND+1~, FIND+20*, FIND+22, FIND+23 |
DEF1 | FIND+1~ |
DEFAULT | BDGICS5+4~ |
>> DEFI | FIND+21*, FIND+23 |
DELQ | INIT+37~, INIT+43*, INIT+44*, INIT+46 |
DT | INIT+45 |
END | INIT+6~, INIT+7*, FIND+1~, FIND+3*, FIND+4 |
FIRST | INIT+11~, INIT+12*, INIT+14* |
IEN | INIT+11~, INIT+20*, INIT+21, INIT+22, INIT+26, INIT+27, INIT+30, INIT+31, INIT+39, INIT+43 , INIT+45, FIND+1~, FIND+5*, FIND+7, FIND+8, FIND+11, FIND+12, FIND+14, FIND+19, FIND+20 , FIND+21, FIND+23 |
IEN2 | INIT+11~, INIT+21*, INIT+22, INIT+30, INIT+31, INIT+43, INIT+45, FIND+1~, FIND+11*, FIND+12 , FIND+14, FIND+19, FIND+20, FIND+21, FIND+23 |
IO | PRINT+2 |
IOF | HDG+2 |
IOSL | PRINT+7 |
IOST | EN+1 |
L | PAD~, PAD+2 |
LINE | INIT+11~, INIT+26*, INIT+27*, INIT+28*, INIT+29*, INIT+30*, INIT+31*, INIT+32 |
N | SP~, SP+1 |
NAME | INIT+11~ |
NUM | SET~, SET+1*, SET+2 |
PROV | FIND+1~, FIND+14*, FIND+15, FIND+16, FIND+17, FIND+19*, FIND+23 |
PRV | INIT+11~, INIT+13*, INIT+16, INIT+19, INIT+20, INIT+21, INIT+22 |
RESV | INIT+37~, INIT+45*, INIT+46 |
SORT | INIT+11~, INIT+19*, INIT+20, INIT+21, INIT+22, FIND+1~, FIND+8*, FIND+22*, FIND+23 |
STR | INIT+11~, INIT+22*, INIT+28, INIT+29, INIT+42, INIT+48 |
SUB | FIND+1~, FIND+2*, FIND+4, FIND+5 |
U | BDGICS5+12, INIT+29, INIT+42, INIT+48, FIND+23 |
VALMCNT | EN+2~, INIT+3*, INIT+15, INIT+16, INIT+32, INIT+52, INIT+53, INIT+55, INIT+56, INIT+57 , INIT+58, INIT+60 |
>> VALMHDR(1 | HDR+2* |
>> VALMHDR(2 | HDR+4* |
>> VALMHDR(3 | HDR+5* |
X | HDR+1~, HDR+3*, HDR+4, HDR+5*, INIT+37~, INIT+39*, INIT+40, INIT+44*, INIT+55*, INIT+58* , FIND+8*, HELP+1*, HDG+1~, HDG+5*, HDG+6, HDG+7* |
>> Y | INIT+44 |