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

Package: Health Summary

Routine: GMTSRAS


Information

GMTSRAS ; SLC/JER,KER HIN/GJC - Radiology Profile ; 04/19/2002

Source Information

Source file <GMTSRAS.m>

Entry Points

Name Comments DBIA/ICR reference
ENSRA ; Controls branching
LOOP ; Loops through ^TMP("RAE",$J,
WRT ; Writes component data
SSET ; Output for Non-Printsets (single exam) (GMPSET=0)
;
; Procedure Modifiers, Procedure Status,
; CPT Code, CPT Modifiers, Interpreting Staff,
; Interpreting Resident, Report Status,
; Technologist, Report Text
;
PSET ; Output for Printsets (GMPSET=1)
;
; Procedure Modifiers, Procedure Status,
; CPT Code, CPT Modifier, Report Status,
; Technologist
;
LSET ; Last Set/Case in Printset
;
; Interpreting Staff, Interpreting Resident, Report Status,
; Technologist, Report Text
;
DAT ; Date +1
PRO ; Procedure 2
CAS ; Case Number 9
EST ; Exam Status 3
RST ; Report Status 4
INR ; Interpreting Resident 5
INS ; Interpreting Staff 6
CPT ; CPT Code 7
TEC ; Technologist 8
STT ; Report Status/Technologist 4/8
CMD ; CPT Modifiers
PMD ; Procedure Modifiers
RPT ; Report Text
TXT(X) ; Report Text Lines
BL ; Report Blank Lines
RP(X) ; Radiology Patient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?12,$P(GMTSA,"|"),!
  • Line Location: PRO+3
Function Call: WRITE
  • Prompt: ?12,"Exam Case Number:",?33,GMTSA,!
  • Line Location: CAS+3
Function Call: WRITE
  • Prompt: ?12,"Exam Status:",?33,GMTSA,!
  • Line Location: EST+3
Function Call: WRITE
  • Prompt: ?12,"Rpt Status: ",GMTSA,!
  • Line Location: RST+3
Function Call: WRITE
  • Prompt: ?12,"Interpreting Res.:",?33,GMTSA,!
  • Line Location: INR+3
Function Call: WRITE
  • Prompt: ?12,"Interpreting Staff:",?33,GMTSA,!
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: ?12,"CPT Code:",?25,GMTSA,!
  • Line Location: CPT+3
Function Call: WRITE
  • Prompt: ?12," Technologist: ",GMTSA,!
  • Line Location: TEC+3
Function Call: WRITE
  • Prompt: ?12,"Rpt Status: ",$E($G(GMTSA),1,18)
  • Line Location: STT+3
Function Call: WRITE
  • Prompt: ?45," Technologist: ",$G(GMTSB),!
  • Line Location: STT+3
Function Call: WRITE
  • Prompt: ?12,"CPT Modifier:"
  • Condition for execution: GMTSCNT=1
  • Line Location: CMD+11
Function Call: WRITE
  • Prompt: ?28,$P(GMTSCT,"|"),!
  • Line Location: CMD+11
Function Call: WRITE
  • Prompt: ?33,^TMP("RAE",$J,GMTSIDT,GMTSPN,"M",GMI),!
  • Line Location: PMD+4
Function Call: WRITE
  • Prompt: ?GMTSIND,$S(GMTST="S":"Reason for Study: ",GMTST="H":"History: ",GMTST="A":"Additional History: ",GMTST="R":"Report: ",GMTST="I":"Impression: ",GMTST="D":"DX Codes: ",1:"Text:"),!
  • Line Location: TXT+7
Function Call: WRITE
  • Prompt: ?(GMTSIND+2),$P(X,"|",1),!
  • Line Location: TXT+14
Function Call: WRITE
  • Prompt: ?(GMTSIND+2),$G(^UTILITY($J,"W",0,GMTSI,0)),!
  • Line Location: TXT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: BL+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call