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

Package: Problem List

Routine: GMPLRPTR


Information

GMPLRPTR ; SLC/MKB/AJB -- Problem List Report of Removed Problems ;4/10/03

Source Information

Source file <GMPLRPTR.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 WAIT^DICD  ^DIE  ^DIR  
Kernel 2 $$HTFM^XLFDT  $$REPEAT^XLFSTR  
Problem List 2 ($$CODESTS,$$EXTDT,$$PROBTEXT,AUDIT,DTMOD)^GMPLX  ($$NAME,$$PAT)^GMPLX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Problem List 1 GMPL REPLACE PROBLEMS  

Entry Points

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

External References

Name Field # of Occurrence
WAIT^DICD EN+2
^DIE REPLACE+8
^DIR CONTINUE+3, REPLACE+13, SEL+5, SURE+4
$$CODESTS^GMPLX DISPLAY+6, REPLACE+7
$$EXTDT^GMPLX DISPLAY+14
$$PROBTEXT^GMPLX DISPLAY+4, REPLACE+7, REPLACE+11
AUDIT^GMPLX REPLACE+10
DTMOD^GMPLX REPLACE+10
$$NAME^GMPLX1 DISPLAY+14
$$PAT^GMPLX1 EN+1
$$HTFM^XLFDT REPLACE+4
$$REPEAT^XLFSTR HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?10,"No 'removed' problems found for this patient.",!
  • Line Location: EN+3
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+7
Function Call: WRITE
  • Prompt: !," "_$$PROBTEXT^GMPLX(DA)
  • Line Location: REPLACE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: REPLACE+13
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SURE+4
Routine Call
  • DIE
  • Line Location:
    • REPLACE+8
Routine Call
  • DIR
  • Line Location:
    • CONTINUE+3
    • REPLACE+13
    • SEL+5
    • SURE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPROB - [#9000011] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] GETLIST+3
^AUPNPROB("AC" GETLIST+2
^GMPL(125.8 - [#125.8] DISPLAY+7, DISPLAY+8, DISPLAY+9

Label References

Name Line Occurrences
$$CONTINUE DISPLAY+11
$$SEL REPLACE+2
$$SURE REPLACE+2
DISPLAY EN+4
GETLIST EN+2
HDR DISPLAY+1, DISPLAY+11
REPLACE EN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIFN DISPLAY+1~, DISPLAY+8*, DISPLAY+9
CHNGE REPLACE+1~, REPLACE+9*, REPLACE+10
CNT GETLIST+1~*, GETLIST+4*, GETLIST+5
DA REPLACE+1~, REPLACE+8*, REPLACE+9, REPLACE+10, REPLACE+11
DATE DISPLAY+1~, DISPLAY+4*, DISPLAY+10*, DISPLAY+14
DIE REPLACE+1~, REPLACE+8*
DIR CONTINUE+1~, REPLACE+13~, SEL+1~, SURE+1~
DIR("?" SEL+4*, SURE+3*
DIR("A" CONTINUE+2*, SEL+3*, SURE+2*
DIR("B" SURE+2*
DIR(0 CONTINUE+2*, REPLACE+13*, SEL+3*, SURE+2*
DONE DISPLAY+1~, DISPLAY+4!, DISPLAY+7, DISPLAY+8, DISPLAY+10*
DR REPLACE+1~, REPLACE+8*
DT DISPLAY+6, REPLACE+7
>> DTOUT SEL+5
DUZ REPLACE+9
GMPDFN EN+1*, EN+5!, GETLIST+2, HDR+1
GMPLBUF DISPLAY+13~*, DISPLAY+14
GMPLIST EN+5!
GMPLIST( GETLIST+4*, DISPLAY+2, DISPLAY+3, REPLACE+7, REPLACE+8
GMPLIST(0 EN+3, GETLIST+5*, SEL+2
GMPLNO REPLACE+1~, REPLACE+4*, REPLACE+5
GMPLSEL REPLACE+1~, REPLACE+2*, REPLACE+4, REPLACE+5
GMPQUIT DISPLAY+1~, DISPLAY+2, DISPLAY+11*
>> I REPLACE+5*
IDT DISPLAY+1~, DISPLAY+7*, DISPLAY+8, DISPLAY+10
IFN GETLIST+1~, GETLIST+2*, GETLIST+3, GETLIST+4, DISPLAY+3*, DISPLAY+4, DISPLAY+6, DISPLAY+7, DISPLAY+8
IOF HDR+1
IOSL DISPLAY+11
MAX SEL+1~, SEL+2*, SEL+3
NODE GETLIST+1~, GETLIST+3*, DISPLAY+1~, DISPLAY+9*, DISPLAY+10
NOW REPLACE+1~, REPLACE+4*, REPLACE+9
NUM DISPLAY+1~, DISPLAY+2*, DISPLAY+3, DISPLAY+14, REPLACE+1~, REPLACE+5*, REPLACE+7, REPLACE+8
PROBLEM DISPLAY+1~, DISPLAY+4*, DISPLAY+6*, DISPLAY+13, DISPLAY+14
PROV DISPLAY+1~, DISPLAY+4*, DISPLAY+10*, DISPLAY+14
U GETLIST+3, DISPLAY+9, DISPLAY+10, HDR+1, REPLACE+9
USER DISPLAY+1~
X CONTINUE+1~, SEL+1~, SEL+5, SURE+1~
Y CONTINUE+1~, CONTINUE+4, SEL+1~, SEL+5*, SEL+6, SURE+1~, SURE+5
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