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

Package: Health Summary

Routine: GMTSADH1


Information

GMTSADH1 ;SLC/JER,MAM - Ad Hoc Summary Driver ; 09/21/2001

Source Information

Source file <GMTSADH1.m>

Entry Points

Name Comments DBIA/ICR reference
GETLIM ; Get Limits/Flags (external entry)
;
; Time
; Occurrence
; Selection Items
; Hospital Location Display
; ICD Text Display
; Provider Narrative Display
; CPT Modifier Display
;
LIST ; Lists defaults for Ad Hoc Summary
LIST1 ; Called by GMTSUP to list components
; FLG=1 for Ad Hoc Health Summary Type
; FLG=2 for other Health Summary Types
SCRNLNTH ; Checks screen length
LISTLIM ; List Components and Limits for GMTSET() array
; Component Abbreviation
; Component Name
; If not called by GMTSUP:
; Time Limits
; Occurrence Limits
; Hospital Location
; ICD Text
; Provider Narrative
; CPT Modifier
;
STAR ; Writes * to indicate added component when called by
; GMTSUP for Health Summary Type other than AD HOC
LISTSEL ; Lists default selection items
ASKCMPS ; Asks for components for new limits/sel items
CMPCOND ; Checks component for new limits/sel items
ASKLIST ; Asks whether to relist Component

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!," Default Limits and Selection Items",!!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: " Component Occ Time Hosp ICD Prov CPT Selection",!
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: " Limit Limit Loc Txt Narr Mod Item(s)",!
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SCRNLNTH+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCRNLNTH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTLIM+11
Function Call: WRITE
  • Prompt: $P(CREC,U,4),?5,$S($L($P(GMTSEG(GMI),U,5)):$P(GMTSEG(GMI),U,5),$L($P(CREC,U,9)):$P(CREC,U,9),1:$E($P(CREC,U),1,24))
  • Line Location: LISTLIM+12
Function Call: WRITE
  • Prompt: " "
  • Line Location: STAR+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: STAR+3
Function Call: WRITE
  • Prompt: ?64,$E($P(@(GMTSEG(GMI,GMJ,0)_GMTSEG(GMI,GMJ,GML)_",0)"),U),1,15)
  • Line Location: LISTSEL+2
Function Call: WRITE
  • Prompt: !!,"To change limits, selection items, hospital location display, ICD"
  • Line Location: ASKCMPS+2
Function Call: WRITE
  • Prompt: !,"text display, provider narrative display, or CPT Modifiers, enter "
  • Line Location: ASKCMPS+3
Function Call: WRITE
  • Prompt: !,"components, one at a time or more than one, separated by commas."
  • Line Location: ASKCMPS+4
Function Call: WRITE
  • Prompt: !,"You may select new components if you wish."
  • Line Location: ASKCMPS+5
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: ASKCMPS+12
Function Call: WRITE
  • Prompt: !!,$P(Y(GMI),U,3)
  • Line Location: ASKCMPS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLIST+1
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: ASKLIST+4
Info |  Source |  Entry Points |  Interaction Calls