Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Summary 5 $$WRAP^GMTSORC  ($$GL,ONE)^GMTSROE  WRT^GMTSRON  ($$ED,$$PROK)^GMTSU  CKP^GMTSUP  
Surgery 1 HS^SROGMTS  

Entry Points

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

External References

Name Field # of Occurrence
$$WRAP^GMTSORC SS+3, PREDX+3, OPREDX+3, PSTDX+2, OPSTDX+2, OP+1, OPM+2, OOP+2, OOPM+2
$$GL^GMTSROE ENSR+2
ONE^GMTSROE WRT+3
WRT^GMTSRON NONOP+7
$$ED^GMTSU SS+2
$$PROK^GMTSU WRT+2, WRT+3, RPT+3, RPT+4
CKP^GMTSUP SS+1, SS+5, SPA+1, PREDX+1, PREDX+5, OPREDX+5, PSTDX+1, PSTDX+3, OPSTDX+3, OP+1
, OP+3, OPM+4, OOP+4, OOPM+4, LAB+1, DICDT+2, TRCDT+2, TRCDT+3, RPT+3, RPT+5
HS^SROGMTS WRT+2

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

Label References

Name Line Occurrences
OPER NONOP+5
SORT ENSR+4
WRT ENSR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN ENSR+2, ENSR+4
GMCOUNT ENSR+2~, ENSR+5*, NONOP+8*, RPT+1*
GMDT SORT+1~*, SORT+2*, SORT+3, WRT+1~, SS+2*, SS+4
GMI WRT+1~, SS+5*, OPREDX+1*, OPREDX+2, OPSTDX+1*, OPSTDX+2, OPM+1*, OPM+2, OOP+1*, OOP+2
, OOPM+1, OOPM+2, RPT+3~, RPT+4*, RPT+5
GMIDT ENSR+2~, ENSR+5*
GMJ WRT+1~, PREDX+4*, PREDX+5, OPREDX+4*, OPREDX+5, PSTDX+3*, OPSTDX+3*, OP+2*, OP+3, OPM+3*
, OPM+4, OOP+3*, OOP+5, OOPM+3*, OOPM+4
GMM OOPM+1~*, OOPM+2
GMN ENSR+2~, ENSR+4*, ENSR+5*, SORT+1, SORT+3, WRT+2, WRT+3, NONOP+2, NONOP+5, NONOP+7
, SS+2, SS+3, SS+4, SPA+2, SPA+3, PREDX+2, PREDX+3, OPREDX+1, OPREDX+2, OPREDX+3
, PSTDX+2, PSTDX+3, OPSTDX+1, OPSTDX+2, OPSTDX+3, OP+1, OPM+1, OPM+2, OOP+1, OOP+2
, OOPM+1, OOPM+2, LAB+1, DICDT+1, TRCDT+1, TRCDT+3, RPT+2, RPT+4, RPT+5
>> GMTSBEG SORT+1
>> GMTSEND SORT+1
GMTSGL ENSR+2~*, ENSR+4, SORT+1
GMTSMX ENSR+2~, ENSR+3*, ENSR+5
>> GMTSNDM ENSR+3
>> GMTSQIT ENSR+5, SS+1, SS+5, SPA+1, PREDX+1, PREDX+4, PREDX+5, PREDX+6, OPREDX+4, OPREDX+5
, OPREDX+6, PSTDX+1, PSTDX+3, OPSTDX+3, OP+1, OP+2, OP+3, OP+4, OPM+1, OPM+3
, OPM+4, OPM+5, OOP+3, OOP+4, OOPM+3, OOPM+4, OOPM+5, OOPM+6, LAB+1, DICDT+2
, TRCDT+2, TRCDT+3, RPT+3, RPT+4, RPT+5, RPT+6
GMTSSO ENSRO+1*, ENSR+6!, NONOP+2, NONOP+7
GMTSTR WRT+1~, SS+3*, SS+4, SS+5, PREDX+2*, PREDX+3*, PREDX+4, PREDX+5, OPREDX+2*, OPREDX+3*
, OPREDX+4, OPREDX+5, PSTDX+2*, PSTDX+3, OPSTDX+2*, OPSTDX+3, OP+1*, OP+2, OP+3, OPM+2*
, OPM+3, OPM+4, OOP+2*, OOP+3, OOP+5, OOPM+2*, OOPM+3, OOPM+4, DICDT+1*, DICDT+2
, TRCDT+1*, TRCDT+2
REC WRT+1~
REC(130 NONOP+2, NONOP+5, NONOP+7, SS+2, SS+3, SS+4, SPA+2, SPA+3, PREDX+2, PREDX+3
, OPREDX+1, OPREDX+2, OPREDX+3, PSTDX+2, PSTDX+3, OPSTDX+1, OPSTDX+2, OPSTDX+3, OP+1, OPM+1
, OPM+2, OOP+1, OOP+2, OOPM+1, OOPM+2, LAB+1, DICDT+1, TRCDT+1, TRCDT+3, RPT+2
, RPT+4, RPT+5
SURG ENSR+2~, ENSR+5
SURG( ENSR+5
SURG(9999999 SORT+2, SORT+3*
U SORT+1
X WRT+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All