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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROALM

Package: Surgery

Routine: SROALM


Information

SROALM ;BIR/ADM - LIST OF ASSESSMENTS MISSING INFORMATION ;12/05/07

Source Information

Source file <SROALM.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 5 CHK^SROAUTL  CPTS^SROAUTL0  CHK^SROAUTL3  CHK^SROAUTLC  $$MANDIV^SROUTL0  
Registration 1 DEM^VADPT  
VA Fileman 1 D^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROALOG  

Entry Points

Name Comments DBIA/ICR reference
CASE
HDR ; print heading
UTL ; set up TMP global
OTHER ; other operations
TOT
SRSD
GRAND
PRINT ; print assessments
PAGE
LOOP ; break procedures

External References

Name Field # of Occurrence
D^DIQ PRINT+7
CHK^SROAUTL CASE
CPTS^SROAUTL0 PRINT+10
CHK^SROAUTL3 CASE+1
CHK^SROAUTLC CASE+2
$$MANDIV^SROUTL0 SROALM+5
DEM^VADPT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?18,SROPS(I),!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?18,"CPT Codes: "
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?5,"Missing information:"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,$J(CNT_". ",8),"The final coding for Procedure and Diagnosis is not complete."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,$J(CNT_". ",8),$P(SRX(SRFLD),":")
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+15
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"If you want to continue listing incomplete assessments, enter <RET>. Enter",!,"'^' to return to the menu."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J("PAGE "_SRPAGE,9)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"** "_SRSS
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"ASSESSMENT #",?18,"PATIENT",?53,"TYPE",?68,"STATUS",!,"OPERATION DATE",?18,"OPERATION(S)",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR "_SRSS_": ",TOT
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",GRAND
  • Line Location: GRAND+0
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR ALL SPECIALTIES: ",GRAND
  • Line Location: GRAND+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROALM+5, UTL+1, UTL+2, PRINT+3, PRINT+5, OTHER+1, OTHER+2
^SRF("AC" SROALM+4
^SRO(136 - [#136] CASE+4, PRINT+13
^SRO(137.45 - [#137.45] SROALM+3, UTL+2
^TMP("SRA" SROALM+2!, SROALM+6, SROALM+7, UTL+2*, UTL+3*, SRSD

Label References

Name Line Occurrences
CASE SROALM+7, SRSD
GRAND SROALM+8, SROALM+9, SROALM+10, SROALM+11, SROALM+12
HDR SROALM+9, SROALM+10, SROALM+11, PAGE
LOOP PRINT+6
OTHER PRINT+5
PAGE PRINT+2, PRINT+8, PRINT+14, PAGE+2
PRINT CASE+3, CASE+4
SRSD SROALM+6
TOT SROALM+6, GRAND+2
UTL SROALM+5

Naked Globals

Name Field # of Occurrence
^( SROALM+7, SRSD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PRINT+12*, PRINT+13*, PRINT+14*
>> DFN PRINT+3*
DTIME PAGE+1
>> GRAND SROALM+2*, SROALM+8, SROALM+9, SROALM+10, SROALM+11, SROALM+12, CASE+3*, GRAND, GRAND+1
I PRINT+3~, PRINT+5*, PRINT+9*, PRINT+10~, PRINT+11*
IOF HDR+1
IOSL PRINT+2, PRINT+8, PRINT+14
IOST PAGE, HDR+1, HDR+2
>> LINE PRINT+15*, HDR+3*
>> LOOP LOOP+1*
>> M PRINT+6*, LOOP+1
MM PRINT+6!, LOOP+1*
MMM PRINT+6!, LOOP+1*
>> SR("RA" SROALM+5*, UTL+2, UTL+3
>> SRA SROALM+7*, SRSD*, CASE, CASE+1, CASE+2, PRINT+7
>> SRA(0 PRINT+3*
>> SRANM PRINT+3*, PRINT+4*, PRINT+9
>> SRASP SROALM+3, UTL+1
>> SRASSN PRINT+3*
>> SRATYPE CASE*, CASE+1*, CASE+2*, PRINT+9
SRCPTT PRINT+1!*
>> SRDT PRINT+7*, PRINT+9
>> SRED SROALM+4
>> SRFLD CASE+3*, PRINT+14*
>> SRFLG SROALM+3, SROALM+8, SROALM+9, SROALM+10, UTL+1, GRAND+1, GRAND+2
>> SRFRTO HDR+1
>> SRHDR SROALM+2*, PAGE, HDR+4*
>> SRINST HDR+1
>> SRINSTP SROALM+5
SRL PRINT+10~*
>> SRLONG OTHER+1*, OTHER+2
>> SRNEW SROALM+2*, SROALM+7*, SRSD*, PRINT+2, HDR+4*
>> SROPER PRINT+5*, PRINT+6*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS PRINT+6!
SROPS( PRINT+9, LOOP+1*
SROPS(1 PRINT+6*
>> SROTHER PRINT+5*, OTHER+1*, OTHER+2
>> SRPAGE SROALM+2*, HDR+1, HDR+4*
>> SRPRINT HDR+2
SRPROC PRINT+10~
SRPROC( PRINT+11
>> SRSD SROALM+4*, SROALM+7*, UTL+2, UTL+3, SRSD*, PRINT+7
>> SRSOUT SROALM+2*, SROALM+4, SROALM+6, SROALM+7, SROALM+8, SRSD, PRINT+2, PRINT+8, PRINT+14, PRINT+15
, PAGE+1*
>> SRSP SROALM+6, SROALM+7, SROALM+8, SROALM+10, SROALM+11, SROALM+12, UTL+2, HDR+2, GRAND, GRAND+1
, GRAND+2
>> SRSPEC SROALM+3*, SROALM+9, GRAND+2
>> SRSS SROALM+6*, SROALM+9*, SROALM+10*, SROALM+11*, SROALM+12*, UTL+2*, SRSD, HDR+2, TOT, GRAND+2*
>> SRSTATUS PRINT+7*, PRINT+9
>> SRTITLE SROALM+2*, HDR+1
>> SRTN SROALM+4*, SROALM+5, SROALM+7*, UTL+1, UTL+2, UTL+3, SRSD*, CASE+4, PRINT+3, PRINT+5
, PRINT+9, PRINT+13, OTHER+1, OTHER+2
>> SRX( CASE+3, PRINT+14
>> TOT SROALM+2*, SROALM+6, SROALM+7*, SRSD*, CASE+3*, TOT
>> VA("PID" PRINT+3, PRINT+9
VADM PRINT+3!
VADM(1 PRINT+3
>> X PAGE+1*, PAGE+2
>> Y PRINT+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All