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

Package: IHS Changes To ADT

Routine: BDGICE2


Information

BDGICE2 ;IHS/OIT/LJF - NEW INCOMPLETE CHART EDIT OPTION

Source Information

Source file <BDGICE2.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DICN  $$GET1^DID  ^DIE  $$GET1^DIQ  
Registration 3 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  
IHS Changes To ADT 2 ($$READ,MSG,PAUSE)^BDGF  $$HRCN^BDGF2  
Kernel 2 $$REPEAT^XLFSTR  DISP^XQORM1  
IHS Changes To Scheduling 1 $$DIV^BSDU  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 BDGICE3  

Entry Points

Name Comments DBIA/ICR reference
HELP ;EP; -- help code
PAT ; ask user for patient
HDR ;EP; -- header code
PENDING(IEN) ; return 1 if chart has at least one pending deficiency
VDATE ; EP; fix visit link - called by BDG ICE FIX VISIT protocol
PAD(D,L) ; pad length of data
; -- D=data L=length
SP(N) ; pad N number of spaces
REBUILD ; EP; rebuild display
; Called by BDG ICE VIEW ALL and BDG ICE VIEW PENDING protocols
EXPND ; -- expand code
COMPLETE ; EP; mark chart as completed - called by BDG ICE COMPLETE protocol
COMMENT ; EP; edit comments - called by BDG ICE COMMENTS protocol
HAVEDEF(BDGN,PRV,DEF)
FIELDS ;;
DSOKAY() ; EP; does site use day surgery?
INIT ;EP; -- init variables and list array
ASK ; process IC entry selection
SET(DATA,COUNT) ; stuff data into display lie
EN ;EP; -- main entry point for BDG IC EDIT
; called with DFN and BDGN set
FINDDEF(BDGN,PRV) ; return BDGDEF array with current deficiencies for provider PRV
TDATES ; EP; edit tracking dates - called by BDG ICE DATES
ADD ; -- add new entry
LABEL(FIELD) ; returns field's title or label
ADDDEF ; EP; add chart deficiences - called by BDG ICE ADD DEF protocol
EXIT ;EP; -- exit code
ADDMORE(BDGN,PRV) ; add new deficiencies for provider
DELETE ; EP; delete chart - in as a mistake - called by BDG ICE DELETE protocol

External References

Name Field # of Occurrence
KILL^AUPNPAT PAT+1
$$READ^BDGF PAT+2, ASK+3, ADD+3, ADDDEF+7, ADDDEF+23, ADDDEF+28, ADDDEF+32, ADDMORE+7, ADDMORE+9, DELETE+2
MSG^BDGF TDATES+3, ADDDEF+3, ADDDEF+6, ADDDEF+15, ADDDEF+16, ADDDEF+18, ADDDEF+39, ADDMORE+2, ADDMORE+3, COMPLETE+3
PAUSE^BDGF TDATES+3, VDATE+9, ADDDEF+3, ADDMORE+2, COMPLETE+4
$$HRCN^BDGF2 HDR+2
$$DIV^BSDU INIT+16, TDATES+8, DSOKAY+1
^DIC ADDMORE+6
FILE^DICN ADD+8, ADDMORE+14
$$GET1^DID LABEL+2, LABEL+3
^DIE TDATES+6, TDATES+11, TDATES+13, VDATE+9, COMMENT+3, ADDDEF+34, ADDDEF+41, ADDMORE+16, COMPLETE+6, DELETE+4
$$GET1^DIQ PAT+16, PAT+18, PAT+19, PAT+20, PAT+21, ASK+6, HDR+2, HDR+3, HDR+6, HDR+7
, INIT+3, INIT+5, INIT+8, INIT+13, INIT+16, INIT+19, INIT+20, INIT+24, INIT+25, INIT+29
, INIT+39, INIT+40, INIT+42, INIT+43, INIT+45, INIT+46, INIT+49, TDATES+6, TDATES+8, TDATES+13
, VDATE+6, ADDDEF+15, FINDDEF+5, FINDDEF+6, FINDDEF+8, FINDDEF+9, ADDMORE+2, DELETE+2, DSOKAY+1, PENDING+4
, PENDING+5
EN^VALM EN+3
TERM^VALM0 EN+2, REBUILD+2
CLEAR^VALM1 EN+2, EN+4
FULL^VALM1 TDATES+1, VDATE+2, COMMENT+1, ADDDEF+2, COMPLETE+1, DELETE+1
$$REPEAT^XLFSTR INIT+35, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Incomplete Chart Entries for "_$$GET1^DIQ(2,DFN,.01)_":"
  • Line Location: PAT+16
