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  | All
Print Page as PDF
Routine: IBACCWLSPKUP

Package: Integrated Billing

Routine: IBACCWLSPKUP


Information

IBACCWLSPKUP ;EDE/TPF - ACC (Automated Community Care) Encounters - Special Lookup Prompt for ACC DIVISION ROLLUP ; 12-SEP-2023

Source Information

Source file <IBACCWLSPKUP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 FIND^DIC  EN1^DIK  ^DIR  
Integrated Billing 1 $$RUST^IBACCROWFT  
Kernel 1 $$UP^XLFSTR  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBACCWLSORT  ^IBA(364.99  

Entry Points

Name Comments DBIA/ICR reference
SPECLKUP(RETURN) ;EP - SPECIAL LOOKUP RTN FOR ACC DIVISION ROLLUP
CURIBDIV(IBDIV,HELP) ;EP - DISPLAY CURRENT WORKLIST FILTER ARRAY
DEL(DELSTAT,IBDIV) ;EP - DELETE ITEMS FROM WORKLIST FILTER ARRAY
PAUSE ;EP - RETURN TO CONT
SPECLKPXREF(X,TYPE) ;EP - XREF FOR FACILITY GROUP RESTRICTIONS
SETXREF ;EP
SETDIRUP(VASITE,SETOFCODES) ;EP - SET DIR(0) UP WITH SET OF CODES FOR EACH INTEGRATED SITE USING "E" X-REF ;TPF;IB*2*770v9
SPEC(SPECINT) ;EP - SPECIAL PRE-VALIDATION TRANSFORM FOR INTEGRATED SITES

External References

Name Field # of Occurrence
FIND^DIC SPECLKUP+86
EN1^DIK SETXREF+6
^DIR SPECLKUP+37, SPECLKUP+59, PAUSE+3
$$RUST^IBACCROWFT SETDIRUP+9
$$SITE^VASITE SPECLKUP+5
$$UP^XLFSTR DEL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"If you exit now you will lose the worklist inclusion list!"
  • Line Location: SPECLKUP+52
Function Call: WRITE
  • Prompt: !,"Your worklist filter will be cleared and you will need to enter new",!,"filter criteria."
  • Line Location: SPECLKUP+53
Function Call: WRITE
  • Prompt: !,"This Division/Station/Facility Group "_DIV_" has already been selected!"
  • Line Location: SPECLKUP+91
Function Call: WRITE
  • Prompt: !!,"The following Stations/Divisions/Facility Groups will be included"
  • Line Location: CURIBDIV+5
Function Call: WRITE
  • Prompt: !,"in your worklist:"
  • Line Location: CURIBDIV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CURIBDIV+7
Function Call: WRITE
  • Prompt: $P($G(^DIC(4,STATIEN,0)),U)
  • Line Location: CURIBDIV+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: CURIBDIV+16
Function Call: WRITE
  • Prompt: !!,"Station/Division Number "_DELSTAT_" will not appear on your worklist!",!
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Facility Group "_DELSTAT_" will not appear on your worklist!",!
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !,$E(X,2,999)_" NOT IN CURRENT SELECTION LIST"
  • Line Location: SPEC+4
Routine Call
  • DIC
  • Line Location:
    • SPECLKUP+86
Routine Call
  • DIR
  • Line Location:
    • SPECLKUP+37
    • SPECLKUP+59
    • PAUSE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364.99 - [#364.99] Classic Fileman Calls,  FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] CURIBDIV+12, CURIBDIV+14, SETDIRUP+10, SETDIRUP+12, SETDIRUP+13
^IBA(364.99 - [#364.99] DEL+8, DEL+9, SPECLKPXREF+10, SPECLKPXREF+13*, SPECLKPXREF+16!, SETXREF+5, SETDIRUP+6, SETDIRUP+7, SETDIRUP+8, SETDIRUP+15

Label References

Name Line Occurrences
CURIBDIV SPECLKUP+95, DEL+4, DEL+12
DEL SPECLKUP+69
SETDIRUP SPECLKUP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALL SPECLKUP+1~, SPECLKUP+68
DA SPECLKPXREF+10, SPECLKPXREF+13, SETXREF+1~, SETXREF+4*, SETXREF+5*
DELSTAT DEL~, DEL+3*, DEL+4, DEL+5, DEL+6
DIK SETXREF+1~, SETXREF+2*
DIK(1 SETXREF+3*
DIR SPECLKUP+1~, SPECLKUP+55~, PAUSE+1~
DIR("?" SPECLKUP+10*, SPECLKUP+11*, SPECLKUP+12*, SPECLKUP+13*, SPECLKUP+14*, SPECLKUP+15*, SPECLKUP+16*, SPECLKUP+17*, SPECLKUP+18*, SPECLKUP+19*
, SPECLKUP+20*, SPECLKUP+21*, SPECLKUP+22*, SPECLKUP+23*, SPECLKUP+24*, SPECLKUP+25*, SPECLKUP+26*, SPECLKUP+27*, SPECLKUP+28*, SPECLKUP+29*
, SPECLKUP+30*, SPECLKUP+31*, SPECLKUP+32*, SPECLKUP+33*
DIR("A" SPECLKUP+7*, SPECLKUP+9*, SPECLKUP+57*
DIR("B" SPECLKUP+8*, SPECLKUP+9!, SPECLKUP+58*
DIR("PRE" SPECLKUP+5*
DIR(0 SPECLKUP+4*, SPECLKUP+5*, SPECLKUP+56*, PAUSE+2*
DIROUT SPECLKUP+1~, SPECLKUP+48, SPECLKUP+55~, SPECLKUP+62
DIV SPECLKUP+1~, SPECLKUP+90*, SPECLKUP+91, SPECLKUP+93
DTOUT SPECLKUP+1~, SPECLKUP+48, SPECLKUP+55~, SPECLKUP+62
DUOUT SPECLKUP+1~, SPECLKUP+48, SPECLKUP+55~, SPECLKUP+62
ERROR SPECLKUP+1~, SPECLKUP+84!
FACGRP DEL+2~, DEL+5*, DEL+8, SPECLKPXREF+9*, SPECLKPXREF+13, SETDIRUP+2~, SETDIRUP+5*, SETDIRUP+6*, SETDIRUP+7, SETDIRUP+14
, SETDIRUP+15
FIELDS SPECLKUP+1~, SPECLKUP+80*, SPECLKUP+86
FLAGS SPECLKUP+1~, SPECLKUP+81*, SPECLKUP+86
HELP SPECLKUP+2~, SPECLKUP+35*, CURIBDIV~
IBDIV SPECLKUP+8, SPECLKUP+40, SPECLKUP+41, SPECLKUP+45!, SPECLKUP+49, SPECLKUP+63!, SPECLKUP+69, SPECLKUP+95, CURIBDIV~, CURIBDIV+2
, DEL~, DEL+4, DEL+12
IBDIV( SPECLKUP+91, SPECLKUP+93*, CURIBDIV+11, DEL+4!, DEL+10!, SPEC+4
>> IBFIRST SPECLKUP+92*
IBTARGET SPECLKUP+1~, SPECLKUP+70*, SPECLKUP+75, SPECLKUP+76, SPECLKUP+77, SPECLKUP+86
IDENTIFIER SPECLKUP+1~, SPECLKUP+83*, SPECLKUP+86
IEN DEL+2~, DEL+7*, DEL+8*, DEL+9
IENS SPECLKUP+1~, SPECLKUP+79*, SPECLKUP+86
>> INDEX SPECLKUP+74*, SPECLKUP+75*, SPECLKUP+76*, SPECLKUP+77*, SPECLKUP+86
INSTSTATNUM SETDIRUP+2~, SETDIRUP+9*, SETDIRUP+10, SETDIRUP+13
INTSITE SETDIRUP+2~, SETDIRUP+7*, SETDIRUP+8
LISTRETURN SPECLKUP+1~
MORE SETDIRUP+2~, SETDIRUP+15*
NAME DEL+2~, DEL+9*, DEL+10
OFFNAME SETDIRUP+2~, SETDIRUP+12*
PART SPECLKUP+1~
PREVX SPECLKUP+1~, SPECLKUP+54*, SPECLKUP+61, SPECLKUP+64, SPECLKUP+65
RETURN SPECLKUP~, SPECLKUP+40*, SPECLKUP+41*, SPECLKUP+46*, SPECLKUP+48, SPECLKUP+49*, SPECLKUP+61*, SPECLKUP+64*, SPECLKUP+65*, SPECLKUP+66*
, SPECLKUP+68*, SPECLKUP+69*, SPECLKUP+84!
RETURN("DILIST" SPECLKUP+89, SPECLKUP+90
RETURN(1 SPECLKUP+40*, SPECLKUP+41*, SPECLKUP+46*, SPECLKUP+49*
RETURNIEN SPECLKUP+1~, SPECLKUP+88*, SPECLKUP+89*, SPECLKUP+90
SCREEN SPECLKUP+1~, SPECLKUP+72*, SPECLKUP+77*, SPECLKUP+86
SETOFCODES SPECLKUP+1~, SPECLKUP+5, SETDIRUP~, SETDIRUP+3!, SETDIRUP+14*, SETDIRUP+15*, SETDIRUP+16*
SITE SPECLKPXREF+2~, SPECLKPXREF+10*, SPECLKPXREF+11, SPECLKPXREF+13
SPECINT SPECLKUP+1~, SPECLKUP+39, SPEC~, SPEC+2*, SPEC+3*, SPEC+5*
SPMAXNUMBER SPECLKUP+1~, SPECLKUP+82*, SPECLKUP+86
STAT CURIBDIV+9~, CURIBDIV+10*, CURIBDIV+11*, CURIBDIV+12, CURIBDIV+13
STATIEN CURIBDIV+9~, CURIBDIV+12*, CURIBDIV+14, SETDIRUP+10*, SETDIRUP+11, SETDIRUP+12, SETDIRUP+13
STATNAME SETDIRUP+2~, SETDIRUP+13*, SETDIRUP+14
STATNUM SETDIRUP+2~, SETDIRUP+8*, SETDIRUP+9
TYPE SPECLKPXREF~, SPECLKPXREF+8, SPECLKPXREF+15
U SPECLKUP+5, SPECLKUP+61, SPECLKUP+64, CURIBDIV+14, DEL+9, SPECLKPXREF+10, SPECLKPXREF+11, SETDIRUP+8, SETDIRUP+12, SETDIRUP+13
>> VALMQUIT SPECLKUP+61*, SPECLKUP+64*
VASITE SETDIRUP~, SETDIRUP+6, SETDIRUP+15
X SPECLKUP+1~, SPECLKUP+39*, SPECLKUP+40, SPECLKUP+41, SPECLKUP+43, SPECLKUP+46, SPECLKUP+48, SPECLKUP+49, SPECLKUP+52, SPECLKUP+53
, SPECLKUP+54, SPECLKUP+62, SPECLKUP+69, SPECLKPXREF~, SPECLKPXREF+9, SPECLKPXREF+16, SPEC+3*, SPEC+4, SPEC+5*
Y SPECLKUP+55~, SPECLKUP+70
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  | All