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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBTRH7

Package: Integrated Billing

Routine: IBTRH7


Information

IBTRH7 ;ALB/JWS - HCSR Manually Create 278 Request ;15-MAY-2015

Source Information

Source file <IBTRH7.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 ^%DT  MSG^DIALOG  (,$$FIND1)^DIC  DT^DILF  $$GET1^DIQ  ^DIR  
Integrated Billing 3 $$FO^IBCNEUT1  (HDR,INIT)^IBTRH1  (CKAFINS,SETEVENT,SETFILTS)^IBTRHDE  
Kernel 1 $$NOW^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 1 IBT HCSR MANUAL 278 REQUEST  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP
; Main entry point for IBT HCSR MANUAL 278 ADD protocol
; Input: None
FM1E ;
ASKDATE(PROMPT,DEFAULT1,DEFAULT2) ; get the from and thru dates
FM2E ;
FM2 ;
FM1 ;
SAVE(NODE0) ; save entry in temporary ^TMP($J) global for list display
FILE ; save selected entry into 356.22 file
ASKPAT()
FMDQ ;

External References

Name Field # of Occurrence
^%DT FM1+2, FM2+1
MSG^DIALOG EN+111
^DIC ASKPAT+8
$$FIND1^DIC SAVE+6
DT^DILF EN+11, EN+12
$$GET1^DIQ EN+58, EN+65, EN+67, EN+82, EN+83, EN+105, EN+106, EN+108
^DIR EN+116
$$FO^IBCNEUT1 ASKPAT+6
HDR^IBTRH1 EN+124
INIT^IBTRH1 EN+123
CKAFINS^IBTRHDE EN+29, EN+59, EN+85
SETEVENT^IBTRHDE EN+121, FILE+1
SETFILTS^IBTRHDE EN+18
$$SDAPI^SDAMA301 EN+21
FULL^VALM1 EN+5
PAUSE^VALM1 EN+95
$$NOW^XLFDT EN+37, EN+70, EN+90

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No open appointments or admissions found for that patient",!
  • Line Location: EN+95
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPAT+4
Function Call: WRITE
  • Prompt: !,"A date must be entered."
  • Line Location: FM1E+1
Function Call: WRITE
  • Prompt: !,"A date must be entered."
  • Line Location: FM2E+1
Routine Call
  • DIC
  • Line Location:
    • SAVE+6
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+8
Routine Call
  • DIALOG
  • Line Location:
    • EN+111
