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

Package: IHS Changes To ADT

Routine: BDGICS4


Information

BDGICS4 ; IHS/ANMC/LJF - WORKLOAD-COMPLETION TIMES ;

Source Information

Source file <BDGICS4.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 3 ^%ZISC  $$REPEAT^XLFSTR  DISP^XQORM1  
Registration 3 EN^VALM  TERM^VALM0  CLEAR^VALM1  
IHS Changes To ADT 2 ($$CONF,$$NUMDATE,$$RANGE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF  $$HRCNT^BDGF2  
IHS Changes To Scheduling 1 $$DIV^BSDU  
IHS VA Utilities 1 ENP^XBDIQ1  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
SET(DATA,NUM) ; puts display line into list template array
EN ; -- main entry point for BDG IC WORKLOAD STATS
DAYS(NUM,IEN,BEGIN) ; return # days for this stage of completion
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
FIND(SUB,OBS) ; find all entries for date range;IHS/OIT/LJF 04/14/2006 PATCH 1005 added OBS
; SUB=subscript depending on visit type
; OBS=1 if SUB ="AD" but only observations are needed;IHS/OIT/LJF 04/14/2006 PATCH 1005
EXPND ; -- expand code
TOTALS ; display totals and averages
HDG ; heading for paper report
PRINT ; print report to paper
INIT ; -- init variables and list array
EXIT ; -- exit code
FIELDS ;;
STATUS(IEN) ; calculate entry's completion status
; Status: 1=newly incomplete, 2=chart recvd, 3=chart tagged
; 4=insurance identified, 5=ready to code, 6=coded, 7=completed
; 8=bill prepped (only used if track bill prep turned on
DATES(IEN) ; return dates for entry
STATNM ;;
IDATES(IEN,NUM) ; return dates for entry in internal format
; NUM=1 for visit date, =2 for discharge date
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+10
$$CONF^BDGF HDG+2
$$NUMDATE^BDGF IDATES+3, IDATES+6
$$RANGE^BDGF HDR+8
$$READ^BDGF BDGICS4+8, BDGICS4+11, BDGICS4+13, BDGICS4+15
INIT^BDGF PRINT+2
MSG^BDGF INIT+1
PRTKL^BDGF PRINT+10
ZIS^BDGF BDGICS4+18
$$HRCNT^BDGF2 FIND+18
$$DIV^BSDU INIT+8
$$GET1^DIQ INIT+8, INIT+26, INIT+27, FIND+7, FIND+10, FIND+11, FIND+17, DATES+1, IDATES+3, IDATES+5
, IDATES+6, DAYS+3
EN^VALM EN+3
TERM^VALM0 EN+2
CLEAR^VALM1 EN+2, EN+4
ENP^XBDIQ1 STATUS+6
$$REPEAT^XLFSTR TOTALS+2, HDG+10, HDG+14, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"If printing to paper, please use wide paper or condensed print"
  • Line Location: BDGICS4+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,BDGLN
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,BDGUSR,?11,"*****",$$CONF^BDGF,"*****"
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGDATE,?25,"Incomplete Charts Workload Report",?70,"Page: ",BDGPG
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,BDGTIME,?(80-$L(X)\2),X
  • Line Location: HDG+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+10
Function Call: WRITE
  • Prompt: !,?50,"# of Days Until ..."
  • Line Location: HDG+11
Function Call: WRITE
  • Prompt: !?2,"Patient",?23,"HRCN",?30,"Dsch/Surg",?44,"Rcvd",?51,"Taggd"
  • Line Location: HDG+12
Function Call: WRITE
  • Prompt: ?59,"Insur",?67,"Ready",?75,"Coded",?82,"Complt",?90,"Bill Prep"
  • Line Location: HDG+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+14
Routine Call
  • VALM
  • Line Location:
    • EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] GET1^DIQ
^BDGIC - [#9009016.1] GET1^DIQ
^BDGPAR - [#9009020.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGIC - [#9009016.1] FIND+5, FIND+6
^TMP("BDGICS4" INIT+2!, INIT+43, SET+2*, EXIT+1!, PRINT+6, PRINT+8
^TMP("BDGICS4A" INIT+2!, INIT+20, INIT+21, INIT+23, INIT+44!, FIND+20*

Label References

Name Line Occurrences
$$DATES INIT+28
$$DAYS INIT+35
$$IDATES INIT+33
$$PAD INIT+26, INIT+28, INIT+29, TOTALS+5, TOTALS+8, TOTALS+15, TOTALS+19, TOTALS+23, SP+1
$$SP HDR+7, HDR+9, HDR+10, INIT+36, TOTALS+5, TOTALS+7, TOTALS+15, TOTALS+19, TOTALS+23
EXIT PRINT+10
FIND INIT+14, INIT+15
HDG PRINT+3, PRINT+7
INIT EN+1
PRINT EN+1
SET INIT+39, INIT+43, TOTALS+2, TOTALS+9, TOTALS+16, TOTALS+20, TOTALS+24
STATUS FIND+14
TOTALS INIT+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BDG1 INIT+33*, INIT+35
BDGBD BDGICS4+4~, BDGICS4+11*, BDGICS4+12, HDR+8, INIT+9, FIND+4
BDGCNT INIT+4~, INIT+7~, FIND+21*
BDGCNT( FIND+21*, TOTALS+14, TOTALS+18, TOTALS+19
BDGCNT(7 TOTALS+22
BDGCNT(8 TOTALS+22
>> BDGDATE HDG+3
BDGED BDGICS4+4~, BDGICS4+13*, HDR+8, INIT+9, FIND+4
BDGI INIT+18~, INIT+34*, INIT+35, INIT+37
BDGLN PRINT+1~, PRINT+8*, PRINT+9
BDGNUM INIT+4~
BDGNUM( INIT+37*, TOTALS+8
BDGPG PRINT+1~, HDG+1*, HDG+3
BDGPRT EN+1*, INIT+1, EXIT+1!
BDGSRT BDGICS4+4~, BDGICS4+15*, FIND+17, FIND+18
BDGTBP INIT+7~, INIT+8*, STATUS+9
>> BDGTIME HDG+9
BDGTOT INIT+4~
BDGTOT( INIT+37*, TOTALS+7, TOTALS+8
BDGTYP BDGICS4+4~, BDGICS4+8*, BDGICS4+10, HDR+5, INIT+14, INIT+15, HDG+7
>> BDGUSR HDG+2
BDGX PRINT+1~, PRINT+6*, PRINT+8
BEGIN DAYS~
D PAD~, PAD+2
DATA STATUS+5~, SET~, SET+2
DATA( STATUS+8, STATUS+9, STATUS+11, STATUS+12, STATUS+13, STATUS+14, STATUS+15
DATE INIT+7~, INIT+9*, FIND+3~, FIND+4*, FIND+5*, FIND+6
DAYS DAYS+1~
END INIT+7~, INIT+9*, FIND+3~, FIND+4*, FIND+5
FIELD DAYS+1~, DAYS+2*, DAYS+3
I TOTALS+1~, TOTALS+6*, TOTALS+7, TOTALS+8, TOTALS+12*, TOTALS+13, TOTALS+18, TOTALS+19
IEN INIT+18~, INIT+21*, INIT+23, INIT+26, INIT+27, INIT+28, INIT+33, INIT+35, FIND+3~, FIND+6*
, FIND+7, FIND+10, FIND+11, FIND+14, FIND+17, FIND+20, STATUS~, STATUS+6, DATES~, DATES+1
, IDATES~, IDATES+3, IDATES+5, DAYS~, DAYS+3
IO PRINT+2
IOF HDG+1
IOSL PRINT+7
IOST EN+1
>> IOUOFF HDR+10
>> IOUON HDR+10
J TOTALS+1~, TOTALS+14*
L PAD~, PAD+2
LINE INIT+18~, INIT+26*, INIT+27*, INIT+28*, INIT+29*, INIT+36*, INIT+39, TOTALS+1~, TOTALS+5*, TOTALS+7*
, TOTALS+8*, TOTALS+9, TOTALS+15*, TOTALS+16, TOTALS+19*, TOTALS+20, TOTALS+23*, TOTALS+24
N SP~, SP+1
NAME INIT+18~
NUM IDATES~, IDATES+3, DAYS~, SET~, SET+1*, SET+2
OBS FIND~, FIND+10, FIND+11
PRV INIT+18~
SORT INIT+18~, INIT+19*, INIT+20*, INIT+21, INIT+23, FIND+17*, FIND+18*, FIND+20
STATUS INIT+18~, INIT+23*, FIND+3~, FIND+20, FIND+21, STATUS+7*, STATUS+9*, STATUS+11*, STATUS+12*, STATUS+13*
, STATUS+14*, STATUS+15*
SUB FIND~, FIND+5, FIND+6, FIND+10, FIND+11
TYPE BDGICS4+4~, BDGICS4+10*, BDGICS4+11, BDGICS4+13
VALMCNT EN+2~, INIT+3*, INIT+39, INIT+43, TOTALS+2, TOTALS+9, TOTALS+16, TOTALS+20, TOTALS+24
>> VALMHDR(1 HDR+7*
>> VALMHDR(2 HDR+9*
>> VALMHDR(3 HDR+10*
X HDR+1~, HDR+5*, HDR+7, HDR+8*, HDR+9, INIT+35*, INIT+36, INIT+37, IDATES+2~, IDATES+3*
, IDATES+4, IDATES+5*, IDATES+6, DAYS+1~, DAYS+3*, DAYS+4, TOTALS+1~, TOTALS+8*, TOTALS+14*, TOTALS+15
, TOTALS+22*, TOTALS+23, HELP+1*, HDG+7~*, HDG+9

Marked Items

Name Field # of Occurrence
$T(FIELDS+NUM DAYS+2
$T(STATNM+I TOTALS+19
Info |  Source |  Call 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