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

Package: IHS Changes To ADT

Routine: BDGICR1


Information

BDGICR1 ; IHS/ANMC/LJF - INCOMPLETE CHART BY PATIENT ; [ 08/20/2004 11:45 AM ]

Source Information

Source file <BDGICR1.m>

Call Graph

Call Graph Total: 10

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,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF  $$HRCNT^BDGF2  
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
SELECT() ; ask user to choose selected charts
EN ; -- main entry point for BDG IC CHARTS BY PATIENT
HDR ; -- header code
SRV(IEN) ; returns service
SP(N) ; -- SUBRTN to pad N number of spaces
WRD(IEN) ; returns ds type or ward
FIND(SUB,OBS) ; find all inpatient entries for date range
; SUB=subscript depending on visit type
; OBS=1 if looking for observation patients; optional ;IHS/ITSC/LJF 8/9/2004 PATCH #1001
EXPND ; -- expand code
CHOICE ;;
HDG ; heading for paper report
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
INIT ; -- init variables and list array
EXIT ; -- exit code
PRINT ; print report to paper
CODE(IEN,NUM) ; returns ready to code date and date coded
; NUM=1 for ready to code; =2 for date coded
DATES(IEN,NUM) ; return dates for entry
; NUM=1 for visit date, =2 for discharge date
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+10
$$BROWSE^BDGF BDGICR1+35
$$CONF^BDGF HDR+2, HDG+2
$$NUMDATE^BDGF DATES+3, DATES+5, CODE+3, CODE+4
$$READ^BDGF BDGICR1+10, BDGICR1+14, BDGICR1+16, BDGICR1+28, BDGICR1+32, BDGICR1+33, SELECT+4
INIT^BDGF PRINT+2
MSG^BDGF INIT+1
PRTKL^BDGF PRINT+10
ZIS^BDGF BDGICR1+40
$$HRCNT^BDGF2 FIND+27
$$GET1^DIQ INIT+20, INIT+21, INIT+25, INIT+32, INIT+38, INIT+39, INIT+40, INIT+41, INIT+45, INIT+49
, INIT+50, FIND+8, FIND+24, FIND+25, DATES+3, DATES+4, DATES+5, WRD+2, WRD+7, WRD+9
, SRV+1, CODE+3, CODE+4
EN^VALM EN+3
TERM^VALM0 EN+2
CLEAR^VALM1 EN+2, EN+4
ENP^XBDIQ1 FIND+11
$$REPEAT^XLFSTR HDG+13, HDG+16, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
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 by Patient",?70,"Page: ",BDGPG
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,BDGTIME,?(80-$L(X)\2),X
  • Line Location: HDG+10
Function Call: WRITE
  • Prompt: !,?(80-$L(BDGDTS)\2),BDGDTS
  • Line Location: HDG+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+13
Function Call: WRITE
  • Prompt: !?2,"Patient",?23,"HRCN",?30,"Admt/Dsch",?45,"Ward/Srv",?60
  • Line Location: HDG+14