Routine Call
  • DIR
  • Line Location:
    • EN+116

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
2.312 GET1^DIQ
^IBT(356.22 - [#356.22] FIND1^DIC
^DIC(36 - [#36] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^DGS(41.1 - [#41.1] GET1^DIQ
^DIC(42 - [#42] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+103
^DGPM("AMV1" EN+56, EN+57
^DGS(41.1 - [#41.1] EN+79, EN+80, EN+81
^IBE(350.9 - [#350.9] EN+9
^TMP($J EN+3!, EN+17!, EN+28, EN+31, EN+95, EN+99, EN+100, EN+102, EN+120, SAVE+8*

Label References

Name Line Occurrences
$$ASKDATE EN+13
$$ASKPAT EN+7
FM1 FM1E+1
FM1E FM1+2
FM2 FM2E+1
FM2E FM2+1
FMDQ FM1+2, FM2+1
SAVE EN+39, EN+71, EN+91

Naked Globals

Name Field # of Occurrence
^("IBTRH7" SAVE+8*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASKDATE+1~, FM1+1*, FM1+2!, FM2+1*!
%DT("A" FM1+1*, FM2+1*
%DT("B" FM1+1*, FM1+3*
%DT(0 FM1+3*
ADATE EN+16~, EN+27*, EN+28*, EN+29, EN+31, EN+37
AINS EN+16~, EN+29, EN+49!, EN+59, EN+85
AINS( EN+30, EN+37, EN+60, EN+70, EN+86, EN+90
AINSIX EN+16~, EN+30*, EN+37, EN+49!, EN+60*, EN+70, EN+86*, EN+90
CLINIC EN+16~, EN+31*, EN+37
CNT EN+98~, EN+99*, EN+112, EN+115
DA EN+48~, EN+57*, EN+58, EN+65, EN+67, EN+80*, EN+81, EN+82, EN+83
DATEC EN+48~, EN+55*, EN+56*, EN+57, EN+59, EN+64, EN+70, EN+78*, EN+79*, EN+80
, EN+85, EN+90
DATEE EN+48~
DATES EN+48~
DEFAULT1 ASKDATE~, FM1+1
DEFAULT2 ASKDATE~, FM1+3
DFN EN+48~, EN+83*, EN+84, EN+85, EN+90
DIC ASKPAT+2~, ASKPAT+7*
DIC("A" ASKPAT+6*
DIC(0 ASKPAT+5*
DIR EN+98~
DIR("?" EN+114*, EN+115*
DIR("A" EN+113*
DIR(0 EN+112*
DIROUT EN+98~, EN+117
DIRUT EN+98~, EN+117
DT1 ASKDATE+1~, ASKDATE+2*, FM2+2*, FMDQ+1
DT2 ASKDATE+1~, FM1+3*, FM2+2
DTOUT EN+98~, EN+117, ASKPAT+2~
DUOUT EN+98~, EN+117, ASKPAT+2~
ERR SAVE+1~, SAVE+7
FRDATE EN+4~, EN+13*, EN+19, EN+27, EN+28, EN+55, EN+56, EN+78, EN+79
HCSR EN+4~, EN+9*, EN+11, EN+12, EN+18, EN+29, EN+59, EN+85
IB1 ASKDATE+1~, ASKDATE+2*, ASKDATE+3*, FM1+1
IB2 ASKDATE+1~, ASKDATE+2*, ASKDATE+3*, FM2+1
IBWARD EN+48~, EN+58*, EN+70, EN+82*, EN+90
NODE0 EN+16~, EN+37*, EN+39, EN+49!, EN+70*, EN+71, EN+90*, EN+91, EN+120*, EN+121
, SAVE~, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+8, FILE+1
PATIEN EN+4~, EN+7*, EN+8, EN+20, EN+28, EN+29, EN+31, EN+37, EN+57, EN+59
, EN+70, EN+84
PROMPT ASKDATE~, ASKDATE+3
SDATE1 EN+4~, EN+11
SDATE1(0 EN+13
SDATE2 EN+4~, EN+12, FM1+3
SDATE2(0 EN+13
SDCOUNT EN+16~, EN+21*
SFILT EN+16~, EN+18, EN+21
SFILT(1 EN+19*
SFILT(4 EN+20*
TMP EN+98~
TMP("DIMSG" EN+110*
U EN+31, EN+37, EN+70, EN+81, EN+90
VAL SAVE+1~, SAVE+6
VAL(1 SAVE+2*
VAL(2 SAVE+3*
VAL(3 SAVE+4*
VAL(4 SAVE+5*
>> VALMBCK EN+6*
X EN+98~, EN+100*, EN+102, EN+104, EN+110, ASKPAT+2~, ASKDATE+1~, FM1+2, FM2+1, FM2E+3
X1 EN+101~, EN+102*, EN+103, EN+104, EN+105, EN+106, EN+108
X2 EN+101~, EN+104*, EN+105*, EN+106*, EN+107*, EN+108*, EN+110
XCT SAVE+1~, SAVE+8*
XX EN+48~, EN+64*, EN+68*, EN+70
Y EN+103*, EN+104, EN+118, EN+120, ASKPAT+2~, ASKPAT+9, ASKDATE+1~, FM1+2, FM1+3, FM2+1
, FM2+2
YY EN+48~, EN+65*, EN+66, EN+67*, EN+68
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 |  Naked Globals |  Local Variables |  All