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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMPLUTL1

Package: Problem List

Routine: GMPLUTL1


Information

GMPLUTL1 ; SLC/MKB/KER/TC -- PL Utilities (cont) ;01/15/14 11:13

Source Information

Source file <GMPLUTL1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 2 ^%DT  ^DIR  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 ($$LOW,$$UP)^XLFSTR  
Problem List 1 $$NOS^GMPLX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Problem List 2 GMPLNTFT  GMPLNTRT  

Entry Points

Name Comments DBIA/ICR reference
DIAGNOSI ; ICD Diagnosis Pointer
LEXICON ; Clinical Lexicon Pointer
DUPLICAT ; Problem Already on the List
LOCATION ; Hospital Location (Clinic) Pointer
PROVIDER ; Responsible Provider
STATUS ; Problem Status
ONSET ; Date of Onset
RESOLVED ; Date Resolved (Requires STATUS, ONSET)
RECORDED ; Date Recorded (Requires ONSET)
SC ; SC condition flag
AO ; AO exposure flag (Requires GMPAGTOR)
IR ; IR exposure flag (Requires GMPION)
EC ; EC exposure flag (Requires GMPGULF)
HNC ; HNC/NTR exposure flag (Requires GMPHNC)
MST ; MST exposure flag (Requires GMPMST)
CV ; CV exposure flag (Requires GMPCV)
SHD ; SHD exposure flag (Requires GMPSHD)
CENTER(X) ; Center X
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
READX
EDATE(PRMPT,STATUS,DFLT) ; Get early date
LDATE(PRMPT,STATUS,DFLT) ; Get late date
STOP(PROMPT,SCROLL) ; Call DIR at bottom of screen
STOPX
DATE(X,FMT) ; Call with X=2910419.01 and FMT=Return Format of date ("MM/DD")
QDATE
TIME(X,FMT) ; Recieves X as 2910419.01 and FMT=Return Format of time (HH:MM:SS).
NAME(X,FMT) ; Call with X="LAST,FIRST MI", FMT=Return Format ("LAST, FI")
NAMEX
TITLE(X) ; Pads titles
; Recieves: X=title to be padded
JUSTIFY(X,JUST) ; Justifies Text
; Receives: X=text to be justified
; JUST="L" --> left, "C" --> center, "R" --> right,
; "J" --> justified to WIDTH
; WIDTH=justification width (when JUST="j"

External References

Name Field # of Occurrence
^%DT ONSET+3, RESOLVED+3, RECORDED+3
^DIR READ+7, STOP+6
$$NOS^GMPLX DIAGNOSI+2, DUPLICAT+3
$$ICDDATA^ICDXCODE DIAGNOSI+3
$$LOW^XLFSTR NAME+4
$$UP^XLFSTR DUPLICAT+9, STATUS+2, NAME+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: ?((80-$L(X))/2),X
  • Line Location: JUSTIFY+5
Function Call: WRITE
  • Prompt: X,!!
  • Line Location: JUSTIFY+6
Function Call: WRITE
  • Prompt: ?(80-$L(X)),X
  • Line Location: JUSTIFY+7
Routine Call
  • DIR
  • Line Location:
    • READ+7
    • STOP+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] DUPLICAT+7
