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 |