Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364.99 - [#364.99] Classic Fileman Calls,  FIND^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call