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
Print Page as PDF
Routine: GMRCP85

Package: Consult Request Tracking

Routine: GMRCP85


Information

GMRCP85 ;WAT - Post-install for GMRC*3.0*85 ;12/22/15 07:21

Source Information

Source file <GMRCP85.m>

Entry Points

Name Comments DBIA/ICR reference
RECIP ;RECIPIENTS
PRE ; pre-init
POST ; post init
RESTART ;index redux
QUEUE(GMRCMSG,ZTRTN,ZTDESC) ;CREATE A SPECIFIED TASK
ORDSRCH ;find rejected consult/procedure orders
FINDSVC(GMRCIFN) ; service not directly accessbile in the OR(100 entry, go find it
OUTPUT ;add data to message array
MAIL(XMTEXT,XMSUB,XMY,SUBSCR) ;SEND AN EMAIL
MAILOUT(MESSAGE) ;OUTPUT THE GMRCMSG ARRAY FROM MAIL LINE TAG
OUTPUT2 ;programmer mode write data to screen
HEADER ;header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** REJECTED CONSULT/PROCEDURE ORDERS REPORT ",80," "),!
  • Line Location: RECIP+2
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("DATE DEFAULT VALUE REPORT QUESTIONS ***",80," "),!
  • Line Location: RECIP+3
Function Call: WRITE
  • Prompt: !,"The post-install will create the REJECTED CONSULT/PROCEDURE ORDERS",!
  • Line Location: RECIP+4
Function Call: WRITE
  • Prompt: "REPORT, which contains orders rejected by Consults with the message:",!
  • Line Location: RECIP+5
Function Call: WRITE
  • Prompt: " Code not valid for Coding System",!!
  • Line Location: RECIP+6
Function Call: WRITE
  • Prompt: "The installer MUST include the site's local Clinical Application Coordinators",!
  • Line Location: RECIP+7
Function Call: WRITE
  • Prompt: "(CACs) or other identified points-of-contact as recipients of this report.",!!
  • Line Location: RECIP+8
Function Call: WRITE
  • Prompt: !!,"Please select the recipients for the REJECTED CONSULT/PROCEDURE ORDERS REPORT",!
  • Line Location: RECIP+9
Function Call: WRITE
  • Prompt: "below."
  • Line Location: RECIP+10
Function Call: WRITE
  • Prompt: !,"Queueing file 100 search..."
  • Line Location: RESTART+1
Function Call: WRITE
  • Prompt: "ERROR",!,"Unable to queue the "_GMRCMSG_"; file a Remedy ticket for assistance.",!
  • Line Location: QUEUE+11
Function Call: WRITE
  • Prompt: "DONE",!,"Task #"_ZTSK,!
  • Line Location: QUEUE+15
Function Call: WRITE
  • Prompt: MESSAGE(LINE),!
  • Line Location: MAILOUT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: "PATIENT",!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: " SERVICE"_$$REPEAT^XLFSTR(" ",44)_" ORDER DATE ORDER #"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: HEADER+4
Info |  Source |  Entry Points |  Interaction Calls