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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMPLNTFT

Package: Problem List

Routine: GMPLNTFT


Information

GMPLNTFT ;ISL/JER - Freetext Problem Follow-up Report ;07/09/12 11:45

Source Information

Source file <GMPLNTFT.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
Problem List 3 (PROVSEL,SELDIV)^GMPLNTRT  ($$CENTER,$$DATE,$$EDATE,$$LDATE,$$NAME,$$READ,$$STOP,$$TITLE,JUSTIFY)^GMPLUTL1  $$NOS^GMPLX  
VA Fileman 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
Registration 1 ($$NAME,$$SITE)^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Problem List 1 GMPL FREETEXT F/U REPORT  

Entry Points

Name Comments DBIA/ICR reference
HEADER(DIVISION,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG) ; Write Report Header
GATHER(GMPLDI,GMPLA,GMPLEDT,GMPLLDT,GMPLPR) ; Gather records that satisfy criteria
NOQUE ; Call report directly
CONTINUE(GMPLDIV,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG) ; Evaluate relative page position
QUE ; Queue output
DEVICE ; Device handling
; Call with: ZTRTN
ENTRY ; Build & Print Report
MAIN ; Main subroutine
REPORT(GMPLA,GMPLEDT,GMPLLDT,GMPLPCOM) ; Generate report
CONTX

External References

Name Field # of Occurrence
^%ZIS DEVICE+3
HOME^%ZIS QUE+7
^%ZISC ENTRY+7
^%ZTLOAD QUE+5
$$EXTERNAL^DILFD GATHER+26, GATHER+27, GATHER+28, GATHER+30
$$GET1^DIQ GATHER+20, GATHER+21, GATHER+23, GATHER+24, GATHER+29
PROVSEL^GMPLNTRT MAIN+8
SELDIV^GMPLNTRT MAIN+4
$$CENTER^GMPLUTL1 MAIN+3
$$DATE^GMPLUTL1 REPORT+28, HEADER+1, HEADER+7
$$EDATE^GMPLUTL1 MAIN+13
$$LDATE^GMPLUTL1 MAIN+16
$$NAME^GMPLUTL1 REPORT+26, REPORT+27
$$READ^GMPLUTL1 MAIN+6, MAIN+10, CONTINUE+3
$$STOP^GMPLUTL1 REPORT+10, REPORT+41
$$TITLE^GMPLUTL1 HEADER+4
JUSTIFY^GMPLUTL1 HEADER+3, HEADER+4, HEADER+5
$$NOS^GMPLX GATHER+2
$$NAME^VASITE REPORT+5
$$SITE^VASITE REPORT+5
$$NOW^XLFDT REPORT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CENTER^GMPLUTL1("--- Problem List Freetext Follow-up Report ---"),!
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: $E($$NAME^GMPLUTL1(GMPLRPR,"LAST"),1,10),$$NAME^GMPLUTL1(GMPLRPR,",FI MI")
  • Line Location: REPORT+26
Function Call: WRITE
  • Prompt: ?16,$E($$NAME^GMPLUTL1($P(GMPLPT,"|"),"LAST"),1,10),$$NAME^GMPLUTL1($P(GMPLPT,"|"),",FI MI"),?31," (",$P(GMPLPT,"|",2),")"
  • Line Location: REPORT+27
Function Call: WRITE
  • Prompt: ?40,$$DATE^GMPLUTL1(GMPLMDT,"MM/DD/YY"),?50,GMPLSVC,?58,GMPLCLOC,?70,GMPLNTRT,!
  • Line Location: REPORT+28
Function Call: WRITE
  • Prompt: ?2,GMPLNARR,!
  • Line Location: REPORT+30
Function Call: WRITE
  • Prompt: "Comments: ",!
  • Line Location: REPORT+34
Function Call: WRITE
  • Prompt: GMPLNTC,!
  • Line Location: REPORT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+38
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+39
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: GMPLLINE,!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: "for Problems Modified: ",GMPLDTR,?55,"Printed: ",$$DATE^GMPLUTL1(GMPLRTM,"MM/DD/CCYY HR:MIN"),!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: "Provider",?16,"Patient",?40,"Modified",?50,"Service",?58,"Clinic",?70,"NTRT",!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?2,"Narrative",?70,"Requested",!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: GMPLLINE,!
  • Line Location: HEADER+11
