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

Package: Health Summary

Routine: GMTSRON


Information

GMTSRON ; SLC/JER,KER - Surgery Reports ; 06/24/2002 [7/27/04 9:00am]

Source Information

Source file <GMTSRON.m>

Entry Points

Name Comments DBIA/ICR reference
ENSR ; Entry point for component
SORT ; Sort surgeries by inverted date
WRT ; Write surgical case record
NONOR ; NON-OR information
SP ; Date/Specialty/Provider
SA ; Status/Attending
PA ; Principal Anesthetist
PD ; Principle Diagnosis
PP ; Principal Procedure
PPM ; Principal Procedure (Modifiers)
OPP ; Other Procedure Performed
OPPM
IND ; Indications for Surgery
FIND ; Findings
DICT ; Dictation
CHK() ; For selected procedures see if you have a match

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: GMDT,?21,$P($G(GMTSTR),"|"),?47,"Provider: ",?56,$G(REC(130,GMN,123,"E")),!
  • Line Location: SP+5
Function Call: WRITE
  • Prompt: ?23,$P($G(GMTSTR),"|",GMI),!
  • Line Location: SP+6
Function Call: WRITE
  • Prompt: ?13,"Status:",?21,$G(REC(130,GMN,"STATUS"))
  • Line Location: SA+2
Function Call: WRITE
  • Prompt: ?46,"Attending: ",?56,$G(REC(130,GMN,124,"E")),!
  • Line Location: SA+3
Function Call: WRITE
  • Prompt: ?45,"Prin Anest: ",?56,$G(REC(130,GMN,.31,"E")),!
  • Line Location: PA+2
Function Call: WRITE
  • Prompt: ?9,"Princ Diag: ",$P($G(GMTSTR),"|"),!
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: ?21,$P($G(GMTSTR),"|",GMI),!
  • Line Location: PD+4
Function Call: WRITE
  • Prompt: ?5,"Proc Performed: "
  • Line Location: PP+1
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ),!
  • Line Location: PP+6
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"|",GMJ),!
  • Line Location: PPM+4
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"|",GMJ),!
  • Line Location: OPP+5
Function Call: WRITE
  • Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"|",GMJ),!
  • Line Location: OPPM+5
Function Call: WRITE
  • Prompt: "Indication for Proc:"
  • Condition for execution: GMC=1
  • Line Location: IND+3
Function Call: WRITE
  • Prompt: ?21,$G(REC(130,GMN,55,"S",GMI)),!
  • Line Location: IND+3
Function Call: WRITE
  • Prompt: " Operative Findings:"
  • Condition for execution: GMC=1
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: ?21,$G(REC(130,GMN,59,"S",GMI)),!
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: "Surgeon's Dictation:",!
  • Line Location: DICT+2
Function Call: WRITE
  • Prompt: ?2,$G(REC(130,GMN,1.15,GMI)),!
  • Line Location: DICT+4

FileMan Files Accessed Via FileMan Db Call

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