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

Package: Problem List

Routine: GMPLNTRT


Information

GMPLNTRT ;ISL/JER - Problem List NTRT Mapping Follow-up Report ;06/08/12 13:55

Source Information

Source file <GMPLNTRT.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
Problem List 3 ($$CENTER,$$DATE,$$EDATE,$$LDATE,$$NAME,$$READ,$$STOP,$$TITLE,JUSTIFY)^GMPLUTL1  ($$GETDX,$$NOS)^GMPLX  $$WRAP^GMPLX1  
Registration 2 ($$NAME,$$PRIM,$$SITE)^VASITE  DIVISION^VAUTOMA  
VA Fileman 2 $$EXTERNAL^DILFD  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Problem List 2 GMPL NTRT F/U RPT  GMPLNTFT  

Entry Points

Name Comments DBIA/ICR reference
GATHER(GMPLDI,GMPLA,GMPLEDT,GMPLLDT,GMPLNTST,GMPLPR) ; Gather records that satisfy criteria
ONE(GMPLI,VAUTD,GMPLDI) ; Input - GMPLI Medical Center Division file (#40.8) IEN
SELDIV(GMPLDI) ; Select divisions
NOQUE ; Call report directly
CONTINUE(GMPLDIV,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG) ; Evaluate relative page position
PROVSEL(GMPLY) ; Select Providers
REPORT(GMPLA,GMPLEDT,GMPLLDT) ; Generate report
QUE ; Queue output
DEVICE ; Device handling
; Call with: ZTRTN
ENTRY ; Build & Print Report
MAIN ; Main subroutine
CONTX
HEADER(DIVISION,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG) ; Write Report Header

External References

Name Field # of Occurrence
^%ZIS DEVICE+3
HOME^%ZIS QUE+7
^%ZISC ENTRY+7
^%ZTLOAD QUE+5
$$EXTERNAL^DILFD GATHER+28, GATHER+29, GATHER+30, GATHER+32, GATHER+33
$$GET1^DIQ GATHER+22, GATHER+23, GATHER+25, GATHER+26, GATHER+31
$$CENTER^GMPLUTL1 MAIN+3
$$DATE^GMPLUTL1 REPORT+29, HEADER+1, HEADER+7
$$EDATE^GMPLUTL1 MAIN+13
$$LDATE^GMPLUTL1 MAIN+16
$$NAME^GMPLUTL1 REPORT+27, REPORT+28
$$READ^GMPLUTL1 MAIN+6, MAIN+9, PROVSEL+8, SELDIV+28, CONTINUE+3
$$STOP^GMPLUTL1 REPORT+10, REPORT+37
$$TITLE^GMPLUTL1 HEADER+4
JUSTIFY^GMPLUTL1 HEADER+3, HEADER+4, HEADER+5
$$GETDX^GMPLX REPORT+25
$$NOS^GMPLX GATHER+2
$$WRAP^GMPLX1 REPORT+24
$$NAME^VASITE REPORT+5
$$PRIM^VASITE SELDIV+22
$$SITE^VASITE ONE+2, REPORT+5
DIVISION^VAUTOMA SELDIV+18
$$FMADD^XLFDT GATHER+5
$$NOW^XLFDT REPORT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CENTER^GMPLUTL1("--- Problem List NTRT Mapping Follow-up Report ---"),!
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+8
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: !!,"Select Provider(s):",!
  • Line Location: PROVSEL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PROVSEL+11
Function Call: WRITE
  • Prompt: !!,"Inconsistencies found between the MEDICAL CENTER DIVISION FILE, the INSTITUTION"
  • Line Location: SELDIV+25
Function Call: WRITE
  • Prompt: !,"FILE and/or STATION NUMBER (TIME SENSITIVE) FILE for the:",!!,$S($G(BADDIV)]"":BADDIV_" division"_$S($L(BADDIV,",")>1:"s",1:""),1:"a division you selected"),"."
  • Line Location: SELDIV+26
Function Call: WRITE
  • Prompt: !!,"Please contact the National Support team."
  • Line Location: SELDIV+27
Function Call: WRITE
  • Prompt: $E($$NAME^GMPLUTL1(GMPLRPR,"LAST"),1,10),$$NAME^GMPLUTL1(GMPLRPR,",FI MI")
  • Line Location: REPORT+27
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+28
Function Call: WRITE
  • Prompt: ?40,$$DATE^GMPLUTL1(GMPLMDT,"MM/DD/YY"),?50,GMPLSVC,?58,GMPLCLOC,?70,GMPLSTAT,!
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: ?2,$P(GMPLNARR,"|",GMPLNI),!
  • Line Location: REPORT+32
Function Call: WRITE
  • Prompt: ?2,"SCT: ",GMPLSCTC,?25," ==> ",?40,GMPLICD,!
  • Line Location: REPORT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+35
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 Map",!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?2,"Narrative",?70,"Status",!
  • 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+14
