IBMHPMPY2 ;EDE/WCJ-Multi-site maintain IB MH VISIT TRACKING FILE (#351.83) - (aka PushMi-PullYu); 22-OCT-23
Source file <IBMHPMPY2.m>
| 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 |
