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! |