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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROALMN

Package: Surgery

Routine: SROALMN


Information

SROALMN ;BIR/ADM - LIST OF 1-LINER CASES WITH MISSING INFO ;05/04/07

Source Information

Source file <SROALMN.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 4 CPTS^SROAUTL0  ^SROAUTL2  TECH^SROPRIN  $$MANDIV^SROUTL0  
VA Fileman 2 D^DIQ  EN^DIQ1  
Registration 1 DEM^VADPT  

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
LNR ; check for missing 1-liner information
OTHER ; other operations
TOT
SRSD
GRAND
PRINT ; print assessments
PAGE
LOOP ; break procedures

External References

Name Field # of Occurrence
D^DIQ PRINT+7
EN^DIQ1 LNR+4
CPTS^SROAUTL0 PRINT+10
^SROAUTL2 LNR+4
TECH^SROPRIN LNR+5
$$MANDIV^SROUTL0 SROALMN+4
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),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 the listing, press the 'Enter' key.",!,"Type '^' 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: !!,"CASE #",?18,"PATIENT",?53,"TYPE",?67,"STATUS",!,"OP 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( SROALMN+6, SRSD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PRINT+12*, PRINT+13*, PRINT+14*
DA LNR+1!*, LNR+4!
>> DFN PRINT+3*
DIC LNR+1!*, LNR+4!
DIQ LNR+1!*, LNR+4!
DIQ(0 LNR+1*
DR LNR+1!, LNR+2*, LNR+3*, LNR+4!
DTIME PAGE+1
>> GRAND SROALMN+2*, SROALMN+7, SROALMN+8, SROALMN+9, SROALMN+10, SROALMN+11, CASE+2*, 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*
>> SRA SROALMN+6*, UTL+3*, UTL+5, UTL+6, SRSD*, CASE, CASE+1, PRINT+7
>> SRA(0 PRINT+3*
>> SRANM PRINT+3*, PRINT+4*, PRINT+9
>> SRASP SROALMN+3, UTL+4
>> SRASSN PRINT+3*
>> SRATYPE CASE*, CASE+1*, LNR+2, LNR+3, PRINT+9
SRCPTT PRINT+1!*
>> SRDT PRINT+7*, PRINT+9
>> SRED SROALMN+4
>> SRFLD CASE+2*, PRINT+14*
>> SRFLG SROALMN+3, SROALMN+7, SROALMN+8, SROALMN+9, UTL+4, GRAND+1, GRAND+2
>> SRFRTO HDR+1
>> SRHDR SROALMN+2*, PAGE, HDR+4*
>> SRINST HDR+1
>> SRINSTP SROALMN+4
SRL PRINT+10~*
>> SRLONG OTHER+1*, OTHER+2
>> SRNEW SROALMN+2*, SROALMN+6*, 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 SROALMN+2*, HDR+1, HDR+4*
>> SRPRINT HDR+2
SRPROC PRINT+10~
SRPROC( PRINT+11
>> SRSD SROALMN+4*, SROALMN+6*, UTL+5, UTL+6, SRSD*, PRINT+7
>> SRSOUT SROALMN+2*, SROALMN+4, SROALMN+5, SROALMN+6, SROALMN+7, SRSD, PRINT+2, PRINT+8, PRINT+14, PRINT+15
, PAGE+1*
>> SRSP SROALMN+5, SROALMN+6, SROALMN+7, SROALMN+9, SROALMN+10, SROALMN+11, UTL+5, HDR+2, GRAND, GRAND+1
, GRAND+2
>> SRSPEC SROALMN+3*, SROALMN+8, GRAND+2
>> SRSS SROALMN+5*, SROALMN+8*, SROALMN+9*, SROALMN+10*, SROALMN+11*, UTL+5*, SRSD, HDR+2, TOT, GRAND+2*
>> SRSTATUS PRINT+7*, PRINT+9
>> SRTECH LNR+5
>> SRTITLE SROALMN+2*, HDR+1
>> SRTN SROALMN+4*, SROALMN+6*, UTL+1, UTL+2, UTL+3, UTL+4, UTL+5, UTL+6, SRSD*, CASE+3
, LNR+1, PRINT+3, PRINT+5, PRINT+9, PRINT+13, OTHER+1, OTHER+2
SRX LNR+1!
SRX( CASE+2, PRINT+14
SRX("ANESTHES IA TECHNIQUE" , LNR+5*
SRY LNR+1!, LNR+4!
SRZ LNR+4!
>> TOT SROALMN+2*, SROALMN+5, SROALMN+6*, SRSD*, CASE+2*, TOT
>> VA("PID" PRINT+3, PRINT+9
VADM PRINT+3!
VADM(1 PRINT+3
>> X PRINT+7*, PAGE+1*, PAGE+2
>> Y PRINT+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All