Function Call: WRITE
  • Prompt: "Ready/Coded",?81,"Insurance/Unresolved Deficiencies & Comments"
  • Line Location: HDG+15
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELECT+2
Routine Call
  • VALM
  • Line Location:
    • EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^DIC(45.7 - [#45.7] GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^BDGIC - [#9009016.1] GET1^DIQ
9009016.11 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGIC - [#9009016.1] INIT+36, INIT+37, FIND+5, FIND+6
^DGPM("AVISIT" WRD+8
^TMP("BDGICR1" INIT+2!, INIT+69, SET+2*, EXIT+1!, PRINT+6, PRINT+8
^TMP("BDGICR1A" INIT+2!, INIT+16, INIT+17, INIT+70!, FIND+29*

Label References

Name Line Occurrences
$$CODE INIT+24, INIT+31
$$DATES INIT+22, INIT+29
$$PAD INIT+20, INIT+22, INIT+23, INIT+24, INIT+25, INIT+30, INIT+31, INIT+32, INIT+41, INIT+42
, INIT+63, INIT+66, SP+1
$$SELECT BDGICR1+23
$$SP HDR+2, HDR+9, HDR+11, INIT+29, INIT+40, INIT+62, INIT+63, INIT+66
$$SRV INIT+30
$$WRD INIT+23
EN BDGICR1+35
EXIT PRINT+10
FIND INIT+9, INIT+10
HDG PRINT+3, PRINT+7
INIT EN+1
PRINT EN+1
SET INIT+26, INIT+33, INIT+42, INIT+54, INIT+59, INIT+60, INIT+61, INIT+62, INIT+63, INIT+65
, INIT+66, INIT+69

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY SELECT+1~, SELECT+4
ARRAY( SELECT+3*
BDGBD BDGICR1+7~, BDGICR1+14*, BDGICR1+15, BDGICR1+19, INIT+7, FIND+4
BDGCNT INIT+6~, INIT+58, INIT+59, FIND+30*
>> BDGDATE HDG+3
BDGDEF BDGICR1+31~, BDGICR1+32*, INIT+45, INIT+60
BDGDEF( INIT+45*, INIT+63
BDGDEF(0 INIT+62
>> BDGDTS BDGICR1+19*, BDGICR1+20*, HDR+11, HDG+12
BDGED BDGICR1+7~, BDGICR1+16*, BDGICR1+17, BDGICR1+20, INIT+7, FIND+4
BDGLN PRINT+1~, PRINT+8*, PRINT+9
BDGPG PRINT+1~, HDG+1*, HDG+3
BDGPRT EN+1*, INIT+1, EXIT+1!
BDGRTC BDGICR1+31~, BDGICR1+33*, INIT+48, INIT+64
BDGRTC( INIT+66
BDGRTC("CODED" INIT+49*
BDGRTC("NOT R EADY" , INIT+51*
BDGRTC("READY TO CODE" , INIT+50*
BDGSEL BDGICR1+7~, BDGICR1+23*, FIND+13, FIND+14, FIND+15, FIND+16, FIND+17, FIND+18, FIND+19
BDGSRT BDGICR1+7~, BDGICR1+28*, FIND+24, FIND+25, FIND+27
>> BDGTIME HDG+10
BDGTYP BDGICR1+7~, BDGICR1+10*, BDGICR1+13, BDGICR1+27, HDR+6, INIT+9, INIT+10, FIND+24, FIND+25, HDG+7
>> BDGUSR HDG+2
BDGX PRINT+1~, PRINT+6*, PRINT+8
CA WRD+1~
D PAD~, PAD+2
DATA FIND+11!, SET~, SET+2
DATA( FIND+12, FIND+13, FIND+14, FIND+15, FIND+16, FIND+17, FIND+18, FIND+19
DATE INIT+6~, INIT+7*, FIND+3~, FIND+4*, FIND+5*, FIND+6, WRD+1~
DEFAULT BDGICR1+7~, BDGICR1+13*, BDGICR1+14, BDGICR1+16
END INIT+6~, INIT+7*, FIND+3~, FIND+4*, FIND+5
I INIT+66*, SELECT+1~, SELECT+3*
IEN INIT+14~, INIT+17*, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+29, INIT+30
, INIT+31, INIT+32, INIT+36, INIT+37, INIT+38, INIT+39, INIT+41, INIT+45, INIT+49, INIT+50
, FIND+3~, FIND+6*, FIND+8, FIND+11, FIND+24, FIND+29, DATES~, DATES+3, DATES+4, WRD~
, WRD+2, WRD+7, SRV~, SRV+1, CODE~, CODE+3, CODE+4
IEN2 INIT+14~, INIT+37*, INIT+38, INIT+39, INIT+41, INIT+45
IO PRINT+2
IOF HDG+1
IOSL PRINT+7
IOST EN+1
L PAD~, PAD+2
LINE INIT+14~, INIT+20*, INIT+21*, INIT+22*, INIT+23*, INIT+24*, INIT+25*, INIT+26, INIT+29*, INIT+30*
, INIT+31*, INIT+32*, INIT+33, INIT+40*, INIT+41*, INIT+42
N SP~, SP+1
NAME INIT+14~
NUM DATES~, DATES+3, CODE~, CODE+3, SET~, SET+1*, SET+2
OBS FIND~, FIND+8
PAT WRD+1~
PRV INIT+14~, INIT+36*, INIT+37, INIT+40
SORT INIT+14~, INIT+15*, INIT+16*, INIT+17, FIND+3~, FIND+24*, FIND+25*, FIND+27*, FIND+29
SUB FIND~, FIND+5, FIND+6
TYPE WRD+1~, WRD+2*, WRD+4
U BDGICR1+23, BDGICR1+32, BDGICR1+33
>> V WRD+7*, WRD+8
VALMCNT EN+2~, INIT+3*, INIT+26, INIT+33, INIT+42, INIT+54, INIT+59, INIT+60, INIT+61, INIT+62
, INIT+63, INIT+65, INIT+66, INIT+69
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+9*
>> VALMHDR(3 HDR+11*
X BDGICR1+27*, BDGICR1+28, HDR+1~, HDR+6*, HDR+8*, HDR+9, INIT+45*, INIT+63*, DATES+2~, DATES+4*
, DATES+5, WRD+1~, WRD+8*, WRD+9, CODE+2~, HELP+1*, HDG+7~*, HDG+9*, HDG+10
Y CODE+2~, SELECT+1~, SELECT+4*, SELECT+5

Marked Items

Name Field # of Occurrence
$T(CHOICE+BDGSEL HDR+8, HDG+9
$T(CHOICE+I SELECT+3
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