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

Package: Problem List

Routine: GMPLRPTR


Information

GMPLRPTR ; SLC/MKB/AJB -- Problem List Report of Removed Problems ;11/14/14 12:18

Source Information

Source file <GMPLRPTR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point
GETLIST ; -- build GMPLIST() of removed problems
DISPLAY ; -- show list on screen
HDR ; -- header code
CONTINUE() ; -- end of page prompt
REPLACE ; -- replace problem on patient's list
SEL() ; -- select problem(s)
SURE() ; -- are you sure you want to do this?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?10,"No 'removed' problems found for this patient.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETLIST+4
Function Call: WRITE
  • Prompt: !,NUM,?GMPLBUF,PROBLEM,?51,$$EXTDT^GMPLX(DATE),?60,$$NAME^GMPLX1(PROV)
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: @IOF,"REMOVED PROBLEMS FOR "_$P(GMPDFN,U,2)_" ("_$P(GMPDFN,U,3)_"):"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!," Problem",?51,"Removed By Whom",!,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: REPLACE+1
Function Call: WRITE
  • Prompt: !!,"Replacing problem(s) on patient's list ..."
  • Line Location: REPLACE+3
Function Call: WRITE
  • Prompt: !!,$$PROBTEXT^GMPLX(GMPLIST(NUM)),!,"has an inactive ICD9 code and will not be replaced."
  • Line Location: REPLACE+9
Function Call: WRITE
  • Prompt: !," "_$$PROBTEXT^GMPLX(DA)
  • Line Location: REPLACE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REPLACE+15
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SURE+4

FileMan Files Accessed Via FileMan Db Call

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