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

Package: Problem List

Routine: GMPLBLD3


Information

GMPLBLD3 ; SLC/MKB -- Bld PL Selection Lists cont ;3/12/03 13:40

Source Information

Source file <GMPLBLD3.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 ^DIC  DQ^DICQ  ^DIE  ^DIK  ^DIR  
Problem List 3 ($$LIST,$$VALLIST)^GMPLBLD2  BUILD^GMPLMENU  $$MSG^GMPLX  
DRG Grouper 1 $$STATCHK^ICDAPIU  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Problem List 3 GMPL DE-ASSIGN LIST  GMPL DELETE LIST  GMPLBLD2  

Entry Points

Name Comments DBIA/ICR reference
ASQ
READ ; prompt for username, respond
MENU ; -- init variables and list array for GMPL LIST MENU list template
; Expects GMPLSLST=selection list
DEL1
USR
USERS(ADD) ; -- select user(s) to de-/assign list
ASSIGN ; Assign list to clinic, users: Expects GMPLSLST
DELETE ; Delete Selection List

External References

Name Field # of Occurrence
^DIC READ+6
DQ^DICQ READ+5
^DIE ASSIGN+13, USR+3
^DIK DEL1+6, DEL1+7
^DIR ASSIGN+8, USERS+9, DEL1+3
$$LIST^GMPLBLD2 DELETE+2
$$VALLIST^GMPLBLD2 ASSIGN+2
BUILD^GMPLMENU MENU+15
$$MSG^GMPLX ASQ
$$STATCHK^ICDAPIU MENU+12
FULL^VALM1 ASSIGN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"This Selection List contains problems with inactive ICD9 codes associated with"
  • Line Location: ASSIGN+3
Function Call: WRITE
  • Prompt: !,"them. The codes must be edited and corrected before the list can be assigned",!,"to users or clinics."
  • Line Location: ASSIGN+4
Function Call: WRITE
  • Prompt: !!,"If you have edited the list during this session to correct inactive codes, "
  • Line Location: ASSIGN+5
Function Call: WRITE
  • Prompt: !,"save the list prior to attempting to assign it."
  • Line Location: ASSIGN+6
Function Call: WRITE
  • Prompt: !!,"You may assign this list to a clinic as its default selection list,"
  • Line Location: ASSIGN+11
Function Call: WRITE
  • Prompt: !,"as well as to individual users as a preferred selection list.",!
  • Line Location: ASSIGN+12
Function Call: WRITE
  • Prompt: !!,"No users selected.",!
  • Line Location: USERS+5
Function Call: WRITE
  • Prompt: !,$S(ADD:"Assigning ",1:"Removing ")_$P(GMPLSLST,U,2)_" list ..."
  • Line Location: USR+0
Function Call: WRITE
  • Prompt: !?4,$P($G(^VA(200,DA,0)),U)
  • Line Location: USR+3
Function Call: WRITE
  • Prompt: !!,"DONE."
  • Line Location: USR+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !!,"Enter the name of the user you wish this list to be "_$S(ADD:"assigned to;",1:"removed from;"),!,"enter '??' to see users currently assigned this list, or '???' to see",!,"all users on this system.",!
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: !!,"Users currently assigned "_$P(GMPLSLST,U,2)_" list:"
  • Line Location: READ+4
Function Call: WRITE
  • Prompt: !!,"Checking the New Person file for use of this list ..."
  • Line Location: DELETE+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+6
Function Call: WRITE
  • Prompt: $C(7),!!,GMPCOUNT_" user(s) are currently assigned this list!",!,"CANNOT DELETE",!
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: !,"0 users found."
  • Line Location: DELETE+8
Function Call: WRITE
  • Prompt: !!,"Deleting "_$P(GMPLSLST,U,2)_" selection list ..."
  • Line Location: DEL1+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: DEL1+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: DEL1+7
Function Call: WRITE
  • Prompt: !,"DONE.",!
  • Line Location: DEL1+8
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+14
Routine Call
  • DIE
  • Line Location:
    • ASSIGN+13
    • USR+3
