IBCERP7 ;AITC/KDM - HID HCCH Payer ID Report ;5/4/2017
Source file <IBCERP7.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENT | ; Menu Option Entry Point
|
|
| QUE | ; Queued Entry Point
|
|
| DATES | ; Enter the from and to dates for this report
|
|
| DEVICE | ; - Ask device
|
|
| GATHER | ;GO GET THE INFO BASED ON THE DATES ENTERED
; uses ^DIC(36,"AEDIX",DATE,INSURANCE IEN,) to get data within date range. ; If data is within date range sets up ^TMP($J file with all data needed for the report. ; ^DIC(36,"AEDIX",DATE,INSURANCE IEN ,EDI ID NUMBER,TYPE "P" OR "I")=EDI ID NUMBER ON FILE ; |
|
| ; Print data
; PGC=page ct,LNTOT=no of lines to be printed,LNCNT=when to page break ; MAX=IOSL (device length) |
||
| END | ||
| HDRINIT | ; Initial setting
|
|
| HEADER | ; Print Header info
|
|
| EXIT() | ;clean up and quit
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | DEVICE+4 |
| HOME^%ZIS | DEVICE+17 |
| ^%ZISC | EXIT+6 |
| ^%ZTLOAD | DEVICE+15 |
| $$GET1^DIQ | GATHER+24, GATHER+25, GATHER+26, GATHER+27 |
| ^DIR | DATES+4, DATES+8, DEVICE+18, END+1, HEADER+6 |
| $$FMTE^XLFDT | DATES+4, DATES+6, DATES+8, PRINT+28, HDRINIT+10 |
| $$HTE^XLFDT | DATES+3 |
| $$NOW^XLFDT | HDRINIT+10 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | DEVICE+2~, DEVICE+4* |
| ADDRESS | PRINT+4~, PRINT+19*, PRINT+26 |
| ASTERISK | ENT+2~, ENT+3*, GATHER+23*, HEADER+14 |
| BEGDT | ENT+1~, DATES+4*, HEADER+9, EXIT+8! |
| BEGIN | ENT+1~, DATES+4*, EXIT+8! |
| CITY | PRINT+4~, PRINT+20*, PRINT+26 |
| CNT | ENT+2~ |
| COMPADDR | PRINT+4~, PRINT+26*, PRINT+28 |
| DASH | ENT+2~, GATHER+15*, HEADER+14 |
| DATE | GATHER+14~, GATHER+17*, GATHER+18*, GATHER+19, GATHER+20, GATHER+21, GATHER+22, GATHER+28, PRINT+4~, PRINT+10* , PRINT+11, PRINT+12, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+28 |
| DIR | DATES+2~, DATES+4!, DATES+8!, DEVICE+18!, END+1!, HEADER+2~, HEADER+6! |
| DIR("?" | DATES+3* |
| DIR("A" | DATES+3*, DATES+6* |
| DIR("B" | DATES+3*, DATES+6* |
| DIR(0 | DATES+3*, DATES+6*, DEVICE+18*, END+1*, HEADER+6* |
| DT | ENT+1~, DATES+6 |
| DUOUT | HEADER+2~, HEADER+6 |
| EDINO | GATHER+14~, GATHER+20*, GATHER+21, GATHER+22, GATHER+28, PRINT+4~, PRINT+11*, PRINT+12, PRINT+19, PRINT+20 , PRINT+21, PRINT+22, PRINT+28 |
| EDIONFILE | GATHER+14~, GATHER+22*, GATHER+23, GATHER+28, PRINT+4~, PRINT+22*, PRINT+23, PRINT+28 |
| END | ENT+1~, DATES+8* |
| ENDDT | ENT+1~, DATES+8*, HEADER+9, EXIT+8! |
| EORMSG | ENT+2~, PRINT+5*, END |
| HDR1 | ENT+1~, HDRINIT+9*, HEADER+8 |
| HDR2 | ENT+1~, HDRINIT+10*, HEADER+8 |
| HDR3 | ENT+1~ |
| IBABEG | ENT+1~, DATES+4*, GATHER+17, EXIT+8! |
| IBADDRESS | GATHER+14~, GATHER+25*, GATHER+28 |
| IBAEND | ENT+1~, DATES+8*, GATHER+18, EXIT+8! |
| IBCITY | GATHER+14~, GATHER+26*, GATHER+28 |
| IBEOB | ENT+1~ |
| IBIFN | ENT+1~ |
| IBNAME | GATHER+14~, GATHER+24*, GATHER+28 |
| IBPIEN | GATHER+14~, GATHER+19*, GATHER+20, GATHER+21, GATHER+22, GATHER+24, GATHER+25, GATHER+26, GATHER+27, GATHER+28 |
| IBQUIT | ENT+1~, ENT+3*, ENT+4, ENT+5, QUE+4, DEVICE+4*, DEVICE+5*, PRINT+12, PRINT+24, PRINT+31 , HEADER+4, HEADER+6*, EXIT+8! |
| IBSTATE | GATHER+14~, GATHER+27*, GATHER+28 |
| IEN | PRINT+4~, EXIT+8! |
| IO | DEVICE+19 |
| IO("Q" | DEVICE+5 |
| IOF | HDRINIT+3, HEADER+7, EXIT+3 |
| IOSL | GATHER+16 |
| IOST | DEVICE+18, END+1, HDRINIT+3, HEADER+6, EXIT+3 |
| LEGEND | ENT+2~, ENT+3*, HEADER+14 |
| LNCNT | GATHER+14~, PRINT+24, PRINT+29*, PRINT+30, HDRINIT+2*, HDRINIT+6*, HEADER+3*, HEADER+15*, EXIT+8! |
| LNTOT | ENT+1~, GATHER+16*, GATHER+29*, HDRINIT+4, HDRINIT+5, HDRINIT+7 |
| MAX | ENT+1~, GATHER+16*, PRINT+24, PRINT+30, HDRINIT+7 |
| NAME | PRINT+4~, PRINT+9*, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+28 |
| NONEMSG | ENT+2~, PRINT+6*, PRINT+8 |
| PAGES | ENT+1~, HDRINIT+4*, HDRINIT+7*, HDRINIT+8*, HEADER+8 |
| PGC | ENT+1~, GATHER+16*, HDRINIT+3, HDRINIT+5, HEADER+4, HEADER+8, HEADER+15* |
| PID | PRINT+4~, PRINT+16*, PRINT+28 |
| PIDPOS | PRINT+4~, PRINT+17*, PRINT+28 |
| POP | ENT+2~, ENT+5, DEVICE+4 |
| RNAME | ENT+1~, ENT+3*, QUE+1, GATHER+28, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+19 , PRINT+20, PRINT+21, PRINT+22, EXIT+7 |
| STATE | PRINT+4~, PRINT+21*, PRINT+26 |
| TYPE | GATHER+14~, GATHER+21*, GATHER+22, GATHER+28, PRINT+4~, PRINT+12*, PRINT+16, PRINT+17, PRINT+19, PRINT+20 , PRINT+21, PRINT+22 |
| U | ENT+1~, GATHER+16*, GATHER+28, PRINT+19, PRINT+20, PRINT+21, PRINT+22 |
| UPDATE | PRINT+4~, PRINT+23*, PRINT+28 |
| Y | ENT+1~, ENT+4, DATES+4, DATES+6, DATES+8, EXIT+8! |
| Y(0 | DATES+4, DATES+8 |
| ZTDESC | DEVICE+2~, DEVICE+6* |
| ZTIO | DEVICE+2~ |
| ZTQUEUED | DEVICE+2~, EXIT+5, EXIT+6 |
| ZTREQ | EXIT+1~, EXIT+5* |
| ZTRTN | DEVICE+2~, DEVICE+6* |
| ZTSAVE | DEVICE+2~ |
| ZTSAVE("BEGDT" | DEVICE+11* |
| ZTSAVE("BEGIN" | DEVICE+7* |
| ZTSAVE("END" | DEVICE+8* |
| ZTSAVE("ENDDT" | DEVICE+12* |
| ZTSAVE("IBABEG" | DEVICE+9* |
| ZTSAVE("IBAEND" | DEVICE+10* |
| ZTSAVE("IBQUIT" | DEVICE+14* |
| ZTSAVE("RNAME" | DEVICE+13* |
| ZTSK | DEVICE+16, DEVICE+17! |