Function Call: WRITE
  • Prompt: !,$J(I,3),?6,$$GET1^DIQ(9009016.1,BDGA(I),.02),$$GET1^DIQ(9009016.1,BDGA(I),.05)
  • Line Location: PAT+18
Function Call: WRITE
  • Prompt: ?30,$$GET1^DIQ(9009016.1,BDGA(I),.0392)
  • Line Location: PAT+19
Function Call: WRITE
  • Prompt: " **COMPLETED**"
  • Line Location: PAT+20
Function Call: WRITE
  • Prompt: " **DELETED**"
  • Line Location: PAT+21
Function Call: WRITE
  • Prompt: !,$J(I,3),?6,"ADD NEW ENTRY"
  • Line Location: PAT+22
Function Call: WRITE
  • Prompt: !!,"Only supervisors can access DELETED entries",!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?3,"Closing "_$E($P(BDGDEF(DA),U),5,40)
  • Line Location: ADDDEF+34
Routine Call
  • VALM
  • Line Location:
    • EN+3
Routine Call
  • DIE
  • Line Location:
    • TDATES+6
    • TDATES+11
    • TDATES+13
    • VDATE+9
    • COMMENT+3
    • ADDDEF+34
    • ADDDEF+41
    • ADDMORE+16
    • COMPLETE+6
    • DELETE+4