Routine Call
  • %ZIS
  • Line Location:
    • QUE+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^SC - [#44] GET1^DIQ
^DIC(49 - [#49] GET1^DIQ
^AUPNPROB - [#9000011] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] GATHER+10
^AUPNPROB("B" GATHER+7
^TMP("GMPLNTRT" ENTRY+2

Label References

Name Line Occurrences
$$CONTINUE REPORT+8, REPORT+9, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39
@( NOQUE+1
CONTX CONTINUE+2, CONTINUE+4
GATHER ENTRY+4
HEADER REPORT+7, REPORT+14, CONTINUE+5
QUE DEVICE+4
REPORT ENTRY+5

Naked Globals

Name Field # of Occurrence
^(1 GATHER+10
^(800 GATHER+10
^(801 GATHER+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE+1~, QUE+3*
%I MAIN+1~
%T MAIN+1~
%Y MAIN+1~
%ZIS DEVICE+2~, DEVICE+3*
BADDIV MAIN+1~
DIC MAIN+1~
>> DIROUT MAIN+8
DIRUT MAIN+1~, MAIN+4, MAIN+7, MAIN+11, REPORT+1~, REPORT+10*, REPORT+12, REPORT+15, REPORT+17, REPORT+19
, REPORT+21, REPORT+25, REPORT+29, REPORT+31, REPORT+33, REPORT+35, REPORT+37, REPORT+39, REPORT+40, REPORT+41*
, CONTINUE+3
DIVISION HEADER~, HEADER+5
DTOUT REPORT+1~
DUOUT REPORT+1~
EQLN REPORT+2~*
GMPL1PR MAIN+1~, MAIN+6*, MAIN+8
GMPLA ENTRY+1~, ENTRY+2*, ENTRY+4, ENTRY+5, ENTRY+6, GATHER~, GATHER+1, GATHER+32, REPORT~, REPORT+6
, REPORT+12, REPORT+15, REPORT+17, REPORT+19, REPORT+21, REPORT+23
GMPLCAT REPORT+1~
GMPLCL GATHER+9~, GATHER+19*, GATHER+23, GATHER+24
GMPLCLA GATHER+9~, GATHER+23*, GATHER+25*, GATHER+32
GMPLCLN GATHER+9~, GATHER+24*, GATHER+25
GMPLCLOC REPORT+22~, REPORT+24*, REPORT+28
GMPLD REPORT+22~, REPORT+23*, REPORT+24
GMPLD0 GATHER+8~, GATHER+10*, GATHER+13, GATHER+16, GATHER+28, GATHER+29, GATHER+30
GMPLD1 GATHER+8~, GATHER+10*, GATHER+16, GATHER+19
GMPLD800 GATHER+8~, GATHER+10*, GATHER+12
>> GMPLD801 GATHER+10*, GATHER+31
GMPLD8015 GATHER+8~
GMPLDA GATHER+1~, GATHER+2*, GATHER+7*, GATHER+10, GATHER+32, REPORT+20~*, REPORT+21*, REPORT+23
GMPLDI MAIN+1~, MAIN+4, ENTRY+4, GATHER~
GMPLDI("ENTRIES" GATHER+18
GMPLDI("INST" GATHER+18
GMPLDIV GATHER+8~, GATHER+16*, GATHER+18, GATHER+26*, GATHER+32, REPORT+1~, REPORT+11*, REPORT+12*, REPORT+14, REPORT+15
, REPORT+17, REPORT+19, REPORT+21, REPORT+23, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39
, CONTINUE~, CONTINUE+5
GMPLDTR HEADER+1~*, HEADER+7
GMPLEDT MAIN+1~, MAIN+13*, MAIN+15, ENTRY+4, ENTRY+5, GATHER~, GATHER+14, REPORT~, REPORT+7, REPORT+8
, REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39, CONTINUE~, CONTINUE+5
, HEADER~, HEADER+1
GMPLI REPORT+1~
GMPLLDT MAIN+1~, MAIN+16*, MAIN+18, ENTRY+4, ENTRY+5, GATHER~, GATHER+6*, GATHER+15, REPORT~, REPORT+7
, REPORT+8, REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39, CONTINUE~
, CONTINUE+5, HEADER~, HEADER+1
GMPLLINE HEADER+1~*, HEADER+4, HEADER+11
GMPLMDT GATHER+8~, GATHER+13*, GATHER+14, GATHER+15, GATHER+32, REPORT+18~*, REPORT+19*, REPORT+21, REPORT+23, REPORT+28
GMPLNARR GATHER+8~, GATHER+28*, GATHER+32, REPORT+22~, REPORT+24*, REPORT+30
GMPLNOS GATHER+1~, GATHER+2*, GATHER+7
GMPLNTC GATHER+9~, GATHER+31*, GATHER+32, REPORT+22~, REPORT+24*, REPORT+32, REPORT+36
GMPLNTRT GATHER+9~, GATHER+31*, GATHER+32, REPORT+22~, REPORT+24*, REPORT+28
GMPLPCOM MAIN+1~, MAIN+10*, ENTRY+5, REPORT~, REPORT+2*, REPORT+32
GMPLPG REPORT+1~, REPORT+2*, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35
, REPORT+37, REPORT+39, CONTINUE~, CONTINUE+5, HEADER~, HEADER+2*, HEADER+3
GMPLPOP GATHER+1~, GATHER+2*, GATHER+7, GATHER+14*
GMPLPR MAIN+1~, MAIN+2*, MAIN+8, ENTRY+4, GATHER~, GATHER+17
GMPLPR("I" GATHER+17
GMPLPRNM REPORT+22~
GMPLPT REPORT+16~*, REPORT+17*, REPORT+19, REPORT+21, REPORT+23, REPORT+27
GMPLPTL4 GATHER+8~, GATHER+29*, GATHER+30
GMPLPTNM GATHER+8~, GATHER+16*, GATHER+30*, GATHER+32, REPORT+22~
GMPLRPR GATHER+8~, GATHER+16*, GATHER+17, GATHER+27*, GATHER+32, REPORT+13~*, REPORT+15*, REPORT+17, REPORT+19, REPORT+21
, REPORT+23, REPORT+26
GMPLRTM REPORT+1~, REPORT+5*, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35
, REPORT+37, REPORT+39, CONTINUE~, CONTINUE+5, HEADER~, HEADER+7
GMPLSHDR REPORT+2~
GMPLSITE REPORT+1~, REPORT+5*
GMPLSVC GATHER+9~, GATHER+19*, GATHER+20, GATHER+21, REPORT+22~, REPORT+24*, REPORT+28
GMPLSVCA GATHER+9~, GATHER+20*, GATHER+22*, GATHER+32
GMPLSVCN GATHER+9~, GATHER+21*, GATHER+22
GMPLY CONTINUE+1~*, CONTINUE+3*, CONTINUE+4, CONTX
IO ENTRY+3, REPORT+4
IO("Q" DEVICE+4, QUE+3!
IOF HEADER+3
ION QUE+4
IOSL REPORT+10, REPORT+41, CONTINUE+2
IOST REPORT+10, REPORT+41, CONTINUE+3
POP MAIN+1~, DEVICE+3
SELDIV MAIN+1~
U GATHER+13, GATHER+16, GATHER+19, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+32, REPORT+5, REPORT+24
VAUTD MAIN+1~
ZTDESC QUE+4*, QUE+6!
ZTDTH QUE+1~, QUE+6!
ZTIO QUE+1~, QUE+4*, QUE+6!
>> ZTQUEUED REPORT+3
>> ZTREQ REPORT+3*
ZTRTN MAIN+1~, MAIN+19*, NOQUE+1, QUE+2, QUE+6!
ZTSAVE QUE+1~, QUE+6!
ZTSAVE( QUE+3*
ZTSK QUE+1~, QUE+5, QUE+6!
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 |  Naked Globals |  Local Variables |  All