Routine Call
  • DIC
  • Line Location:
    • READ+6
Routine Call
  • DIR
  • Line Location:
    • ASSIGN+8
    • USERS+9
    • DEL1+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMPL(125 - [#125] Classic Fileman Calls
^GMPL(125.1 - [#125.1] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMPL(125.1 - [#125.1] DEL1+6, MENU+5, MENU+6, MENU+7
^GMPL(125.12 - [#125.12] MENU+9, MENU+10, MENU+11
^TMP("GMPLMENU" MENU+3!, MENU+8*, MENU+13*, MENU+14
^VA(200 - [#200] USR+3, DELETE+4, DELETE+5

Label References

Name Line Occurrences
ASQ ASSIGN+1, ASSIGN+2
READ USERS+4, READ+2, READ+3, READ+6
USERS ASSIGN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD USERS~, USERS+7, USR, USR+1, READ+2
CODE MENU+2~, MENU+11*, MENU+12
D READ+5*!
DA ASSIGN+1~, ASSIGN+13*, USERS+1~, USR+2*, USR+3, DELETE+1~, DEL1+5*, DEL1+6*, DEL1+7*
DIC USERS+1~, USERS+3*
DIC("A" USERS+3*, USERS+4*, READ+1
DIC("S" READ+4*, READ+5!
DIC(0 USERS+3*
DIE ASSIGN+1~, ASSIGN+13*, USERS+1~, USR+1*
DIK DELETE+1~, DEL1+5*, DEL1+7*
DIR ASSIGN+7~, USERS+1~, DELETE+1~
DIR("?" USERS+7*, USERS+8*, DEL1+2*
DIR("A" USERS+6*, DEL1+1*
DIR("B" USERS+6*, DEL1*
DIR(0 ASSIGN+8*, USERS+6*, DEL1*
DIRUT ASSIGN+7~
DR ASSIGN+1~, ASSIGN+13*, USERS+1~, USR+1*
DT MENU+12
DTIME READ+1
DTOUT ASSIGN+7~, ASSIGN+13
DUOUT ASSIGN+7~, ASSIGN+13
DZ READ+5*!
GCNT MENU+2~, MENU+3*, MENU+8*, MENU+13
GMPCOUNT DELETE+1~, DELETE+2*, DELETE+6*, DELETE+7
GMPLI USERS+1~, USR+2*
GMPLSLST ASSIGN+1, ASSIGN+2, ASSIGN+13, USERS+2, USERS+7, USR, USR+1, READ+4, DELETE+1~, DELETE+2*
, DELETE+5, DEL1+4, DEL1+6, DEL1+7, MENU+4, MENU+5, MENU+6
GMPLUSER USERS+1~, USERS+2*, USERS+4*, USERS+5, USERS+8, USR+2
GMPQUIT DELETE+1~
GROUP MENU+2~, MENU+7*, MENU+9, MENU+10
GSEQ MENU+2~, MENU+3*, MENU+5*, MENU+6
HDR MENU+2~, MENU+7*, MENU+8
IFN MENU+2~, MENU+6*, MENU+7, MENU+10*, MENU+11
ITEM MENU+2~, MENU+7*, MENU+11*, MENU+13
LCNT MENU+2~, MENU+3*
PCNT MENU+2~, MENU+8*, MENU+13*
PSEQ MENU+2~, MENU+8*, MENU+9*, MENU+10
TEXT MENU+2~, MENU+11*
U USERS+4, USERS+7, USERS+8, USR, USR+2, USR+3, READ+4, DELETE+5, DEL1+4, MENU+4
, MENU+7, MENU+11, MENU+13
USER DELETE+1~, DELETE+4*, DELETE+5
>> VALMBCK ASQ*, MENU+14*
>> VALMQUIT MENU+14*
>> VALMSG ASQ*
VIEW DELETE+1~, DELETE+5*
X USERS+1~, READ+1*, READ+2, READ+3, READ+4, DELETE+1~
Y USERS+1~, USERS+4, USERS+9, READ+1*, READ+6, DELETE+1~, DEL1+3
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