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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMPLNTRT

Package: Problem List

Routine: GMPLNTRT


Information

GMPLNTRT ;ISL/JER - Problem List NTRT Mapping Follow-up Report ; 6/19/18 12:53pm

Source Information

Source file <GMPLNTRT.m>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call