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

Package: Problem List

Routine: GMPLBLD3


Information

GMPLBLD3 ; SLC/MKB,TC -- Bld PL Selection Lists cont ;08/22/17 14:15

Source Information

Source file <GMPLBLD3.m>

Entry Points

Name Comments DBIA/ICR reference
DELETE ; Delete Selection List
DEL1
DELQT
MENU ; -- init variables and list array for GMPL LIST MENU list template
; Expects GMPLSLST=selection list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Cannot delete a National Selection List."
  • Line Location: DELETE+6
Function Call: WRITE
  • Prompt: !!,"Checking the Default Problem Selection List parameter for use of this list ..."
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: !!,"Error: "_$P(GMPLERR,U,2)
  • Line Location: DELETE+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+13
Function Call: WRITE
  • Prompt: !!,"CANNOT DELETE",!,"This list is currently assigned to the following entities:",!!
  • Line Location: DELETE+15
Function Call: WRITE
  • Prompt: ?7,"User: "_$$GET1^DIQ(200,$P(GMPLENTY,";"),.01),!
  • Line Location: DELETE+17
Function Call: WRITE
  • Prompt: ?7,"Clinic: "_$$GET1^DIQ(44,$P(GMPLENTY,";"),.01),!
  • Line Location: DELETE+18
Function Call: WRITE
  • Prompt: ?7,"System: "_$$GET1^DIQ(4.2,$P(GMPLENTY,";"),.01),!
  • Line Location: DELETE+19
Function Call: WRITE
  • Prompt: ?7,"Division: "_$$GET1^DIQ(4,$P(GMPLENTY,";"),.01),!
  • Line Location: DELETE+20
Function Call: WRITE
  • Prompt: !,"No other parameter settings found."
  • Line Location: DELETE+22
Function Call: WRITE
  • Prompt: !!,"Deleting "_$P(GMPLSLST,U,2)_" selection list ..."
  • Line Location: DEL1+4
Function Call: WRITE
  • Prompt: !,"DONE."
  • Line Location: DEL1+9
Function Call: WRITE
  • Prompt: !!,"Checking the NEW PERSON file for any pointers to this list and removing them..."
  • Line Location: DEL1+11
Function Call: WRITE
  • Prompt: !,"No pointers found."
  • Line Location: DEL1+23
Function Call: WRITE
  • Prompt: !,"DONE."
  • Line Location: DEL1+24
Function Call: WRITE
  • Prompt: !
  • Line Location: DELQT+0
Function Call: WRITE
  • Prompt: !!,"Retrieving list of "_$P(GMPLSLST,U,2)_" problems ..."
  • Line Location: MENU+4
Function Call: WRITE
  • Prompt: !!,"No items available. Returning to Problem List ..."
  • Line Location: MENU+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DIC(4.2 - [#4.2] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call