IVMUFNC ;ALB/MLI/PHH/SCK,TDM - IVM GENERIC FUNCTIONS ; 6/30/08 4:11pm
Source file <IVMUFNC.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 4 | $$HLDATE^HLFNC $$BHS^HLFNC1 INIT^HLFNC2 KILL^HLTRANS |
| Scheduling | 2 | $$SDAPI^SDAMA301 (ACTIVE,DATE,INDEX,OPEN,PAT,SCAN,SCANCB)^SDQ |
| Integrated Billing | 1 | $$INSUR^IBBAPI |
| MailMan | 1 | ^XMD |
| Master Patient Index VistA | 1 | $$GETICN^MPIF001 |
| Registration | 1 | $$LST^DGMTU |
| VA FileMan | 1 | Y^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT(EID,HL,INT) | ; initialize variables for 1.6 HL7/IVM
|
|
| CLEAN | ; clean-up variables for HL7/IVM (as defined by call to INIT)
|
|
| BATCH | ; put BHS and BTS segments into TMP global
|
|
| IVM(DFN,IVMDT) | ; extrinsic function - should this pt be transmitted to IVM?
|
|
| IVMQ | ||
| INS(DFN,IVMDT) | ; extrinsic function to see if pt has active insurance
|
|
| MAIL(IVMGRP) | ; Transmit to members of Mail Group. Before D MAIL^IVMUFNC()
; set XMSUB = to subject and set IVMTEXT array to message. |
|
| LTD(DFN,IVMQUERY) | ; Find Last Treatment Date
; Input: DFN -- pointer to the patient in file #2 ; IVMQUERY("LTD") -- # of the QUERY that is currently open or ; undefined, zero, or null if no QUERY opened for ; last treatment date ; Output: LTD -- Last Treatment Date (really last date seen at ; the facility) |
|
| LTDQ | ;
|
|
| APPT(SDOE0) | ;Determine if appt associated with encounter is in a valid state
; Quit when Outpatient Encounter STATUS is CHECKED OUT |
|
| OUTTR(IVMINT,IVMPAR,IVMST) | ; - Transform IVMINT to a displayable value
; Input: IVMINT -- internal value of demographic element ; received from IVM ; IVMPAR -- Zeroth node of the entry in file #301.92 ; for the demographic element IVMINT ; IVMST -- [optional] pointer to the STATE (#5) file ; Required to transform the county code ; Output: IVMOUT -- Displayable value for IVMINT |
|
| OUTTRQ | ||
| EXPAND(FILE,FIELD,VALUE) | ; - returns internal data in an output format
|
|
| EXPQ | ||
| GETPAT(DFN,IVMPAT) | ;
; Description: Used to obtain identifying information for a patient ; in the PATIENT file and place it in the IVMPAT() array. |
|
| LOOKUP(SSN,DOB,SEX,ERROR) | ;
|
|
| MATCH(DFN,ICN,DOB,SEX,CFLG,ERROR) | ;
|
|
| PARSPID3(PID3,PID3ARY) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$LST^DGMTU | IVM+10 |
| Y^DIQ | EXPAND+3 |
| $$HLDATE^HLFNC | LTDQ+1 |
| $$BHS^HLFNC1 | BATCH+13 |
| INIT^HLFNC2 | INIT+2 |
| KILL^HLTRANS | CLEAN+1 |
| $$INSUR^IBBAPI | INS+7 |
| $$GETICN^MPIF001 | GETPAT+31, MATCH+19 |
| $$SDAPI^SDAMA301 | APPT+7 |
| ACTIVE^SDQ | LTD+25, LTD+34 |
| DATE^SDQ | LTD+33 |
| INDEX^SDQ | LTD+28 |
| OPEN^SDQ | LTD+27 |
| PAT^SDQ | LTD+32 |
| SCAN^SDQ | LTD+35 |
| SCANCB^SDQ | LTD+29 |
| ^XMD | MAIL+15 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | EXPAND+3 |
| ^DGMT(408.31 - [#408.31] | IVM+12 |
| ^DGPM("ATID3" | LTD+18 |
| ^DIC(5 - [#5] | OUTTR+13 |
| ^DPT - [#2] | IVM+8, LTD+15, LTD+21, GETPAT+23, LOOKUP+19, MATCH+18 |
| ^DPT("SSN" | LOOKUP+16, LOOKUP+18 |
| ^IVM(301.9 - [#301.9] | MAIL+13 |
| ^TMP("DIERR" | LTD+24!, LTD+36! |
| ^TMP("HLS" | BATCH+13*, BATCH+14* |
| ^TMP($J | APPT+9, APPT+10, APPT+11! |
| ^XMB("NETNAME" | MAIL+14 |
| ^XMB(3.8 - [#3.8] | MAIL+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| C | EXPAND+1~, EXPAND+3* |
| CFLG | MATCH~, MATCH+17*, MATCH+19, MATCH+20, MATCH+21, MATCH+22 |
| >> COMP | PARSPID3+7*, PARSPID3+8, PARSPID3+9 |
| DFN | IVM~, IVM+8*, IVM+10, IVM+13, INS~, INS+7, LTD~, LTD+12, LTD+15, LTD+18 , LTD+21, LTD+32, GETPAT~, GETPAT+19, GETPAT+23, GETPAT+26, GETPAT+31, LOOKUP+13~, LOOKUP+16*, LOOKUP+17 , LOOKUP+18, LOOKUP+19, LOOKUP+23, MATCH~, MATCH+16, MATCH+18, MATCH+19 |
| DGARRAY | APPT+5~, APPT+7 |
| DGARRAY("FLDS" | APPT+5* |
| DGARRAY("MAX" | APPT+6* |
| DGARRAY("SORT" | APPT+6* |
| DGARRAY(1 | APPT+6* |
| DGARRAY(4 | APPT+5*, APPT+9, APPT+10 |
| DIFROM | MAIL+8~ |
| DOB | LOOKUP~, LOOKUP+21, LOOKUP+22, MATCH~, MATCH+21, MATCH+22 |
| DT | IVM+9, LTD+15, LTD+18 |
| EID | INIT~, INIT+1*, INIT+2 |
| ERROR | LOOKUP~, LOOKUP+15*, LOOKUP+17*, LOOKUP+18*, LOOKUP+20*, LOOKUP+21*, LOOKUP+22*, MATCH~, MATCH+16*, MATCH+18* , MATCH+19*, MATCH+20*, MATCH+21*, MATCH+22* |
| FIELD | EXPAND~, EXPAND+2, EXPAND+3 |
| FILE | EXPAND~, EXPAND+2, EXPAND+3 |
| HL | INIT~, INIT+2 |
| >> HLDAP | INIT+2* |
| >> HLECH | PARSPID3+8, PARSPID3+9, PARSPID3+10 |
| HLEVN | INIT+3*, CLEAN+2!, BATCH+14 |
| >> HLFS | BATCH+14 |
| >> HLMSA | BATCH+12*, BATCH+13 |
| HLMTN | CLEAN+2!, BATCH+13 |
| >> HLQ | LTDQ+1 |
| HLSDT | CLEAN+2!, BATCH+13, BATCH+14 |
| >> HLSEC | BATCH+12*, BATCH+13 |
| ICN | MATCH~, MATCH+19 |
| INT | INIT~, INIT+1*, INIT+2 |
| IVMCT | INIT+3*, CLEAN+2!, BATCH+14 |
| IVMDT | IVM~, IVM+9*, IVM+10, IVM+11!, IVM+13, INS~, INS+7 |
| IVMGRP | MAIL~, MAIL+12, MAIL+13*, MAIL+14 |
| IVMINT | OUTTR~, OUTTR+9, OUTTR+10, OUTTR+13, OUTTR+16 |
| IVMNODE | GETPAT+18~, GETPAT+23*, GETPAT+24, GETPAT+27, GETPAT+28, GETPAT+29, GETPAT+30 |
| IVMOUT | OUTTR+9~*, OUTTR+10*, OUTTR+13*, OUTTR+16*, OUTTRQ |
| IVMPAR | OUTTR~, OUTTR+10, OUTTR+13, OUTTR+16 |
| IVMPAT | GETPAT~, GETPAT+20!* |
| IVMPAT("DFN" | GETPAT+26* |
| IVMPAT("DOB" | GETPAT+29* |
| IVMPAT("ICN" | GETPAT+31* |
| IVMPAT("NAME" | GETPAT+27* |
| IVMPAT("SEX" | GETPAT+28* |
| IVMPAT("SSN" | GETPAT+30* |
| IVMQ | LTD+8~, LTD+11*, LTD+25, LTD+26, LTD+27, LTD+28, LTD+29, LTD+30, LTD+32, LTD+33 , LTD+34, LTD+35 |
| IVMQUERY | LTD~ |
| IVMQUERY("LTD" | LTD+11, LTD+30* |
| IVMST | OUTTR~, OUTTR+13 |
| IVMTEXT | MAIL+16! |
| LTD | LTD+8~, LTD+12*, LTD+15*, LTD+18*, LTD+21*, LTD+33, LTDQ+1 |
| NODE | LOOKUP+13~, LOOKUP+19*, LOOKUP+20, LOOKUP+21, LOOKUP+22, MATCH+15~, MATCH+18*, MATCH+20, MATCH+21, MATCH+22 |
| PID3 | PARSPID3~ |
| PID3(3 | PARSPID3+5, PARSPID3+6, PARSPID3+7, PARSPID3+8, PARSPID3+9, PARSPID3+10 |
| PID3ARY | PARSPID3~ |
| PID3ARY("NI" | PARSPID3+9* |
| PID3ARY("PI" | PARSPID3+8*, PARSPID3+10* |
| SDCNT | APPT+5~, APPT+7*, APPT+8 |
| SDDTTM | APPT+5~, APPT+9*, APPT+10 |
| SDOE0 | APPT~, APPT+2, APPT+5, APPT+6, APPT+12 |
| SDSTAT | APPT+5~, APPT+7*, APPT+10*, APPT+12 |
| SDSTOP | LTD+8~ |
| SEX | LOOKUP~, LOOKUP+20, MATCH~, MATCH+20 |
| SSN | LOOKUP~, LOOKUP+15, LOOKUP+16, LOOKUP+18 |
| U | APPT+2, APPT+5, APPT+6, APPT+10, APPT+12 |
| VALUE | EXPAND~, EXPAND+1, EXPAND+2, EXPAND+3 |
| X | IVM+7~, IVM+10*, IVM+11, IVM+12*, IVM+13, IVM+14, IVM+15, LTD+8~, LTD+21* |
| XMDF | MAIL+8~, MAIL+9* |
| XMDUZ | MAIL+8~, MAIL+10*, MAIL+16! |
| XMROU | MAIL+8~ |
| XMSTRIP | MAIL+8~ |
| XMSUB | MAIL+16! |
| XMTEXT | MAIL+8~, MAIL+11*, MAIL+16! |
| XMY | MAIL+8~, MAIL+16! |
| XMY("G." | MAIL+14* |
| XMZ | MAIL+8~ |
| Y | IVM+7~, IVM+13*, IVM+16*, IVMQ, EXPAND+1~*, EXPAND+3*, EXPQ |
| Z | LTD+8~, OUTTR+9~ |