Routine Call
  • DIC
  • Line Location:
    • ADDMORE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^BDGIC - [#9009016.1] Classic Fileman Calls,  GET1^DID,  GET1^DIQ
9009016.11 GET1^DIQ
^BDGCD - [#9009016.4] Classic Fileman Calls
^BDGPAR - [#9009020.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGIC - [#9009016.1] INIT+37, TDATES+3, TDATES+15, ADDDEF+3, ADDDEF+42, FINDDEF+3, HAVEDEF+2, HAVEDEF+3, PENDING+2
^BDGIC("B" PAT+10
^DD(9009016.1 ADDMORE+12
^TMP("BDGICE" INIT+2!, SET+2*, EXIT+1!
^TMP("BDGICE2" INIT+33!, INIT+47*, INIT+49*, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+57, INIT+58
, EXIT+1!
^XUSEC("DGZICE" ASK+6

Label References

Name Line Occurrences
$$DSOKAY ASK+2, ADD+3
$$HAVEDEF ADDMORE+7
$$LABEL INIT+13, INIT+19, INIT+25, INIT+29
$$PAD HDR+2, HDR+3, HDR+7, INIT+4, INIT+7, INIT+13, INIT+19, INIT+20, INIT+25, INIT+29
, INIT+34, INIT+45, INIT+46, FINDDEF+8, FINDDEF+9, SP+1
$$PENDING COMPLETE+2
$$SP INIT+49, INIT+57, INIT+58, ADDDEF+15
ADD PAT+14, ASK+4
ADDMORE ADDDEF+13, ADDDEF+25
ASK PAT+23, ASK+6
EN PAT+24, ADD+12
FINDDEF ADDDEF+12
HDR REBUILD+3
INIT REBUILD+3
PAT PAT+14, PAT+23, PAT+24
REBUILD TDATES+3, TDATES+16, VDATE+9, COMMENT+3, ADDDEF+43, COMPLETE+6, DELETE+4
SET INIT+6, INIT+9, INIT+14, INIT+21, INIT+26, INIT+30, INIT+34, INIT+35, INIT+54, INIT+55
, INIT+57, INIT+58, INIT+59

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION ADDDEF+1~, ADDDEF+23, ADDDEF+26*, ADDDEF+28, ADDDEF+31
ACTION(1 ADDDEF+19*
ACTION(2 ADDDEF+20*
ACTION(3 ADDDEF+21*
ACTION(4 ADDDEF+22*
APCDOVRR ADD+5*, ADD+9!, VDATE+1~, VDATE+2*
BDGA PAT+8~, PAT+14
BDGA( PAT+11*, PAT+17, PAT+18, PAT+19, PAT+20, PAT+21, ASK+5
BDGDEF ADDDEF+1~, ADDDEF+12!, ADDDEF+13
BDGDEF( ADDDEF+16, ADDDEF+34, ADDDEF+39, ADDDEF+40, FINDDEF+10*
BDGDFALL PAT+5~*, INIT+39, INIT+40, INIT+57, INIT+58, EXIT+2!, FINDDEF+5, FINDDEF+6
BDGN PAT+8~, PAT+9*, PAT+10*, PAT+11, PAT+23, ASK+5*, ASK+6!, ADD+11*, HDR+3, HDR+6
, HDR+7, INIT+3, INIT+5, INIT+8, INIT+13, INIT+19, INIT+20, INIT+24, INIT+25, INIT+29
, INIT+37, INIT+38, EXIT+2!, TDATES+2, TDATES+3, TDATES+6, TDATES+13, TDATES+15, VDATE+3, VDATE+6
, COMMENT+2, ADDDEF+3, ADDDEF+12, ADDDEF+13, ADDDEF+25, ADDDEF+33, ADDDEF+37, ADDDEF+42, FINDDEF~, FINDDEF+3
, FINDDEF+4, ADDMORE~, ADDMORE+2, ADDMORE+7, ADDMORE+11, ADDMORE+16, HAVEDEF~, HAVEDEF+2, HAVEDEF+3, COMPLETE+2
, COMPLETE+5, DELETE+2, DELETE+3
BDGN1 INIT+33~, INIT+37*, INIT+38, INIT+47, INIT+49, INIT+53*, INIT+54, INIT+55
CATG INIT+1~, INIT+3*, INIT+4, INIT+7, INIT+8, VDATE+6~*, VDATE+7
CHOICES ADDDEF+1~, ADDDEF+28*, ADDDEF+34, ADDDEF+38
COUNT PAT+8~, PAT+11*, ASK+3, ASK+4, SET~, SET+1*, SET+2, ADDDEF+1~, ADDDEF+16*, ADDDEF+28
, FINDDEF+1~, FINDDEF+2*, FINDDEF+7*, FINDDEF+8, FINDDEF+10
D PAD~, PAD+2
DA ADD+1~, TDATES+1~, TDATES+2*, VDATE+1~, VDATE+3*, COMMENT+1~, COMMENT+2*, ADDDEF+1~, ADDDEF+34*, ADDDEF+38*
, ADDDEF+39, ADDDEF+40*, ADDMORE+1~, ADDMORE+10!, ADDMORE+16*, COMPLETE+1~, COMPLETE+5*, DELETE+1~, DELETE+3*
DA(1 ADDDEF+33*, ADDDEF+37*, ADDMORE+11*, ADDMORE+16*
DATA SET~, SET+2
DATE ADDDEF+1~, ADDDEF+32*, ADDDEF+33
DD ADD+1~, ADDMORE+10!
DEF ADDMORE+1~, ADDMORE+6*, ADDMORE+7, ADDMORE+13, HAVEDEF~, HAVEDEF+3
DFN PAT+1~, PAT+2*, PAT+10, PAT+16, ADD+4, HDR+2
DIC ADD+1~, ADD+4*, ADDMORE+1~, ADDMORE+5!*, ADDMORE+10!, ADDMORE+11*
DIC("DR" ADD+6*, ADD+7*, ADDMORE+13*
DIC("P" ADDMORE+12*
DIC("S" ADDMORE+5*
DIC(0 ADD+4*, ADDMORE+5*, ADDMORE+11*
DIE TDATES+1~, TDATES+2*, VDATE+1~, VDATE+3*, COMMENT+1~, COMMENT+2*, ADDDEF+1~, ADDDEF+33*, ADDDEF+37*, ADDMORE+1~
, ADDMORE+16*, COMPLETE+1~, COMPLETE+5*, DELETE+1~, DELETE+3*
DLAYGO ADD+1~, ADD+4*, ADDMORE+1~, ADDMORE+12*
DO ADD+1~, ADDMORE+10!
DR ADD+1~, TDATES+1~, TDATES+6*, TDATES+9*, TDATES+10*, TDATES+13*, VDATE+1~, VDATE+3*, VDATE+7*, COMMENT+1~
, COMMENT+2*, ADDDEF+1~, ADDDEF+33*, ADDDEF+37*, ADDMORE+1~, ADDMORE+16*, COMPLETE+1~, COMPLETE+5*, DELETE+1~, DELETE+3*
DUZ ASK+6
DUZ(2 HDR+2
FIELD INIT+1~, INIT+18*, INIT+19, TDATES+1~, LABEL~, LABEL+2, LABEL+3
FOUND HAVEDEF+1~, HAVEDEF+2*, HAVEDEF+3*, HAVEDEF+4, PENDING+1~, PENDING+2*, PENDING+6*, PENDING+7
I PAT+8~, PAT+17*, PAT+18, PAT+19, PAT+20, PAT+21, PAT+22, ADDDEF+1~, ADDDEF+34*, ADDDEF+38*
IEN FINDDEF+1~, FINDDEF+2*, FINDDEF+3*, FINDDEF+4, FINDDEF+10, HAVEDEF+1~, HAVEDEF+2*, HAVEDEF+3, PENDING~, PENDING+2
, PENDING+3
IEN2 PENDING+1~, PENDING+2*, PENDING+3
IENS INIT+33~, INIT+38*, INIT+39, INIT+40, INIT+42, INIT+43, INIT+45, INIT+46, INIT+49, FINDDEF+1~
, FINDDEF+4*, FINDDEF+5, FINDDEF+6, FINDDEF+8, FINDDEF+9, PENDING+1~, PENDING+3*, PENDING+4, PENDING+5
>> IORVOFF HDR+2, HDR+6
>> IORVON HDR+2, HDR+6
ITEM INIT+1~, INIT+11*, INIT+12, INIT+16, INIT+20, TDATES+1~, TDATES+4*, TDATES+5, TDATES+8, TDATES+10
L PAD~, PAD+2
LINE INIT+1~, INIT+4*, INIT+5*, INIT+6, INIT+7*, INIT+8*, INIT+9, INIT+13*, INIT+14, INIT+19*
, INIT+20*, INIT+21, INIT+25*, INIT+26, INIT+29*, INIT+30, INIT+45*, INIT+46*, INIT+47, FINDDEF+1~
, FINDDEF+8*, FINDDEF+9*, FINDDEF+10
N SP~, SP+1
PROMPT ASK+1~, ASK+2*, ASK+3, ADDDEF+4*, ADDDEF+7
PROV INIT+33~, INIT+42*, INIT+47, INIT+49, INIT+52*, INIT+53, INIT+54, INIT+55, ADDDEF+1~, ADDDEF+5
, ADDDEF+7*, ADDDEF+8, ADDDEF+12, ADDDEF+13, ADDDEF+15, ADDDEF+25, FINDDEF+3
PROVN INIT+33~, INIT+43*, INIT+45, INIT+47, INIT+49, INIT+51*, INIT+52, INIT+53, INIT+54, INIT+55
PRV FINDDEF~, ADDMORE~, ADDMORE+7, ADDMORE+11, HAVEDEF~, HAVEDEF+2
QUIT ADDDEF+11*, ADDDEF+13*, ADDDEF+24*, ADDMORE+1~, ADDMORE+4*, ADDMORE+6*
SCREEN ADDDEF+1~, ADDDEF+4*, ADDDEF+7
U ADDDEF+16, ADDDEF+34, ADDDEF+39, ADDDEF+40, FINDDEF+10, ADDMORE+12, HAVEDEF+3
>> VALMBCK REBUILD+4*, COMPLETE+4*, DELETE+2*
VALMCNT EN+2~, INIT+2*, INIT+6, INIT+9, INIT+14, INIT+21, INIT+26, INIT+30, INIT+34, INIT+35
, INIT+54, INIT+55, INIT+57, INIT+58, INIT+59
>> VALMHDR(1 HDR+4*
>> VALMHDR(2 HDR+8*
X ADD+1~, ADD+4*, HDR+1~, HDR+2*, HDR+3*, HDR+4, HDR+6*, HDR+7*, HDR+8, INIT+1~
, INIT+24*, INIT+49*, HELP+1*, ADDMORE+11*, LABEL+1~, LABEL+2*, LABEL+3*, LABEL+4
Y ASK+1~, ASK+3*, ASK+4, ASK+5, ADD+1~, ADD+2*, ADD+3*, ADD+6, ADD+7, ADD+8
, ADD+11, TDATES+1~, TDATES+4, TDATES+6, ADDDEF+1~, ADDDEF+23*, ADDDEF+24, ADDDEF+25, ADDDEF+26, ADDMORE+1~
, ADDMORE+6, ADDMORE+14, ADDMORE+16
Y(0 ADDMORE+9

Marked Items

Name Field # of Occurrence
$T(FIELDS+(3) INIT+18, TDATES+9
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