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

Package: Consult Request Tracking

Routine: GMRCSTS1


Information

GMRCSTS1 ;SLC/JFR,MA - GROUP UPDATE OF CONSULTS cont'd ;4/18/01 10:31

Source Information

Source file <GMRCSTS1.m>

Entry Points

Name Comments DBIA/ICR reference
PROCESS(GMRCCVT,GMRCMT) ;Update consult status by service and date range
PRINT(GMRCM,GMRCCVT,GMRCSVC,GMRCMT,GMRCSTRT,GMRCSTOP,GMRCDO) ;untasked print of records to update
PRTTSK ; print the report then start the processing
; GMRCM= status of records to find A:active, P:pending, B:Both
; GMRCCVT= status to update records with 1:dc, 2:complete
; GMRCSVC= IEN from file 123.5
; GMRCMT= array (passed by reference) of comment to stuff in records
; GMRCSTRT= first entry date to find/update
; GMRCSTOP= last entry date to find/update
; GMRCDO= 1:print only, 2:print and update records
; GMRCSTAT= Status of consult for the report (P,A,S)
END
HDR(PAGE) ; print the header for the report
GETENTS(SERV,STRDT,STPDT,SRCH)
GETDATA ; Write ^GMR(123,IEN,0) to TMP
AUDIT(GMRCO,UPDSTS,GMRCOM) ;Update the processing activity of the consult
STSUPD(GMRCO,UPDSTS) ;change status of consult to COMPLETE or DC
CPRSUPDT(GMRCO,UPDSTS) ;Update CPRS order with new status
UPDCRIT(UPD,STS,SVC,CMT,START,STOP) ;print update criteria on page 1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No records found meeting search criteria"
  • Line Location: PRTTSK+14
Function Call: WRITE
  • Prompt: !,GMRCIEN,?8,$$FMTE^XLFDT(+^GMR(123,GMRCIEN,0))
  • Line Location: PRTTSK+19
Function Call: WRITE
  • Prompt: ?29,$E($$GET1^DIQ(2,$P(^GMR(123,GMRCIEN,0),U,2),.01),1,26)
  • Line Location: PRTTSK+20
Function Call: WRITE
  • Prompt: ?56,$$GET1^DIQ(2,$P(^GMR(123,GMRCIEN,0),U,2),.09)
  • Line Location: PRTTSK+21
Function Call: WRITE
  • Prompt: ?70,$S(GMRCSTAT=5:"p",GMRCSTAT=6:"a",GMRCSTAT=8:"s",1:"?")
  • Line Location: PRTTSK+23
Function Call: WRITE
  • Prompt: " to ",$S(+GMRCCVT=1:"dc",1:"c")
  • Line Location: PRTTSK+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?49,"Printed: ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Consult",?70,"Status"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Number Requested Patient SSN Change"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"Searching database for entries matching search criteria",!
  • Line Location: GETENTS+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETDATA+5
Function Call: WRITE
  • Prompt: !,"Records will be updated for:"
  • Line Location: UPDCRIT+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: UPDCRIT+8
Function Call: WRITE
  • Prompt: !," Service: "_$$GET1^DIQ(123.5,SVC,.01)
  • Line Location: UPDCRIT+9
Function Call: WRITE
  • Prompt: !," Beginning: "_$$FMTE^XLFDT(START)
  • Line Location: UPDCRIT+10
Function Call: WRITE
  • Prompt: !," Ending: "_$$FMTE^XLFDT(STOP)
  • Line Location: UPDCRIT+11
Function Call: WRITE
  • Prompt: !," Update: "_GMRCSTS_" "_" Consults"
  • Line Location: UPDCRIT+12
Function Call: WRITE
  • Prompt: !," To: "_$S(+UPD=2:"COMPLETE",1:"DISCONTINUED")
  • Line Location: UPDCRIT+13
Function Call: WRITE
  • Prompt: !," Update Comment:"
  • Line Location: UPDCRIT+14
Function Call: WRITE
  • Prompt: !,CMT(I,0)
  • Line Location: UPDCRIT+16
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78),!
  • Line Location: UPDCRIT+17

FileMan Files Accessed Via FileMan Db Call

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