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

Package: Consult Request Tracking

Routine: GMRCCD


Information

GMRCCD ;SFVAMC/DAD - Consult Closure Tool: Interactive Consult Update ;01/20/17 15:19

Source Information

Source file <GMRCCD.m>

Entry Points

Name Comments DBIA/ICR reference
INTERACT(GMROOT) ;
; *** Interactive consult update
SHOWPICK(GMROOT,GM0CON,GMEXIT) ;
; *** Show consult & progress notes
; *** Pick progress note to close consult
SHOWNOTE(GMROOT,GM0CON) ;
; *** Show consult & progress notes to user
PICKNOTE(GMROOT,GM0CON,GMEXIT) ;
; *** Pick progress note to close consult
HEADER(GM0CON,GMLINE) ;
; *** Pt name header
FOOTER(GMLINE) ;
; *** Page footer instructions
HANGMSG(GMTEXT,GMTIME,GMBELL) ;
; *** Hang a message on the screen for a time
TYPEAHED(GMBOOL) ;
; *** Enable/Disable type-ahead
COUNT(GMROOT,GMPCNT,GMCCNT,GMNCNT) ;
; *** Count patients / consults / notes
CLINLIST(GMROOT,GM0CFG) ;
; *** Get list of clinics
CONSOKAY(GM0CON) ;
; *** Consult status okay?
NOTESTAT(GMSTAT) ;
; *** Get list of note statuses
ISTM(GM0CFG) ;
; *** Manual patient team associated with configuration?
GLOBROOT(GMFILE,GMTRAN) ;
; *** Get file's global root
SEEN(GMSTAT) ;
; *** Pt was seen in clinic?
UNSEEN(GMSTAT) ;
; *** Pt was not seen in clinic?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PICKNOTE+34
Function Call: WRITE
  • Prompt: @IOF,"Consult closure for patient: "
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: $$GET1^DIQ(123,GM0CON,.02)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(123,GM0CON,".02:.0905"),") "
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: $$DATE^GMRCCC($$GET1^DIQ(123,GM0CON,".02:.03","I"),"5DZ")
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(123,GM0CON,1)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(123,GM0CON,"8:.1"),") "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: $$DATE^GMRCCC($$GET1^DIQ(123,GM0CON,3,"I"),"5DZ")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: !,"Use <PF1>S to Switch between views of the consult and progress note(s)"
  • Line Location: FOOTER+3
Function Call: WRITE
  • Prompt: !,"Use R to Return to the previously viewed consult or progress note(s)"
  • Line Location: FOOTER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HANGMSG+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^GMR(123.033 - [#123.033] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^SC - [#44] LIST^DIC
^TIU(8925.6 - [#8925.6] FIND1^DIC
^XTV(8989.3 - [#8989.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call