^AUPNPROB("DM" GATHER+8, GATHER+11
^DG(43 - [#43] SELDIV+17
^TMP("GMPLNTRT" ENTRY+2

Label References

Name Line Occurrences
$$CONTINUE REPORT+8, REPORT+9, REPORT+26, REPORT+31, REPORT+33, REPORT+35
@( NOQUE+1
CONTX CONTINUE+2, CONTINUE+4
GATHER ENTRY+4
HEADER REPORT+7, REPORT+14, CONTINUE+5
ONE SELDIV+21, SELDIV+22
PROVSEL MAIN+11
QUE DEVICE+4
REPORT ENTRY+5
SELDIV MAIN+4

Naked Globals

Name Field # of Occurrence
^(1 GATHER+14
^(800 GATHER+14

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~, SELDIV+15!, SELDIV+26, ONE+5*
DIC MAIN+1~
>> DIROUT MAIN+11
DIRUT MAIN+1~, MAIN+4, MAIN+7, MAIN+10, PROVSEL+1~, SELDIV+14~, SELDIV+28*, REPORT+1~, REPORT+10*, REPORT+12
, REPORT+15, REPORT+17, REPORT+19, REPORT+21, REPORT+26, REPORT+30, REPORT+31, REPORT+33, REPORT+35, REPORT+36
, REPORT+37*, CONTINUE+3
DIVISION HEADER~, HEADER+5
DTOUT SELDIV+14~, REPORT+1~
DUOUT SELDIV+14~, REPORT+1~
EQLN REPORT+2~*
GMPL1PR MAIN+1~, MAIN+9*, MAIN+11
GMPLA ENTRY+1~, ENTRY+2*, ENTRY+4, ENTRY+5, ENTRY+6, GATHER~, GATHER+1, GATHER+34, REPORT~, REPORT+6
, REPORT+12, REPORT+15, REPORT+17, REPORT+19, REPORT+21, REPORT+23
GMPLCL GATHER+13~, GATHER+21*, GATHER+25, GATHER+26
GMPLCLA GATHER+13~, GATHER+25*, GATHER+27*, GATHER+34
GMPLCLN GATHER+13~, GATHER+26*, GATHER+27
GMPLCLOC REPORT+22~, REPORT+24*, REPORT+29
GMPLD REPORT+22~, REPORT+23*, REPORT+24, REPORT+25
GMPLD0 GATHER+12~, GATHER+14*, GATHER+15, GATHER+18, GATHER+30, GATHER+31, GATHER+32
GMPLD1 GATHER+12~, GATHER+14*, GATHER+18, GATHER+21
GMPLD800 GATHER+12~, GATHER+14*, GATHER+21, GATHER+33
GMPLDA GATHER+1~, GATHER+2*, GATHER+10~*, GATHER+11*, GATHER+14, GATHER+34, REPORT+20~*, REPORT+21*, REPORT+23
GMPLDI MAIN+1~, MAIN+4, SELDIV~, SELDIV+15!, SELDIV+21, SELDIV+24, SELDIV+28, SELDIV+29, ONE~, ENTRY+4
, GATHER~
GMPLDI( SELDIV+31, SELDIV+32, ONE+3*
GMPLDI("ENTRIES" SELDIV+33*, SELDIV+34*, GATHER+20
GMPLDI("INST" SELDIV+32*, GATHER+20
GMPLDIV GATHER+12~, GATHER+18*, GATHER+20, GATHER+28*, GATHER+34, REPORT+1~, REPORT+11*, REPORT+12*, REPORT+14, REPORT+15
, REPORT+17, REPORT+19, REPORT+21, REPORT+23, REPORT+26, REPORT+31, REPORT+33, REPORT+35, CONTINUE~, CONTINUE+5
GMPLDT GATHER+1~, GATHER+5*, GATHER+8*, GATHER+11
GMPLDTR HEADER+1~*, HEADER+7
GMPLEDT MAIN+1~, MAIN+13*, MAIN+15, ENTRY+4, ENTRY+5, GATHER~, GATHER+5, GATHER+16, REPORT~, REPORT+7
, REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35, CONTINUE~, CONTINUE+5, HEADER~
, HEADER+1
GMPLHLP PROVSEL+1~, PROVSEL+3*, PROVSEL+8
GMPLI PROVSEL+1~*, PROVSEL+7*, PROVSEL+10, SELDIV+14~, SELDIV+21*, SELDIV+22*, ONE~, ONE+2, ONE+3, ONE+5
GMPLICD REPORT+22~, REPORT+25*, REPORT+34
GMPLIFP ONE+1~, ONE+2*, ONE+3
GMPLK SELDIV+30~, SELDIV+31*, SELDIV+32, SELDIV+33
GMPLLDT MAIN+1~, MAIN+16*, MAIN+18, ENTRY+4, ENTRY+5, GATHER~, GATHER+7*, GATHER+8, GATHER+17, REPORT~
, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35, CONTINUE~, CONTINUE+5
, HEADER~, HEADER+1
GMPLLINE HEADER+1~*, HEADER+4, HEADER+11
GMPLMDT GATHER+12~, GATHER+15*, GATHER+16, GATHER+17, GATHER+34, REPORT+18~*, REPORT+19*, REPORT+21, REPORT+23, REPORT+29
GMPLNARR GATHER+12~, GATHER+30*, GATHER+34, REPORT+22~, REPORT+24*, REPORT+30, REPORT+32
GMPLNI REPORT+22~, REPORT+30*, REPORT+32
GMPLNOS GATHER+1~, GATHER+2*
GMPLNTST MAIN+1~, MAIN+6*, ENTRY+4, GATHER~, GATHER+3
GMPLPCOM MAIN+1~
GMPLPG REPORT+1~, REPORT+2*, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35
, CONTINUE~, CONTINUE+5, HEADER~, HEADER+2*, HEADER+3
GMPLPOP GATHER+1~, GATHER+2*, GATHER+8, GATHER+9, GATHER+11, GATHER+16*
GMPLPR MAIN+1~, MAIN+2*, MAIN+11, ENTRY+4, GATHER~, GATHER+19
GMPLPR("I" GATHER+19
GMPLPRMT PROVSEL+1~, PROVSEL+7*, PROVSEL+8
GMPLPRNM REPORT+22~
GMPLPRSN PROVSEL+1~, PROVSEL+8*, PROVSEL+9, PROVSEL+10
GMPLPT REPORT+16~*, REPORT+17*, REPORT+19, REPORT+21, REPORT+23, REPORT+28
GMPLPTL4 GATHER+12~, GATHER+31*, GATHER+32
GMPLPTNM GATHER+12~, GATHER+18*, GATHER+32*, GATHER+34, REPORT+22~
GMPLQUIT PROVSEL+1~*, PROVSEL+6, PROVSEL+9*
GMPLRPR GATHER+12~, GATHER+18*, GATHER+19, GATHER+29*, GATHER+34, REPORT+13~*, REPORT+15*, REPORT+17, REPORT+19, REPORT+21
, REPORT+23, REPORT+27
GMPLRTM REPORT+1~, REPORT+5*, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35
, CONTINUE~, CONTINUE+5, HEADER~, HEADER+7
GMPLSCRN PROVSEL+1~, PROVSEL+4*, PROVSEL+8
GMPLSCTC GATHER+13~, GATHER+21*, GATHER+34, REPORT+22~, REPORT+24*, REPORT+25, REPORT+34
GMPLSHDR REPORT+2~
GMPLSITE REPORT+1~, REPORT+5*
GMPLST0 GATHER+1~, GATHER+3*, GATHER+9
GMPLST1 GATHER+1~, GATHER+3*, GATHER+9
GMPLSTAT GATHER+13~, GATHER+33*, GATHER+34, REPORT+22~, REPORT+25*, REPORT+29
GMPLSTI GATHER+9~*, GATHER+11
GMPLSVC GATHER+13~, GATHER+21*, GATHER+22, GATHER+23, REPORT+22~, REPORT+24*, REPORT+29
GMPLSVCA GATHER+13~, GATHER+22*, GATHER+24*, GATHER+34
GMPLSVCN GATHER+13~, GATHER+23*, GATHER+24
GMPLVBCUC PROVSEL+1~
GMPLY PROVSEL~, PROVSEL+1*, PROVSEL+10*, CONTINUE+1~*, CONTINUE+3*, CONTINUE+4, CONTX
GMPLY( PROVSEL+10*
GMPLY("I" PROVSEL+10*
IO ENTRY+3, REPORT+4
IO("Q" DEVICE+4, QUE+3!
IOF HEADER+3
ION QUE+4
IOSL REPORT+10, REPORT+37, CONTINUE+2
IOST REPORT+10, REPORT+37, CONTINUE+3
POP MAIN+1~, DEVICE+3
SELDIV MAIN+1~, SELDIV+15!, SELDIV+19*, SELDIV+20*, SELDIV+23, SELDIV+24, ONE+3*, ONE+5*
U MAIN+6, SELDIV+17, ONE+2, GATHER+15, GATHER+18, GATHER+21, GATHER+30, GATHER+31, GATHER+32, GATHER+33
, GATHER+34, REPORT+5, REPORT+24, REPORT+25
VAUTD MAIN+1~, SELDIV+14~, SELDIV+20, SELDIV+21, SELDIV+22, ONE~
VAUTD( SELDIV+21, ONE+5
Y SELDIV+14~, SELDIV+19
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