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 |