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

Package: Problem List

Routine: GMPLMGR2


Information

GMPLMGR2 ; ISL/MKB,KER,AJB,TC - Problem List VALM Utilities cont ;11/27/12 08:33

Source Information

Source file <GMPLMGR2.m>

Entry Points

Name Comments DBIA/ICR reference
BLDPROB(IFN) ; Build Line for Problem in List
; Input INF Pointer to Problem file 9000011
; Expects GMPCOUNT
HELP ; Help Code
EXIT ; Exit Code
AUTO ; Print Problem List when Exiting Patient?
; Called from EXIT,NEWPAT^GMPLMGR1
AUTQ ; Quit Auto-Print
SHOW ; Show Current View of List
ENVIEW ; Entry Action to Display Appropriate View Menu
EXVIEW ; Exit Action to Rebuild List w/New View

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?4,"You may take a variety of actions from this prompt. To update"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?4,"the problem list select from Add, Remove, Edit, Inactivate,"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?4,"and Enter Comment; you will then be prompted for the problem"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?4,"number. To see all of this patient's problems, both active and"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?4,"inactive, select Show All Problems; select Print to print the"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?4,"same complete list in a chartable format. To see a listing of"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?4,"actions that facilitate navigating the list, enter '??'."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ... "
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: $C(7),!!,">>> THIS PATIENT'S PROBLEM LIST HAS CHANGED!"
  • Line Location: AUTO+5
Function Call: WRITE
  • Prompt: !!,"CURRENT VIEW: "_$S(VIEW="S":"Inpatient, ",1:"Outpatient, ")
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: "all problems"
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: $S(GMPLVIEW("ACT")="A":"active",GMPLVIEW("ACT")="I":"inactive",1:"all")_" problems"
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: " from "_$S(GMPLVIEW("VIEW")=$$VIEW^GMPLX1(DUZ):"preferred",1:"selected")_$S(VIEW="S":" services",1:" clinics")
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($X+$L(NAME)+4>80)
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: " by "_NAME
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: !,"You may change your view of this patient's problem list by selecting one or",!,"more of the following attributes to alter:",!
  • Line Location: ENVIEW+3
Info |  Source |  Entry Points |  Interaction Calls