©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ASDV ; IHS/ANMC/LJF - CREATE VISIT AT CHECK-IN ; [ 12/01/2000 11:10 AM ]
Source file <ASDV.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component | 5 | ^APCDALV ^APCDALVR ^APCDCVDT (EN1,EN2)^APCDEKL EN^APCDVDLT |
| VA Fileman | 4 | EN^DDIOL ^DIC $$GET1^DIQ ^DIR |
| IHS Patient | 1 | ($$VCN,VCN)^AUPNVSIT |
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
| Uncategorized | 1 | AMB^VEFSPOBS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SERCAT(CLINIC,PAT) | ; -- returns service category for visit
|
|
| MSGADD(ERROR,STRING) | ; -- put message string into array
|
|
| MSG(DATA,PRE,POST) | ; -- writes line to device
|
|
| CLNCODE(CLINIC) | ; -- asks user for clinic code
|
|
| FAC(CLINIC) | ; -- return facility location ien for clinic
; try institution field in file 44, then institution based on division ; then try user's division and make sure it is a PCC site |
|
| VDATE(ASDCLN,ASDDT,APTN,DFN,ASDCKO,ASDMSG) | ;EP;if new time entered, update visit
; called by SDI if check-in time was changed ; silent update to database; no user interface ; Input variables: ; ASDCLN = clinic ien ; ASSDT = appt date & time ; APTN = ien for appt under date multiple ; DFN = Patient ien ; ASDCKO = old check-in date/time ; ASDMSG = called by reference, upon exit contains user msgs |
|
| PROV(CLINIC) | ; - asks user for visit provider
|
|
| RDT(X) | ; -- reverse date
|
|
| VSTEND | ||
| VISIT(ASDCLN,ASDDT,APTN,DFN,ASDCC,ASDPROV,ASDMSG) | ;PEP; -- create visit
; called by CHKIN subroutine above and by applications where ; all data is already known ; assumes calling routine has checked that patient is checked in ; silent update to database; no user interface ; Input variables: ; ASDCLN = clinic ien ; ASDDT = appt date/time ; APTN = ien for appt under date mutiple ; DFN = patient ien ; ASDCC = clinic code ien ; ASDPROV = visit provider ien ; ASDMSG = called by reference, upon exit contains user msgs ; first piece is error code; 2nd piece is message ; Error = 0 (no problems) ; 1 (problem setting visit variables) ; 2 (problem creating visit) ; 3 (problem changing visit date/time) |
|
| CHKIN(ASDCLN,ASDDT,APTN,DFN) | ;EP; -- ask visit related check-in questions
; called by SDI during check-in process ; user interface for 2 questions (clinic code and provider) ; Input variables: ; ASDCLN = clinic ien ; ASDDT = appt date/time ; APTN = ien for appt under date mutiple ; DFN = patient ien |
|
| PRVIEN(Y) | ; -- determines correct provider file to use
|
| Name | Field # of Occurrence |
|---|---|
| ^APCDALV | VISIT+47 |
| ^APCDALVR | VISIT+61 |
| ^APCDCVDT | VDATE+27 |
| EN1^APCDEKL | VSTEND |
| EN2^APCDEKL | VSTEND |
| EN^APCDVDLT | VDATE+21 |
| $$VCN^AUPNVSIT | VISIT+65 |
| VCN^AUPNVSIT | VISIT+65 |
| EN^DDIOL | MSG+3, MSG+4 |
| ^DIC | PROV+7 |
| $$GET1^DIQ | VDATE+21, PROV+8 |
| ^DIR | CLNCODE+8 |
| AMB^VEFSPOBS | VISIT+25 |
| $$VAL^XBDIQ1 | CLNCODE+4, CLNCODE+6, PROV+4 |
| $$VALI^XBDIQ1 | VISIT+34, VDATE+24, CLNCODE+4, PROV+4, FAC+4, FAC+5, SERCAT+2 |
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | VISIT+24 |
| ^APCDSITE - [#9001001.2] | FAC+7 |
| ^AUPNVSIT("AA" | VDATE+15, VDATE+16 |
| ^DD(9000010.06 | PRVIEN+1 |
| ^DIC(19 - [#19] | VISIT+39 |
| ^DPT - [#2] | VISIT+42, SERCAT+3 |
| ^SC - [#44] | CHKIN+10, CHKIN+11, VISIT+21, VISIT+25, VISIT+36, VDATE+11, VDATE+20 |
| ^VA(200 - [#200] | PRVIEN+2 |
| Name | Line Occurrences |
|---|---|
| $$CLNCODE | CHKIN+14 |
| $$FAC | VISIT+29 |
| $$PROV | CHKIN+15 |
| $$PRVIEN | PROV+11 |
| $$RDT | VDATE+15, VDATE+16 |
| $$SERCAT | VISIT+35 |
| MSG | CHKIN+19, PROV+9 |
| MSGADD | VISIT+31, VISIT+49, VISIT+50, VISIT+62, VDATE+16, VDATE+21, VDATE+28, VDATE+30 |
| VISIT | CHKIN+16 |
| VSTEND | VISIT+32, VISIT+48 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | VISIT+46~ |
| APCDALVR | VISIT+28!, VISIT+55!, VSTEND! |
| APCDALVR("APCDADD" | VISIT+43* |
| APCDALVR("APCDAPDT" | VISIT+41* |
| APCDALVR("APCDAPPT" | VISIT+42* |
| APCDALVR("APCDATMP" | VISIT+59* |
| APCDALVR("APCDCAT" | VISIT+35* |
| APCDALVR("APCDCLN" | VISIT+37* |
| APCDALVR("APCDDATE" | VISIT+36* |
| APCDALVR("APCDHL" | VISIT+38* |
| APCDALVR("APCDLOC" | VISIT+29*, VISIT+30, VISIT+34 |
| APCDALVR("APCDOPT" | VISIT+40* |
| APCDALVR("APCDPAT" | VISIT+33*, VISIT+57* |
| APCDALVR("APCDTOA" | VISIT+60* |
| APCDALVR("APCDTPRO" | VISIT+56* |
| APCDALVR("APCDTPS" | VISIT+60* |
| APCDALVR("APCDTYPE" | VISIT+34* |
| APCDALVR("APCDVSIT" | VISIT+48, VISIT+51, VISIT+58* |
| APCDCVDT | VDATE+29! |
| APCDCVDT("ERR | OR FLAG" , VDATE+28 |
| APCDCVDT("VIS | IT DATE/TIME" , VDATE+26*, IT DFN" , VDATE+25* |
| >> APCDVDLT | VDATE+21* |
| APCDVSIT | VDATE+12~, VDATE+15*, VDATE+16, VDATE+21, VDATE+24, VDATE+25 |
| APTN | CHKIN~, CHKIN+9, CHKIN+11, CHKIN+16, VISIT~, VISIT+19, VISIT+36, VDATE~, VDATE+20 |
| ASDCC | CHKIN+13~, CHKIN+14*, CHKIN+16, VISIT~, VISIT+20, VISIT+37 |
| ASDCK | VDATE+12~, VDATE+20*, VDATE+21, VDATE+24, VDATE+26 |
| ASDCKO | VDATE~, VDATE+15, VDATE+16 |
| ASDCLN | CHKIN~, CHKIN+9, CHKIN+10, CHKIN+11, CHKIN+14, CHKIN+15, CHKIN+16, VISIT~, VISIT+19, VISIT+21 , VISIT+25, VISIT+29, VISIT+35, VISIT+36, VISIT+38, VDATE~, VDATE+11, VDATE+20, FAC+5 |
| ASDDT | CHKIN~, CHKIN+9, CHKIN+11, CHKIN+16, VISIT~, VISIT+19, VISIT+36, VISIT+41, VISIT+42, VDATE~ , VDATE+20 |
| ASDMSG | CHKIN+13~, CHKIN+16, CHKIN+18, VISIT~, VDATE~ |
| ASDMSG( | CHKIN+19, MSGADD+3* |
| ASDMSG("" | MSGADD+2 |
| ASDPROV | VISIT~, VISIT+54, VISIT+56 |
| >> ASDVCN | VISIT+65* |
| ASDVP | CHKIN+13~, CHKIN+15*, CHKIN+16 |
| ASDVST | VISIT+51*, VISIT+58, VISIT+65, VSTEND! |
| CAT | SERCAT+1~, SERCAT+3*, SERCAT+4 |
| CLINIC | CLNCODE~, CLNCODE+4, CLNCODE+6, PROV~, PROV+4, PROV+8, FAC~, FAC+4, SERCAT~, SERCAT+2 |
| CLNCAT | SERCAT+1~, SERCAT+2*, SERCAT+3 |
| CODE | CLNCODE+1~, CLNCODE+4*, CLNCODE+6 |
| DATA | MSG~, MSG+3 |
| DFN | CHKIN~, CHKIN+9, CHKIN+16, VISIT~, VISIT+19, VISIT+33, VISIT+35, VISIT+42, VISIT+57, VDATE~ , VDATE+15, VDATE+16 |
| DIC | PROV+1~, PROV+3*, PROV+7! |
| DIC("A" | PROV+3* |
| DIC("B" | PROV+4*, PROV+5! |
| DIC("S" | PROV+6* |
| DIC(0 | PROV+3* |
| DIR | CLNCODE+1~ |
| DIR("?" | CLNCODE+7* |
| DIR("A" | CLNCODE+3* |
| DIR("B" | CLNCODE+6* |
| DIR(0 | CLNCODE+3* |
| DUZ(2 | FAC+6 |
| ERROR | MSGADD~, MSGADD+3 |
| FAC | FAC+3~, FAC+4*, FAC+5*, FAC+6*, FAC+7*, FAC+8 |
| FORMAT | MSG+1~, MSG+2*, MSG+3 |
| I | CHKIN+19~*, VDATE+21~, MSGADD+1~, MSGADD+2*, MSGADD+3, MSG+1~, MSG+2*, MSG+4* |
| PAT | SERCAT~, SERCAT+3 |
| POST | MSG~, MSG+4 |
| PRE | MSG~, MSG+2 |
| STRING | MSGADD~, MSGADD+3 |
| U | CHKIN+10, CHKIN+19, VISIT+21, VISIT+25, VISIT+42, VDATE+11, PROV+10, PRVIEN+1, PRVIEN+2, MSGADD+3 |
| X | VISIT+24~*, VISIT+25*, VISIT+39*, VISIT+40, VSTEND!, RDT~, RDT+1, PROV+1~ |
| Y | CLNCODE+1~, CLNCODE+2, CLNCODE+9, PROV+1~, PROV+2, PROV+8*, PROV+9, PROV+10, PROV+11, PRVIEN~ , PRVIEN+1, PRVIEN+2 |
| Name | Field # of Occurrence |
|---|---|
| $T(VCN^AUPNVSIT | VISIT+65 |