^AUPNPROB("AC" DUPLICAT+4, DUPLICAT+5
^AUPNPROB("B" DUPLICAT+4
^AUTNPOV - [#9999999.27] DUPLICAT+9
^GMPL(125.99 - [#125.99] DUPLICAT+2
^LEX(757.01 - [#757.01] LEXICON+2
^SC - [#44] LOCATION+2
^VA(200 - [#200] PROVIDER+2

Label References

Name Line Occurrences
$$READ EDATE+5, LDATE+5
$$TIME DATE+7
NAMEX NAME+2
QDATE DATE+2
READX READ+8
STOPX STOP+2

Naked Globals

Name Field # of Occurrence
^(0 LOCATION+2
^(1 DUPLICAT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ONSET+1~, ONSET+3*, RESOLVED+1~, RESOLVED+3*, RECORDED+1~, RECORDED+3*
%DT(0 ONSET+3*, RESOLVED+3*, RECORDED+3*
AMTH DATE+1~, DATE+5*
CC DATE+1~, DATE+4*
DD DATE+1~, DATE+4*
DEFAULT READ~, READ+5
DFLT EDATE~, EDATE+4, LDATE~, LDATE+4
DIR READ+1~, STOP+1~
DIR("?" READ+6*, STOP+5*
DIR("A" READ+4*, STOP+4*
DIR("B" READ+5*
DIR("S" READ+3*
DIR(0 READ+2*, STOP+4*
DIRUT STOP+6!
DTOUT STOP+1~, STOP+7
DUPL DUPLICAT+1~
DUPL(1 DUPLICAT+6*, DUPLICAT+8*, DUPLICAT+10
DUPL(2 DUPLICAT+6*, DUPLICAT+9*, DUPLICAT+10
FMT DATE~, DATE+2*, DATE+3*, DATE+5, DATE+6*, DATE+7*, QDATE, TIME~, TIME+2*, TIME+4*
, TIME+5, NAME~, NAME+2*, NAME+3*, NAME+4*, NAME+9*, NAMEX
>> GMPAGTOR AO+3
>> GMPCV CV+3
>> GMPDFN DUPLICAT+4, DUPLICAT+5
GMPFIRST NAME+1~, NAME+5*, NAME+6, NAME+7, NAME+8*
>> GMPGULF EC+3
>> GMPHNC HNC+3
GMPICDSY DIAGNOSI+1~*, DIAGNOSI+3
>> GMPION IR+3
GMPLDFLT EDATE+1~, EDATE+4*, EDATE+5, LDATE+1~, LDATE+4*, LDATE+5
GMPLFI NAME+1~, NAME+6*
GMPLI DATE+1~, DATE+6*, TIME+1~, TIME+4*, NAME+1~, NAME+9*
GMPLLAST NAME+1~, NAME+5*
GMPLLI NAME+1~, NAME+5*
GMPLMI NAME+1~, NAME+7*
GMPLPRMT EDATE+1~, EDATE+3*, EDATE+5, LDATE+1~, LDATE+3*, LDATE+5
GMPLTMP DATE+1~, DATE+2*
>> GMPMST MST+3
>> GMPQUIT DIAGNOSI+4*, LEXICON+3*, DUPLICAT+5, DUPLICAT+10*, LOCATION+3*, PROVIDER+3*, STATUS+3*, ONSET+5*, RESOLVED+4*, RESOLVED+5*
, RESOLVED+6*, RECORDED+4*, RECORDED+5*, SC+2*, SC+3*, AO+2*, AO+3*, IR+2*, IR+3*, EC+2*
, EC+3*, HNC+2*, HNC+3*, MST+2*, MST+3*, CV+2*, CV+3*, SHD+2*, SHD+3*
>> GMPSC SC+3
>> GMPSHD SHD+3
HELP READ~, READ+6
HR TIME+1~, TIME+3*
I TITLE+2~, TITLE+3*
>> IFN DUPLICAT+5*, DUPLICAT+7, DUPLICAT+8, DUPLICAT+9
IOM CENTER+2
IOSL STOP+3
IOST STOP+2
JUST JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7
MIN TIME+1~, TIME+3*
MM DATE+1~, DATE+4*, DATE+5
NODE0 DUPLICAT+1~, DUPLICAT+7*, DUPLICAT+8, DUPLICAT+9
NODE1 DUPLICAT+1~, DUPLICAT+7*
>> PL("AO" AO+1*, AO+2, AO+3
>> PL("CODESYS" DIAGNOSI+1
>> PL("CV" CV+1*, CV+2, CV+3
>> PL("DIAGNOSIS" DIAGNOSI+2*, DIAGNOSI+3, DUPLICAT+3*, DUPLICAT+4, DUPLICAT+8
>> PL("DX_DATE_OF_INTEREST" DIAGNOSI+3
>> PL("EC" EC+1*, EC+2, EC+3
>> PL("HNC" HNC+1*, HNC+2, HNC+3
>> PL("IR" IR+1*, IR+2, IR+3
>> PL("LEXICON" LEXICON+1*, LEXICON+2
>> PL("LOCATION" LOCATION+1*, LOCATION+2*
>> PL("MST" MST+1*, MST+2, MST+3
>> PL("NARRATIVE" DUPLICAT+9
>> PL("ONSET" ONSET+2*, ONSET+3, ONSET+4*, RESOLVED+6, RECORDED+5
>> PL("PROVIDER" PROVIDER+1*, PROVIDER+2
>> PL("RECORDED" RECORDED+2*, RECORDED+3, RECORDED+5, RECORDED+6*
>> PL("RESOLVED" RESOLVED+2*, RESOLVED+3, RESOLVED+7*
>> PL("SC" SC+1*, SC+2, SC+3
>> PL("SHD" SHD+1*, SHD+2, SHD+3
>> PL("STATUS" STATUS+1*, STATUS+2*, RESOLVED+5
>> PLY(0 DIAGNOSI+4*, LEXICON+3*, DUPLICAT+10*, LOCATION+3*, PROVIDER+3*, STATUS+3*, ONSET+5*, RESOLVED+4*, RESOLVED+5*, RESOLVED+6*
, RECORDED+4*, RECORDED+5*, SC+2*, SC+3*, AO+2*, AO+3*, IR+2*, IR+3*, EC+2*, EC+3*
, HNC+2*, HNC+3*, MST+2*, MST+3*, CV+2*, CV+3*, SHD+2*, SHD+3*
PRMPT EDATE~, EDATE+3, LDATE~, LDATE+3
PROMPT READ~, READ+4, STOP~, STOP+4
SCREEN READ~, READ+3
SCROLL STOP~, STOP+3
SEC TIME+1~, TIME+3*
SP CENTER+1~, CENTER+2*, CENTER+3
STATUS EDATE~, EDATE+2, LDATE~, LDATE+2
TITLE TITLE+2~, TITLE+3*, TITLE+4
TYPE READ~, READ+2
U DIAGNOSI+3, DUPLICAT+2, DUPLICAT+7, DUPLICAT+9, LOCATION+2, STATUS+2, SC+2, AO+2, IR+2, EC+2
, HNC+2, MST+2, CV+2, SHD+2, READ+9, STOP+7
X ONSET+1~, ONSET+3*, RESOLVED+1~, RESOLVED+3*, RECORDED+1~, RECORDED+3*, CENTER~, CENTER+2, CENTER+3, READ+1~
, READ+8, EDATE+1~, LDATE+1~, STOP+1~, DATE~, DATE+2, DATE+4, DATE+7, TIME~, TIME+3*
, NAME~, NAME+2, NAME+5, TITLE~, TITLE+3, JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7
Y ONSET+1~, ONSET+4, RESOLVED+1~, RESOLVED+4, RESOLVED+6, RESOLVED+7, RECORDED+1~, RECORDED+4, RECORDED+6, READ+1~
, READ+8*, READ+9*, READX, EDATE+1~, EDATE+2*, EDATE+5*, EDATE+6, LDATE+1~, LDATE+2*, LDATE+5*
, LDATE+6, STOP+1~, STOP+2*, STOP+6, STOP+7*, STOPX
Y(0 READ+9
YY DATE+1~, DATE+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All