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

Package: Problem List

Routine: GMPLRPTS


Information

GMPLRPTS ; SLC/MKB -- Problem List Mgt Reports ;1/26/95 10:00

Source Information

Source file <GMPLRPTS.m>

Entry Points

Name Comments DBIA/ICR reference
PAT ; List patients having data in Problem file #9000011
PATQ
PROB ; Search for/List patients with selected problem
PROB1
PROBQ
KILL ; Clean-up after ourselves
DEVICE ; Prompt for device to send report to -- Sets GMPQUIT to quit
DQ
PRT ; Print patient listing from ^TMP("GMPRT",$J,)
HDR ; Prints report header
RETURN ; Checks for end-of-page, continue
STATUS() ; Prompts for problem status to search for

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: $C(7),!!,"No patient data available.",!
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: $C(7),!!,"No patient data available.",!
  • Line Location: PROB1+13
Function Call: WRITE
  • Prompt: !,NAME,?60,^TMP("GMPRT",$J,NAME)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: GMPLHDR,?60,$$EXTDT^GMPLX(DT),?70,"PAGE "_PAGE,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "Patient Name",?60,$S(GMPLCNT:"# Active/Inactive",1:"Status"),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RETURN+2
Info |  Source |  Entry Points |  Interaction Calls