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

Package: Health Summary

Routine: GMTSRO


Information

GMTSRO ; SLC/JER,KER - All Surgery Reports ; 06/24/2002 [8/3/04 2:10pm]

Source Information

Source file <GMTSRO.m>

Entry Points

Name Comments DBIA/ICR reference
ENSRO ; Entry Point for Surgery Only Component
ENSR ; Entry Point for SURGERY REPORT component
; (includes NON-OR procedures)
SORT ; Sort Surgeries by Inverse Date
WRT ; Write Surgical Case Record
NONOP ; Non-Op Procedure
; Quit if Surgery Only
OPER ; Operative Procedure
SS ; Date/Specialty/Surgeon
SPA ; Status/Principal Anesthetist
PREDX ; Principal Pre-Op Diagnosis
OPREDX ; Other Pre-Op Diagnosis
PSTDX ; Post-Op Diagnosis
OPSTDX ; Other Post-Op Diagnosis
OP ; Operative Procedures
OPM ; Operative Procedures (Modifiers)
OOP ; Other Procedures
OOPM
LAB ; Lab Work
RPTDT ; Dates
DICDT ; Dictation Date
TRCDT ; Transcription Time
RPT ; Dictation

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $G(GMDT),?21,$P($G(GMTSTR),"|"),?47,"Surgeon:",?56,$G(REC(130,GMN,.14,"E")),!
  • Line Location: SS+4
Function Call: WRITE
  • Prompt: ?23,$P($G(GMTSTR),"|",GMI),!
  • Line Location: SS+5
Function Call: WRITE
  • Prompt: ?13,"Status:",?21,$G(REC(130,GMN,"STATUS"))
  • Line Location: SPA+2
Function Call: WRITE
  • Prompt: ?44,"Prin Anest:",?56,$G(REC(130,GMN,.31,"E")),!
  • Line Location: SPA+3
Function Call: WRITE
  • Prompt: ?5,"Pre-op Diag(s):"
  • Line Location: PREDX+1
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ)
  • Line Location: PREDX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PREDX+5
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ)
  • Line Location: OPREDX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OPREDX+5
Function Call: WRITE
  • Prompt: ?4,"Post-op Diag(s):"
  • Line Location: PSTDX+1
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ)
  • Line Location: PSTDX+3
Function Call: WRITE
  • Prompt: " ",$G(REC(130,GMN,"VERIFIED"))
  • Condition for execution: GMJ=1&(GMTSTR?1.A.E)
  • Line Location: PSTDX+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PSTDX+3
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ)
  • Line Location: OPSTDX+3
Function Call: WRITE
  • Prompt: " ",$G(REC(130,GMN,"VERIFIED"))
  • Condition for execution: GMJ=1&(GMTSTR?1.A.E)
  • Line Location: OPSTDX+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OPSTDX+3
Function Call: WRITE
  • Prompt: ?2,"Operative Proc(s):"
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ),!
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"|",GMJ),!
  • Line Location: OPM+4
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ),!
  • Line Location: OOP+5
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"|",GMJ),!
  • Line Location: OOPM+4
Function Call: WRITE
  • Prompt: ?11,"Lab Work: ",$G(REC(130,GMN,"LAB")),!
  • Line Location: LAB+1
Function Call: WRITE
  • Prompt: ?5,"Dictation Time:",?21,GMTSTR
  • Line Location: DICDT+2
Function Call: WRITE
  • Prompt: ?41,"Transcription Time:",?61,GMTSTR
  • Line Location: TRCDT+2
Function Call: WRITE
  • Prompt: "Surgeon's Dictation:",!
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: ?2,$G(REC(130,GMN,1.15,GMI)),!
  • Line Location: RPT+5
Info |  Source |  Entry Points |  Interaction Calls