BKMQSSR ;PRXM/HC/CJS - STATE SURV. REPORT ; 14 Jun 2005 3:06 PM
Source file <BKMQSSR.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| GDATA | ; Retrieve patient information | |
| PATDEMO | ;GET PATIENT DEMOGRAPHICS | |
| EN(DATA,PLIST) | ;EP - PRIMARY REPORT ENTRY POINT ; values for DATA and PLIST are supplied by the calling routine ; ; Check taxonomies - added per bugzilla #1497 ; This will be accomplished through an RPC call to BQITAXX | |
| DQUE | ;ENTRY FROM QUEUE | |
| QUE(DFN) | ;QUEUE REPORT FOR PRINT/DISPLAY | |
| ERR | ; | |
| AGE | ;GET PATIENT DOB AND DIAGNOSIS INFO AND CALCULATE AGE AT DIAGNOSIS | |
| CKAGE() | ;Call AGE subroutine and confirm eligibility for report | |
| HDR | ; | |
| DONE | ; | |
| XIT | ;KILL LOCALS AND EXIT | |
| FAC | ;GATHER FACILITY DATA | |
| DQUE1 | ; | |
| PRACDIAG | ;GATHER PROVIDER DATA | 
| Name | Field # of Occurrence | 
|---|---|
| ^%ZTER | ERR+1 | 
| EN^BKMQSSR1 | DQUE+7 | 
| EN^BKMQSSR2 | DQUE+8 | 
| EN^BKMQSSR3 | DQUE1+1 | 
| EN^BKMQSSR4 | DQUE1+2 | 
| EN^BKMQSSR5 | DQUE1+3 | 
| EN^BKMQSSR6 | DQUE1+4 | 
| UPD^BKMQUTL | EN+20 | 
| $$FIND1^DIC | AGE+4 | 
| $$GET1^DIQ | AGE+2, AGE+3, AGE+6, AGE+8, AGE+9, FAC+1, FAC+2, FAC+3, FAC+4, FAC+5 , FAC+6, FAC+7, PATDEMO+1, PATDEMO+2, PATDEMO+5, PATDEMO+6, PATDEMO+7, PATDEMO+9, PATDEMO+12, PATDEMO+13 , PATDEMO+14, PATDEMO+15, PATDEMO+16, PATDEMO+17, PATDEMO+18, PATDEMO+19, PATDEMO+20, PATDEMO+21, PRACDIAG+1, PRACDIAG+2 , PRACDIAG+3, PRACDIAG+4 | 
| $$FMDIFF^XLFDT | AGE+14, AGE+15, AGE+16 | 
| $$NOW^XLFDT | ERR+3 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(10.2 - [#10.2] | GET1^DIQ | 
| ^DPT - [#2] | GET1^DIQ | 
| ^VA(200 - [#200] | GET1^DIQ | 
| ^DIC(4 - [#4] | GET1^DIQ | 
| ^AUPNPAT - [#9000001] | GET1^DIQ | 
| 9000001.41 | GET1^DIQ | 
| ^BKM(90451 - [#90451] | FIND1^DIC | 
| 90451.01 | GET1^DIQ | 
| ^AUTTSITE - [#9999999.39] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD("DD" | ERR+3 | 
| ^DPT - [#2] | PATDEMO+11 | 
| Name | Line Occurrences | 
|---|---|
| AGE | GDATA+10, CKAGE+1 | 
| DONE | EN+27 | 
| DQUE1 | EN+25 | 
| FAC | EN+19 | 
| GDATA | EN+20 | 
| HDR | EN+25, GDATA+15 | 
| PATDEMO | DQUE+6 | 
| PRACDIAG | DQUE+6 | 
| QUE | GDATA+17 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| %DT | XIT+9! | 
| %H | XIT+9! | 
| APCHSPAT | EN+23~, DQUE+2~ | 
| APCHSTYP | EN+23~, DQUE+2~ | 
| BKM | GDATA+7~, PATDEMO+10*, PATDEMO+11* | 
| BKM0 | GDATA+7~ | 
| BKM1 | GDATA+6~ | 
| BKM2 | GDATA+7~ | 
| BKMCC | GDATA+7~ | 
| BKMCKDT | GDATA+8~ | 
| BKMDAY | GDATA+8~ | 
| BKMDDT | GDATA+1~, AGE+1*, AGE+8*, AGE+9*, AGE+14 | 
| BKMDIAG | GDATA+1~, AGE+6*, AGE+7*, AGE+8, AGE+9 | 
| BKMDT | GDATA+7~ | 
| BKMHAART | GDATA+9~ | 
| BKMHDR | GDATA+6~ | 
| BKMHDR1 | GDATA+6~ | 
| BKMICD | GDATA+9~ | 
| BKMIEN | GDATA+8~ | 
| BKMLINE | GDATA+1~ | 
| BKMLINE1 | GDATA+6~ | 
| BKMLOC | EN+6~, FAC+1*, FAC+2, FAC+3, FAC+4, FAC+5, FAC+6, FAC+7, PATDEMO+6 | 
| BKMNDT | GDATA+7~ | 
| BKMPAD | GDATA+6~ | 
| BKMPCP | GDATA+9~ | 
| BKMPROV | GDATA+5~, PRACDIAG+1*, PRACDIAG+2*, PRACDIAG+3, PRACDIAG+4* | 
| BKMQTY | GDATA+8~ | 
| BKMSEC | GDATA+6~ | 
| BKMSICD | GDATA+9~ | 
| BKMSIG | GDATA+8~ | 
| BKMVADD1 | GDATA+3~, PATDEMO+15*, PATDEMO+22 | 
| BKMVADD2 | GDATA+3~, PATDEMO+16*, PATDEMO+23 | 
| BKMVADD3 | GDATA+3~, PATDEMO+17*, PATDEMO+24 | 
| BKMVADDL | GDATA+4~, PATDEMO+22*, PATDEMO+23*, PATDEMO+24*, PATDEMO+25*, PATDEMO+26*, PATDEMO+27* | 
| BKMVAGED | GDATA+1~, AGE+14*, AGE+15*, AGE+16*, AGE+17*, CKAGE+3 | 
| BKMVCITY | GDATA+3~, PATDEMO+18*, PATDEMO+25 | 
| BKMVCNTY | GDATA+4~, PATDEMO+21* | 
| BKMVDOB | GDATA+1~, AGE+2*, AGE+14, AGE+15, AGE+16 | 
| BKMVDOD | GDATA+1~, AGE+3*, AGE+15, PATDEMO+3 | 
| BKMVETH | GDATA+2~, PATDEMO+10*, PATDEMO+11*, PATDEMO+12* | 
| BKMVETO | GDATA+8~ | 
| BKMVHRN | GDATA+2~, PATDEMO+6* | 
| BKMVLABS | GDATA+9~ | 
| BKMVLAD | EN+6~, FAC+3* | 
| BKMVLAD1 | EN+6~, FAC+4* | 
| BKMVLCTY | EN+6~, FAC+6* | 
| BKMVLN | GDATA+8~ | 
| BKMVLOC | EN+6~, FAC+2* | 
| BKMVLST | EN+6~, FAC+5* | 
| BKMVLZIP | EN+6~, FAC+7* | 
| BKMVNDT | GDATA+8~ | 
| BKMVPHN | GDATA+3~, PATDEMO+13* | 
| BKMVPOB | GDATA+3~, PATDEMO+14* | 
| BKMVPPH | GDATA+5~, PRACDIAG+3* | 
| BKMVPST | GDATA+3~, PATDEMO+19*, PATDEMO+26 | 
| BKMVPZP | GDATA+4~, PATDEMO+20*, PATDEMO+27 | 
| BKMVRCE | GDATA+2~, PATDEMO+7*, PATDEMO+8*, PATDEMO+9* | 
| BKMVSDTH | GDATA+2~, PATDEMO+2* | 
| BKMVSEX | GDATA+2~, PATDEMO+1* | 
| BKMVSTAT | GDATA+2~, PATDEMO+3*, PATDEMO+5* | 
| BKMX | EN+5~, GDATA+6~, GDATA+16* | 
| >> BMXSEC | CKAGE+4*, ERR+4* | 
| BN | EN+14*, EN+15*, GDATA+7~ | 
| BQII | EN+5~, EN+11*, EN+26*, GDATA+15, HDR+1, DONE+1* | 
| CNT | EN+5~ | 
| DATA | EN~, EN+26, HDR+1, DONE+1 | 
| DENPOP | EN+5~ | 
| DFN | EN+5~, EN+20*, GDATA+17, AGE+2, AGE+3, AGE+4, PATDEMO+1, PATDEMO+2, PATDEMO+6, PATDEMO+7 , PATDEMO+9, PATDEMO+11, PATDEMO+13, PATDEMO+14, PATDEMO+15, PATDEMO+16, PATDEMO+17, PATDEMO+18, PATDEMO+19, PATDEMO+20 , PATDEMO+21, QUE~ | 
| DIR | XIT+9! | 
| DIWF | XIT+9! | 
| DIWL | XIT+9! | 
| DIWR | XIT+9! | 
| DT | AGE+16 | 
| DTOUT | XIT+9! | 
| DUOUT | XIT+9! | 
| ERRDTM | ERR+2~, ERR+3*, ERR+4 | 
| GLOB | EN+5~ | 
| GLOBAL | XIT+9! | 
| IEN | GDATA+1~, AGE+4*, AGE+5, AGE+6, AGE+8, AGE+9, PATDEMO+5, PRACDIAG+1, PRACDIAG+2, XIT+9! | 
| II | EN+5~, EN+20* | 
| LINE | EN+22~, DQUE+1~ | 
| LIST | EN+5~, EN+14*, EN+15*, EN+17, EN+18! | 
| LNLEN | EN+22~, EN+24*, DQUE+1~, DQUE+4* | 
| PAGE | GDATA+6~ | 
| PLIST | EN~, EN+12*, EN+13, EN+16!, EN+17*, EN+19, EN+20, EN+21 | 
| PLIST( | EN+15 | 
| POP | XIT+9! | 
| TYPE | XIT+9! | 
| U | PATDEMO+11 | 
| X | EN+22~, DQUE+1~, XIT+9! | 
| Y | XIT+9!, ERR+2~, ERR+3* |