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

Package: Problem List

Routine: GMPLPRNT


Information

GMPLPRNT ; SLC/MKB,KER,TC -- Problem List prints/displays ;11/27/12 08:25

Source Information

Source file <GMPLPRNT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Print/Display (Main)
EN1 ; Print View
ENQ ; Quit Print/Display
VAF ; Build Chart Copy
LIST ; Build Current View
DEVICE ; Get Device
DQ ; Quit Device
HDR ; Header Code
FTR ; Footer Code
RETURN() ; End of page
PRT ; Body of Problem List
PROB(DA,NUM) ; Get Problem Text Line
PR1 ; Write Problem Text Line
NOTES(IFN) ; Place Comments in NOTES array

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"No problems found.",!,$C(7)
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"One moment, please ..."
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: $C(13),$$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "** NOT for "
  • Condition for execution: $D(GMPLCURR)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Medical Record"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " **"
  • Condition for execution: $D(GMPLCURR)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $P(GMPDFN,U,2)_" ("_$P(GMPDFN,U,3)_")"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?41,"| "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "PARTIAL "
  • Condition for execution: $D(GMPLCURR)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "PROBLEM LIST",?(79-$L(PAGE)),PAGE,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !," Date",?63,"Date of Date"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !," Recorded Problems",?64,"Onset Resolved"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+2
Function Call: WRITE
  • Prompt: !,$S($D(GMPLFLAG):"$ = Requires verification by provider",1:"")
  • Line Location: FTR+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: FTR+10
Function Call: WRITE
  • Prompt: !,$P(GMPDFN,U,2),?(79-$L(SITE)\2),SITE
  • Line Location: FTR+11
Function Call: WRITE
  • Prompt: ?(79-$L(DATE)),DATE
  • Line Location: FTR+14
Function Call: WRITE
  • Prompt: !,VA("PID"),?(79-$L(LOC)\2),LOC,?(79-$L(FORM)),FORM
  • Line Location: FTR+15
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),@IOF
  • Line Location: FTR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: RETURN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROB+21
Function Call: WRITE
  • Prompt: !!,$E(" ",1,3-$L(NUM))_NUM_". "_$J($$EXTDT^GMPLX(DATE),8)
  • Line Location: PR1+1
Function Call: WRITE
  • Prompt: ?14,"$"
  • Line Location: PR1+2
Function Call: WRITE
  • Prompt: ?15,TEXT(1),?62,$J($$EXTDT^GMPLX(ONSET),8)
  • Line Location: PR1+3
Function Call: WRITE
  • Prompt: ?71,$S(RESOLVED:$J($$EXTDT^GMPLX(RESOLVED),8),1:"unknown")
  • Line Location: PR1+4
Function Call: WRITE
  • Prompt: !?15,TEXT(J)
  • Line Location: PR1+5
Function Call: WRITE
  • Prompt: !?5,$J(X,8),?17,$P(NOTES(J),U,2)
  • Line Location: PR1+7
Info |  Source |  Entry Points |  Interaction Calls