DGMSTR2 ;ALB/SCK - MST DETAILED DEMOGRAPHIC REPORT ; 11/19/03 10:56am
Source file <DGMSTR2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point for report
; Variable List ; DGBEG - Beginning of date range (FM date) ; DGEND - End of date range (FM Date) ; DGMST - array of MST status codes ; DGSEX - Patient gender to filter on ; DGPOS - array of period of service values to filter on ; DGDISP - Sort report on ; DGSDAT - start date selection ; DGEDAT - end date selection ; RPTREF - location of report data array ; RPTARRY - temporary location of report array ; DGX - temporary variable ; MSTST - temporary variable holding MST status ; MSTPOS - temporary array of selected POS's ; MSTNAME - temporary variable, patient name ; MSTIEN - temporary variable, IEN in MST HISTORY File (#29.11) ; MSTACT - temporary array, service in country indicated ; MSTDT - temporary variable, MST status change date |
|
| RPT | ; Main entry point for printing report form KERNEL device utility
|
|
| BUILD(DGBEG,DGEND,DGMST,DGSEX,DGPOS,DGDISP,RPTARRY) | ;
|
|
| PRNNAME(DGBEG,DGEND,DGDSP,RPTARRY,DGMST) | ;
; Print out report on patient name sort. One level of sort in the ^TMP global |
|
| PRNPOS(DGBEG,DGEND,DGDSP,RPTARRY,DGMST) | ;
; Print out report on period of service sort, Two levels of sort. |
|
| PRNTLN1(DFN,MSTIEN) | ; Format and print data for patient passed in
|
|
| HEADER(MSTST,DGDISP,DGBEG,DGEND) | ; Print report header
|
|
| ACTION(DFN,MSTRSLT) | ; Check for service indicated fields in PATIENT File (#2) for
; patient passed in. Return local array with all entries flaged as yes in the ; respective fields ; .32101 - Vietnam ; .3221 - Lebanon ; .3224 - Grenada ; .3227 - Panama ; .32201 - Persian Gulf ; .322016 - Somalia ; Output ; MSTRSLT(n)="VIETNAM" |
|
| SERVICE(NDX) | ; Convert field number to text value
|
|
| GETMST(MST) | ; Multiple MST status code seletion, loops until user quites
|
|
| NEXT |
| 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 |
|
| 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 |
|
| 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 |
|
| 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
