SDSCEDT ;ALB/JAM/RBS - ASCD Review and Edit SC value for encounters. ;4/24/07 4:29pm
Source file <SDSCEDT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; Called by option "SDSC EDIT BY DATE - Edit encounters by date range"
|
|
| OPT | ; Loop through requested encounter status for specified date range, display each encounter, and allow edit.
|
|
| START1 | ; Called by option "SDSC SINGLE EDIT - Edit single encounter"
|
|
| CHECK | ; Final editing checks for specified encounter.
; Check division, if doesn't match, quit. |
|
| DISPLAY | ; Compile display for the specified encounter into a TMP global.
; Clear scratch global and reset line counter. |
|
| DISPLAY1 | ; Display the specified encounter.
|
|
| INS | ; Compile patient means test and insurance information.
|
|
| POV2S | ; Compile all POV entries for the specified visit.
|
|
| DIS2S | ; Compile all rated disabilities for this patient.
|
|
| VBAICD | ;ASCD (VBA/ICD9) SC evaluation
|
|
| LINE(LINE) | ; Save a line of text into the scratch global.
|
|
| EDIT | ; Allow user to edit the specified encounter or send for review. (Roll and scroll)
|
|
| LEDT | ; ListMan Entry Point for Editing
; If user selected 'SKIP', postpone action on this entry. |
|
| CTUP | ; Update claims tracking file in IB.
|
|
| END | ; Clear all variables before exiting.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^SDSC(409.48 - [#409.48] | Classic Fileman Calls |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |