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

Package: Automated Information Collection System

Routine: IBDFCG


Information

IBDFCG ;MAF/ALB - CLINIC GROUP FORMS SCREEN ; 09-FEB-1995

Source Information

Source file <IBDFCG.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for IBDF EF CLINIC GROUP LT
HDR ; -- header code
INIT ; -- init variables and list array
ARRAY ; -- Setting up array for clinic groups and the divisions and clinics
SETG1 ; -- Creating the list entries
GROUPS ; -- Creating the Listman Clinic Name titles for the list
TMP
EDIT ; -- Edit a selected Clinic Group
DEL ; -- Delete Clinic Group
DELQ
DP1 ; -- actual deletion
QE ; -- Quick edit Review entry
MESS ; -- Message prior to editing a group
ADD1 ; -- Add/Edit Clinic Group
REP
REP1
JUMP ; -- Jump action to display a specific clinic group on the screen.
JMP
JUMP1
JSEL ; -- Convert number selected to name
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
NUL ; -- NULL MESSAGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"In use by parameter group, Not deleted",!
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !,"Entry ",$P($G(^IBD(357.99,DA,0)),"^",1)," not Deleted!"
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !,"Entry ",IBDVALM," Deleted"
  • Line Location: DP1+2
Function Call: WRITE
  • Prompt: !!,"Enter the clinics for this clinic group. Enter as many Clinics as you want."
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !,"If you want all clinics for a division, do not enter any clinics but enter"
  • Line Location: MESS+2
Function Call: WRITE
  • Prompt: !,"the division name at the Select Division: prompt."
  • Line Location: MESS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD1+4
Function Call: WRITE
  • Prompt: !!,"There is no data listed for this Clinic Group"
  • Line Location: JUMP1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBD(357.99 - [#357.99] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call