GMTSDGH ; SLC/MKB,KER/NDBI - Patient Hist by admissions ; 02/27/2002
Source file <GMTSDGH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ; Loop through admissions starting from most recent
|
|
| MVTS | ; Loop through mvts chronologically, per admission
|
|
| GET | ; Get Inpatient Data [v5.0 and above]
|
|
| PRNT | ; Output Data
|
|
| SETUTL | ; Get Treating Specialty and Corresponding Admission
|
|
| NEXT1 | ; Treating Specialty (ATS)
|
|
| NEXT2 | ; Corresponding Admission (APCA)
|
|
| KILVAR | ; Clean-up, exit
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM("APCA" | SETUTL+3, NEXT2+1 |
| ^DGPM("ATID1" | MAIN+7, MVTS+1 |
| ^DGPM("ATS" | SETUTL+2, NEXT1+1, NEXT1+2 |
| ^UTILITY($J | MVTS+2!, MVTS+6, GET+1, GET+2, NEXT1+3*, NEXT2+2*, KILVAR+3! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A7RHS | MAIN+6, MAIN+8! |
| ADA | MVTS+1*, MVTS+3, GET+1, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1, NEXT2+2, KILVAR+2! |
| ADM | MAIN+5*, MAIN+7*, MVTS+1, KILVAR+2! |
| CNTR | MAIN+3*, MAIN+4*, MAIN+7, MVTS+7*, KILVAR+2! |
| CODE | PRNT+3*, PRNT+4, KILVAR+2! |
| >> DFN | MAIN+6, MAIN+7, MVTS+1, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1 |
| DOC | PRNT+3*, PRNT+5*, PRNT+7, KILVAR+2! |
| FLAG | MAIN+5*, MVTS+4, PRNT+8*, KILVAR+2! |
| >> GMTS1 | MAIN+5 |
| >> GMTS2 | MAIN+7 |
| >> GMTSNDM | MAIN+3 |
| >> GMTSNPG | PRNT+5, PRNT+6 |
| >> GMTSQIT | MVTS+4, PRNT+2 |
| IM | KILVAR+2! |
| IN | KILVAR+2! |
| ITS | KILVAR+3! |
| MDA | NEXT2+1*, NEXT2+2, KILVAR+2! |
| MDM | MVTS+6*, GET+1, GET+2, SETUTL+1*, SETUTL+3*, NEXT2+1, NEXT2+2, KILVAR+2! |
| PREVDR | MVTS+2!, PRNT+5, PRNT+8*, KILVAR+2! |
| PREVSP | MVTS+2!, PRNT+6, PRNT+8*, KILVAR+2! |
| SPEC | PRNT+3*, PRNT+6*, PRNT+7, KILVAR+2! |
| TS | NEXT1+1*, NEXT1+2, KILVAR+3! |
| TSDA | NEXT1+2*, NEXT1+3, KILVAR+3! |
| TSDM | SETUTL+1*, SETUTL+2*, NEXT1+1, NEXT1+2, NEXT1+3, KILVAR+3! |
| TT | PRNT+4*, PRNT+7, KILVAR+2! |
| TYPE | PRNT+3*, PRNT+7, KILVAR+2! |
| U | PRNT+1, PRNT+3, PRNT+5, PRNT+6, PRNT+8 |
| >> VA200 | MAIN+5* |
| VAHOW | MAIN+1~, MAIN+5* |
| VAIP | MAIN+2!, MVTS+2!, MVTS+4, GET+2!, GET+3 |
| VAIP("DR" | PRNT+3, PRNT+5, PRNT+8 |
| VAIP("E" | MVTS+3*, GET+2* |
| VAIP("MD" | PRNT+1 |
| VAIP("MT" | PRNT+3 |
| VAIP("TS" | PRNT+3, PRNT+6, PRNT+8 |
| VAIP("TT" | PRNT+3 |
| X | PRNT+1*, PRNT+7, KILVAR+2! |
