SDSCEDT ;ALB/JAM/RBS - ASCD Review and Edit SC value for encounters. ; 4/24/07 4:29pm
Source file <SDSCEDT.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 6 | $$GETOE^SDOE GETPDX^SDOERPC $$SC^SDSCAPI CLM^SDSCCLM GETDATE^SDSCOMP ($$ANCPKG,$$LOCK,$$SCSEL,$$SENS,CONT,DIV,STEDT,TYPE,UNLOCK)^SDSCUTL |
VA Fileman | 5 | EN^DDIOL ^DIC ^DIK $$GET1^DIQ ^DIR |
Kernel | 4 | HOME^%ZIS $$FMTE^XLFDT $$UP^XLFSTR $$NAME^XUSER |
Registration | 3 | $$BIL^DGMTUB RDIS^DGRPDB (DEM,KVA)^VADPT |
Integrated Billing | 2 | $$INSUR^IBBAPI $$RNBU^IBRSUTL |
DRG Grouper | 1 | $$ICDDX^ICDCODE |
PCE Patient Care Encounter | 1 | $$INTV^PXAPI |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 4 | SDSC EDIT BY DATE SDSC SINGLE EDIT SDSCLST SDSCMSR |
Name | Comments | DBIA/ICR reference |
---|---|---|
OPT | ; Loop through requested encounter status for specified date range, display each encounter, and allow edit.
|
|
DIS2S | ; Compile all rated disabilities for this patient.
|
|
LEDT | ; ListMan Entry Point for Editing
; If user selected 'SKIP', postpone action on this entry. |
|
EDIT | ; Allow user to edit the specified encounter or send for review. (Roll and scroll)
|
|
START1 | ; Called by option "SDSC SINGLE EDIT - Edit single encounter"
|
|
DISPLAY | ; Compile display for the specified encounter into a TMP global.
; Clear scratch global and reset line counter. |
|
START | ; Called by option "SDSC EDIT BY DATE - Edit encounters by date range"
|
|
CTUP | ; Update claims tracking file in IB.
|
|
VBAICD | ;ASCD (VBA/ICD9) SC evaluation
|
|
DISPLAY1 | ; Display the specified encounter.
|
|
END | ; Clear all variables before exiting.
|
|
INS | ; Compile patient means test and insurance information.
|
|
CHECK | ; Final editing checks for specified encounter.
; Check division, if doesn't match, quit. |
|
POV2S | ; Compile all POV entries for the specified visit.
|
|
LINE(LINE) | ; Save a line of text into the scratch global.
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | START+2, START1+2 |
EN^DDIOL | START+22, START1+19, START1+26 |
$$BIL^DGMTUB | INS+1 |
RDIS^DGRPDB | DIS2S+5 |
^DIC | START1+12 |
^DIK | LEDT+16 |
$$GET1^DIQ | OPT+5, CHECK+12, CHECK+14, CHECK+15, LEDT+14 |
^DIR | START+10, EDIT+10 |
$$INSUR^IBBAPI | INS+4, INS+8 |
$$RNBU^IBRSUTL | CTUP+2 |
$$ICDDX^ICDCODE | POV2S+6 |
$$INTV^PXAPI | LEDT+11 |
$$GETOE^SDOE | OPT+4, CHECK+4 |
GETPDX^SDOERPC | DISPLAY+31 |
$$SC^SDSCAPI | VBAICD+3 |
CLM^SDSCCLM | CTUP+3 |
GETDATE^SDSCOMP | START+8 |
$$ANCPKG^SDSCUTL | OPT+18, START1+26 |
$$LOCK^SDSCUTL | LEDT+6 |
$$SCSEL^SDSCUTL | START+4 |
$$SENS^SDSCUTL | OPT+12, START1+21 |
CONT^SDSCUTL | DISPLAY1+4 |
DIV^SDSCUTL | START+9 |
STEDT^SDSCUTL | LEDT+19 |
TYPE^SDSCUTL | START+6, START1+3 |
UNLOCK^SDSCUTL | CTUP+4 |
DEM^VADPT | DISPLAY+21 |
KVA^VADPT | END+7 |
$$FMTE^XLFDT | DISPLAY+9 |
$$UP^XLFSTR | DISPLAY+16 |
$$NAME^XUSER | DISPLAY+16 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^SDSC(409.48 - [#409.48] | Classic Fileman Calls |
^AUPNVSIT - [#9000010] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVPOV - [#9000010.07] | POV2S+3, POV2S+5 |
^AUPNVPOV("AD" | POV2S+2 |
^AUPNVSIT - [#9000010] | CHECK+10 |
^DGSL(38.1 - [#38.1] | DISPLAY+24 |
^DIC(31 - [#31] | DIS2S+8 |
^SC - [#44] | DISPLAY+12 |
^SDSC(409.48 - [#409.48] | OPT+1, OPT+2, START1+14, CHECK+2, DISPLAY+15, LEDT+12, LEDT+15, CTUP+2 |
^TMP("SDSCLST" | DISPLAY+2!, DISPLAY1+3, DISPLAY1+5, LINE+1* |
Name | Line Occurrences |
---|---|
CHECK | OPT+8, START1+17 |
CTUP | LEDT+12, LEDT+15 |
DIS2S | DISPLAY+33 |
DISPLAY | OPT+14, START1+23 |
DISPLAY1 | OPT+14, START1+23 |
EDIT | OPT+20, START1+28 |
END | START+4, START+8, START+11, START+23, START1+29 |
INS | DISPLAY+27 |
LINE | DISPLAY+6, DISPLAY+7, DISPLAY+9, DISPLAY+13, DISPLAY+17, DISPLAY+25, INS+2, INS+3, INS+5, INS+9 , POV2S+1, POV2S+10, DIS2S+2, DIS2S+3, DIS2S+9, VBAICD+2, VBAICD+4 |
OPT | START+17, START+19, START+20 |
POV2S | DISPLAY+31 |
VBAICD | DISPLAY+29 |
Name | Field # of Occurrence |
---|---|
^(0 | DIS2S+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | LEDT+16~*, END+3! |
DFN | DISPLAY+21~* |
DIC | START1+7*, END+3! |
DIC("A" | START1+8* |
DIC("S" | START1+9*, START1+10* |
DIC(0 | START1+7* |
DIE | END+3! |
DIERR | END+3! |
DIK | LEDT+16~* |
DIR | START+13!, EDIT+1!, EDIT+12!, END+5! |
DIR("?" | EDIT+4*, EDIT+5*, EDIT+6*, EDIT+7*, EDIT+8*, EDIT+9* |
DIR("A" | EDIT+3* |
DIR(0 | EDIT+2* |
DLAYGO | END+3! |
DTOUT | START+11, START1+13, EDIT+11, END+5! |
DUOUT | START+11, START1+13, EDIT+11, END+5! |
ERR | END+3! |
I | DIS2S+4~, DIS2S+6*, DIS2S+7 |
I1 | DIS2S+4~, DIS2S+7*, DIS2S+8 |
I2 | DIS2S+4~, DIS2S+8*, DIS2S+9 |
IOF | DISPLAY1+1 |
IOSL | DISPLAY1+4 |
L | DISPLAY1+2*, DISPLAY1+4*, DISPLAY1+6*, END+4! |
LINE | LINE~, LINE+1 |
P | END+4! |
SCDX | POV2S+6*, POV2S+7, POV2S+8, POV2S+9, END+2! |
SCLN | START+12, START+13! |
SCOPT | START+1~, START+4*, OPT+6 |
SCRD | DIS2S+4~, DIS2S+5 |
SCRD( | DIS2S+6, DIS2S+7 |
SCTUPD | CTUP+2~* |
SCVST | START+1~, OPT+5*, OPT+6 |
SDABRT | END+4! |
SDACT | INS+4*, INS+5, INS+6, END+5! |
SDANS | EDIT+12*, LEDT+2, LEDT+4, LEDT+9, END+6! |
SDCLIN | DISPLAY+11*, DISPLAY+12, END+4! |
SDCNT | END+6! |
SDCOV | INS+8*, INS+9, END+5! |
SDCP | INS+1*, INS+3, END+5! |
SDCST | END+2! |
SDDATA | END+6! |
SDEC | END+1! |
SDEDIT | LEDT+10~* |
SDEDT | OPT+1, END+1! |
SDEFLG | OPT+8*, OPT+10, START1+17*, START1+19, CHECK+17*, END+5! |
SDFILEOK | END+2! |
SDFLG | START+16*, START+22, CHECK+17*, END+6! |
SDICD | END+1! |
SDIENS | END+3! |
SDLIST | END+4! |
SDLN | DISPLAY+2*, DISPLAY1+3*, DISPLAY1+5, LINE+1*, END+6! |
SDOE | OPT+2*, OPT+4, OPT+18, START1+14*, START1+19, START1+26, CHECK+2, CHECK+4, DISPLAY+3, DISPLAY+15 , DISPLAY+31, VBAICD+3, LEDT+6, LEDT+7, LEDT+12, LEDT+13, LEDT+15, LEDT+16, LEDT+17, LEDT+19 , CTUP+2, CTUP+3, CTUP+4, END+1! |
SDOEDAT | CHECK+4*, CHECK+5, CHECK+7, CHECK+9, DISPLAY+11, POV2S+6, END+5! |
SDOEDT | OPT+1*, OPT+2, START1+14*, DISPLAY+9, INS+1, INS+4, INS+8, END+1! |
SDOEX | END+1! |
SDOPT | EDIT+2, EDIT+9, END+4! |
SDOSC | CHECK+12*, DISPLAY+4, END+5! |
SDPASS | END+1! |
SDPAT | OPT+12, START1+21, CHECK+7*, DISPLAY+20, DISPLAY+21, DISPLAY+24, INS+1, INS+4, INS+8, DIS2S+5 , VBAICD+3, END+1! |
SDPD | END+3! |
SDPDX | DISPLAY+31, POV2S+7, END+6! |
SDPOV | POV2S+3*, POV2S+6, END+1! |
SDPOVSC | POV2S+5*, POV2S+7, END+2! |
SDPRV | DISPLAY+15*, DISPLAY+16, END+4! |
SDPSC | POV2S+7*, POV2S+8, END+2! |
SDQFLG | START+16*, START+19, START+20, OPT+1, OPT+2, OPT+16, START1+5*, START1+6, START1+13*, START1+25 , DISPLAY1+3, DISPLAY1+4, EDIT+11*, END+3! |
SDRFLG | LEDT+4*, LEDT+19, END+3! |
SDSCBDT | END+6! |
SDSCC | LEDT+14*, LEDT+15, LEDT+19, END+1! |
SDSCCR | START1+9, START1+10, END+5! |
SDSCDIV | START+14*, CHECK+2, END+4! |
SDSCDVLN | START+12*, START+14, END+4! |
SDSCDVSL | START+12*, START+14, END+2! |
SDSCEDIT | START+1~*, START1+1~* |
SDSCEDT | END+6! |
SDSCMSG | OPT+18*, CHECK+5*, CHECK+9*, CHECK+10*, END+4! |
SDSCPKG | CHECK+14*, LEDT+11, END+2! |
SDSCSRC | CHECK+15*, LEDT+11, END+2! |
SDSCTAT | START+17, START+18*, START+19*, START+20*, OPT+1, OPT+2, END+4! |
SDSCTDT | START+8, OPT+1, END+1! |
SDTMP | DISPLAY+3*, DISPLAY+4*, DISPLAY+5*, DISPLAY+6, DISPLAY+11*, DISPLAY+12*, DISPLAY+13, DISPLAY+15*, DISPLAY+16*, DISPLAY+17 , DISPLAY+19*, DISPLAY+22*, DISPLAY+24*, DISPLAY+25, POV2S+8*, POV2S+9*, POV2S+10, END+6! |
SDTYPE | LEDT+19, END+3! |
SDV0 | OPT+4*, OPT+5, CHECK+9*, CHECK+10, CHECK+12, CHECK+14, CHECK+15, POV2S+2, LEDT+11, LEDT+14 , END+2! |
SDVPOV0 | POV2S+2*, POV2S+3, POV2S+5, END+3! |
U | OPT+4, START1+14, CHECK+2, CHECK+7, CHECK+9, DISPLAY+11, DISPLAY+12, DISPLAY+15, DISPLAY+22, DISPLAY+24 , POV2S+3, POV2S+5, POV2S+7, POV2S+8, POV2S+9, DIS2S+8 |
VADM | DISPLAY+21~ |
VADM(1 | DISPLAY+22 |
VADM(2 | DISPLAY+22 |
VAL | VBAICD+1~ |
X | START+13!, EDIT+1!, EDIT+12!, LEDT+11*, END+5! |
X1 | END+5! |
X2 | END+5! |
Y | START+12, START+13!, START1+13, START1+14, VBAICD+1~, VBAICD+3*, VBAICD+4, EDIT+1!, EDIT+12!, END+5! |