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

Package: Consult Request Tracking

Routine: GMRCICMT


Information

GMRCICMT ;SLC/JFR - IFC Possible Erroneous Comments Report; Jan 19,2024@14:05

Source Information

Source file <GMRCICMT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main
BEGDT ;
MAKERPT(GMBEG) ;
GETIFCS ; Get IFCs
ACTS ; Get IFC activities
RPTACT ;
RPTCSLT ;
RPTCMTS ;
NOREC ; Print the no records found message
HDR(PAGE) ; Print the page hdr and increment page number

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Queued to Print, Task # ",ZTSK
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"Sorry, Try again Later"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGDT+3
Function Call: WRITE
  • Prompt: !!,"Enter beginning date for the IFC selection:",!
  • Line Location: BEGDT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGDT+13
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("End of Report",80),!!
  • Line Location: MAKERPT+22
Function Call: WRITE
  • Prompt: !,"Possible Erroneous Comment: "_$TR($J(ACTCNT,10)," ")_"/"_$TR($J(TOTCNT,10)," ")
  • Line Location: RPTCSLT+3
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RPTCSLT+8
Function Call: WRITE
  • Prompt: !,"Consult #: ",GMRCO
  • Line Location: RPTCSLT+9
Function Call: WRITE
  • Prompt: !,PTNM,$$REPEAT^XLFSTR(" ",51-$L(PTNM)),PTSSN
  • Line Location: RPTCSLT+10
Function Call: WRITE
  • Prompt: !,REMSIT,$$REPEAT^XLFSTR(" ",51-$L(REMSIT)),REMNUM
  • Line Location: RPTCSLT+11
Function Call: WRITE
  • Prompt: !,GMRCX2,$$REPEAT^XLFSTR(" ",51-$L(GMRCX2)),GMRCX
  • Line Location: RPTCSLT+16
Function Call: WRITE
  • Prompt: !,"TIU Document #: ",GMRCX
  • Line Location: RPTCSLT+19
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RPTCSLT+20
Function Call: WRITE
  • Prompt: !,"Activity Date/Time File Entry Date/Time Service Name"
  • Line Location: RPTCSLT+21
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: RPTCSLT+22
Function Call: WRITE
  • Prompt: !,GMRCX2_$E(TAB,1,21-$L(GMRCX2))_GMRCODT_$E(TAB,1,22-$L(GMRCODT))_GMRCNM
  • Line Location: RPTCSLT+27
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RPTCSLT+28
Function Call: WRITE
  • Prompt: !,GMRCLINE
  • Line Location: RPTCMTS+5
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RPTCMTS+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79)
  • Line Location: RPTCMTS+7
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("No IFC possible erroneous comments to report",80),!
  • Line Location: NOREC+1
Function Call: WRITE
  • Prompt: $C(12)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"IFC Possible Erroneous Comments Report"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?44,$$FMTE^XLFDT($$NOW^XLFDT),?69,"Page: ",PAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(GMRCX,80),!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"No automated modification will be made to inter-facility consults that are "
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"identified with possible erroneous comments at this time."
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79),!
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79)
  • Line Location: HDR+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call