Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BDGICR2

Package: IHS Changes To ADT

Routine: BDGICR2


Information

BDGICR2 ; IHS/ANMC/LJF - INCOMPLETE CHART BY PROVIDER ; [ 01/06/2005 11:37 AM ]

Source Information

Source file <BDGICR2.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To ADT 2 BDGICR21  BDGICS5  

Entry Points

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 ; 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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,BDGLN
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,BDGTIME,?16,$$CONF^BDGF,?76,BDGUSR
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGDATE,?24,"Incomplete Charts by Provider",?71,"Page: ",BDGPG
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !?(80-$L(X)\2),X
  • Line Location: HDG+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+8
Function Call: WRITE
  • Prompt: !?2,"Patient",?22,"HRCN",?30,"Date",?40,"Type",?50,"Deficiencies"
  • Line Location: HDG+9
Function Call: WRITE
  • Prompt: ?72,"Days"
  • Line Location: HDG+10
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+11
Routine Call
  • VALM
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db 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

Global Variables Directly Accessed

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!

Label References

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
PRINT 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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(@I SUMM+7, SUMM+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All