IBMHPMPY2 ;EDE/WCJ-Multi-site maintain IB MH VISIT TRACKING FILE (#351.83) - (aka PushMi-PullYu); 22-OCT-23
Source file <IBMHPMPY2.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 |
|---|---|---|
| AWAY | ||
| RETURN(IBR,IBICN,IBOSITEEX,IBVISDT,IBSTAT,IBBILL,IBCOMM,IBUNIQ) | ;
|
|
| ADD(IBDFN,IBSITE,IBVISDT,IBSTAT,IBBILL,IBCOMM,IBUPDATE,IBUNIQ,RETURN) | ; Add an entry to the file
; INPUT: ; IBDFN - Pointer to the patient number ; IBSITE - external site number ; IBVISDT - Visit date ; IBSTAT - Status ; IBBILL - Bill number or possibly free text description such as 'ONHOLD' ; IBCOMM - Cancel reason ; IBUPDATE - 1 if this is the originating site and data should be pushed out to other treating facilities, otherwise 0 ; IBUNIQ - Unique ID consiting of external site number underscor ien of file 351.83 on originating site ex. 442_1234567 ; OUTPUT: ; RETURN - This is any information returned by FileMan if update was unsuccessful ; ; Function call returns 0 or 1 if successful. ; data must be all internal or all external - no mashup of the two allowed ; I vote internal and since I am coding... ; the incoming parameters were all internal except site #. ; NOTE to self: internal data is filed without validation so be sure it's cool |
|
| UPDATE(IBIEN,IBSTAT,IBBILL,IBCOMM,IBUPDATE,RETURN) | ; update an entry to the file
; INPUT: ; IBIEN - internal entry number into 351.83 that is being edited ; IBSTAT - Status ; IBBILL - Bill number or possibly free text description such as 'ONHOLD' ; IBCOMM - Cancel reason ; IBUPDATE - 1 if this is the originating site and data should be pushed out to other treating facilities, otherwise 0 ; OUTPUT: ; RETURN - This is any information returned by FileMan if update was unsuccessful ; ; Function call returns 0 or 1 if successful. ; ; limiting edits to a few fields ; data must be all internal or all external - no mashup of the two allowed ; I still vote internal and since I am still coding... ; the incoming parameters were all internal ; NOTE to self: internal data is filed without validation so be sure it's cool |
|
| PULL(RETURN,IBFAC,IBSITE,IBICN,IBOSITEEX) | ; Pull all records that originated at this site for this patient
; RETURN - array ; IBFAC - this site internal ; IBSITE - this site external ; IBICN - Patient being pulled ; IBOSITEEX - Requesting site |
| RPC Name | Call Tags |
|---|---|
| IBMH COPAY SYNCH | RETURN |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^IBMH(351.83 - [#351.83] | FIND^DIC, GET1^DIQ |
| ^DIC(4 - [#4] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | ADD+23, UPDATE+27 |
| ^TMP("DILIST" | RETURN+65, RETURN+66, RETURN+77, RETURN+81, PULL+26, PULL+33 |
| ^TMP("IBMHPMPY1" | RETURN+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FDA | ADD+26~, UPDATE+30~ |
| FDA( | ADD+28*, ADD+29*, ADD+30*, ADD+31*, ADD+32*, ADD+33*, ADD+34*, ADD+35*, UPDATE+32*, UPDATE+33* , UPDATE+34*, UPDATE+35* |
| IBADD | PULL+7~ |
| IBADDED | RETURN+32~, RETURN+82*, RETURN+83 |
| IBBILL | RETURN~, RETURN+36, RETURN+41, RETURN+68, RETURN+69, RETURN+82, ADD~, ADD+32, UPDATE~, UPDATE+33 |
| IBCOMM | RETURN~, RETURN+36, RETURN+41, RETURN+68, RETURN+69, RETURN+82, ADD~, ADD+33, UPDATE~, UPDATE+34 |
| IBCTS | ADD+19~, ADD+20*, ADD+21, UPDATE+21~, UPDATE+24*, UPDATE+25 |
| IBDATA | RETURN+32~, RETURN+66*, RETURN+67, RETURN+68, PULL+7~ |
| IBDFN | RETURN+32~, RETURN+51*, RETURN+52, RETURN+82, ADD~, ADD+20, ADD+28, UPDATE+21~, UPDATE+22*, UPDATE+24 , PULL+7~, PULL+13*, PULL+14, PULL+24, PULL+28, PULL+29 |
| IBFAC | RETURN+32~, RETURN+37, PULL~ |
| IBICN | RETURN~, RETURN+36, RETURN+37, RETURN+41, RETURN+51, RETURN+52, PULL~, PULL+13, PULL+14 |
| IBIEN | UPDATE~, UPDATE+22, UPDATE+23, UPDATE+31 |
| IBIEN351P82 | RETURN+32~, RETURN+67*, RETURN+69 |
| IBIEN4 | RETURN+32~, RETURN+46*, RETURN+47, PULL+7~, PULL+8*, PULL+9 |
| IBL4 | PULL+27~, PULL+29*, PULL+30 |
| IBLN | PULL+27~, PULL+28*, PULL+30 |
| IBLOOP | PULL+7~ |
| IBMISS | RETURN+32~, RETURN+41*, RETURN+42 |
| IBOSITEEX | RETURN~, RETURN+36, RETURN+37, RETURN+41, RETURN+44, RETURN+46, RETURN+47, RETURN+82, PULL~, PULL+8 , PULL+9 |
| IBR | RETURN~, RETURN+30*, RETURN+37, RETURN+42, RETURN+44, RETURN+47, RETURN+52, RETURN+68, RETURN+71, RETURN+72 , RETURN+73, RETURN+78, RETURN+85, RETURN+86, RETURN+87 |
| IBRESULTS | PULL+7~ |
| IBRETURN | RETURN+32~, RETURN+69, RETURN+72, RETURN+82, RETURN+86 |
| IBSCREEN | RETURN+32~, PULL+7~, PULL+19*, PULL+24 |
| IBSITE | RETURN+32~, RETURN+37, RETURN+44, RETURN+52, RETURN+71, RETURN+85, ADD~, ADD+29, PULL~, PULL+9 , PULL+14, PULL+19, PULL+30 |
| IBSTAT | RETURN~, RETURN+36, RETURN+41, RETURN+68, RETURN+69, RETURN+82, ADD~, ADD+21, ADD+31, UPDATE~ , UPDATE+25, UPDATE+32 |
| IBUNIQ | RETURN~, RETURN+36, RETURN+41, RETURN+61, RETURN+78, RETURN+82, ADD~, ADD+34 |
| IBUPDATE | ADD~, ADD+35, UPDATE~, UPDATE+35 |
| IBUPDATED | RETURN+32~, RETURN+69*, RETURN+70 |
| IBVISDT | RETURN~, RETURN+36, RETURN+41, RETURN+82, ADD~, ADD+20, ADD+23, ADD+30, UPDATE+21~, UPDATE+23* , UPDATE+24, UPDATE+27 |
| IENS | ADD+26~, ADD+27*, ADD+28, ADD+29, ADD+30, ADD+31, ADD+32, ADD+33, ADD+34, ADD+35 , UPDATE+30~, UPDATE+31*, UPDATE+32, UPDATE+33, UPDATE+34, UPDATE+35 |
| RETURN | ADD~, ADD+24*, ADD+41, UPDATE~, UPDATE+28*, UPDATE+41, PULL~, PULL+9, PULL+14, PULL+30 , PULL+33 |
| U | RETURN+68, RETURN+72, RETURN+86 |
| Y | ADD+22~, ADD+23*, ADD+24, UPDATE+26~, UPDATE+27*, UPDATE+28 |
