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

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main subroutine
DEVICE ; Device handling
; Call with: ZTRTN
NOQUE ; Call report directly
QUE ; Queue output
ENTRY ; Build & Print Report
GATHER(GMPLDI,GMPLA,GMPLEDT,GMPLLDT,GMPLPR) ; Gather records that satisfy criteria
REPORT(GMPLA,GMPLEDT,GMPLLDT,GMPLPCOM) ; 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 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

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