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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 1 | IB HCCH PAYER ID REPORT |
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! |