©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
BEHOPGAP ;IHS/MSC/MGH - PATIENT GOALS APIs;05-Dec-2011 13:44;DU
Source file <BEHOPGAP.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component | 2 | ($$NEXTSN,ADDREV,ADDSTEP,DELSTEP,EDITSTEP)^APCDGAP2 ($$NEXTGN,ADDGOAL,DELGOAL,EDITGOAL)^APCDGAPI |
| VA Fileman | 2 | ^%DT ($$GET1,GETS)^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Mods To Text Integration Utilities | 1 | BTIUPG1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DELGOAL(RETVAL,GIEN,PRV,DDTE,DREA,DOTHER) | ;PEP - called to delete a goal
|
|
| GETGOAL(RET,DFN) | ;PEP Return a list of a patient's goals
; (goal no,0)=IEN(1)^GSET(2)^CREATED(3)^BY(4)^LASTMODIFIED(5)^FACILITY(6) ; ^PROVIDER(7)^STARTDT(8)^FOLLOWUPDT(9)^STATUS(10)^GOAL NUMBER (11) ; (goal no,10)=TYPE1^TYPE2^TYPE3... ; (goal no,11)=GOALNAME ; (goal no,12)=GOALREASON ; (goal no,13,n)=REVIEW DATE(1)^NOTE(2) |
|
| GETSTEP(RET,GIEN) | ;Get the step data
|
|
| DELSTEP(RET,GIEN,LIEN,SIEN,PRV,SDTE,SREA,SOTHER) | ;PEP - DELETE A STEP
|
|
| EDITSTEP(RETVAL,GIEN,LIEN,SIEN,FUD,STAT) | ;PEP - edit a step entry
|
|
| ADDSTEP(RETVAL,GIEN,SDAT) | ;PEP - add a step to a goal
|
|
| NEXTGN(RET,DFN,FAC) | ;PEP - return next available goal number for patient P, facility F
|
|
| ADDGOAL(RETVAL,DFN,GDAT) | ;PEP -- add Patient Goal
|
|
| ADDREV(RETVAL,GIEN,REVD,REVT) | ;PEP - ADD A REVIEW TO A GOAL 9000093.13
|
|
| EDITGOAL(RETVAL,GIEN,FUD,STAT,REVD,REVT) | ;PEP- edit a goal entry
|
|
| STEPS(GOAL,SFAC,FAC,FNAME) | ;Get the step data for each goal
|
|
| TMPGBL() | ;EP
|
|
| NEXTSN(RET,GIEN,FAC) | ;PEP - return next step number for this goal, facility
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | DELSTEP+14 |
| $$NEXTSN^APCDGAP2 | NEXTSN+1 |
| ADDREV^APCDGAP2 | ADDREV+8 |
| ADDSTEP^APCDGAP2 | ADDSTEP+17 |
| DELSTEP^APCDGAP2 | DELSTEP+16 |
| EDITSTEP^APCDGAP2 | EDITSTEP+11 |
| $$NEXTGN^APCDGAPI | NEXTGN+1 |
| ADDGOAL^APCDGAPI | ADDGOAL+41 |
| DELGOAL^APCDGAPI | DELGOAL+14 |
| EDITGOAL^APCDGAPI | EDITGOAL+17 |
| $$GET1^DIQ | STEPS+5, STEPS+6, STEPS+7, STEPS+8, STEPS+9, STEPS+10, STEPS+11, STEPS+12, STEPS+13, STEPS+15 , STEPS+16, STEPS+18 |
| GETS^DIQ | GETGOAL+14 |
| RPC Name | Call Tags |
|---|---|
| BEHOPGAP ADDGOAL | ADDGOAL |
| BEHOPGAP DELGOAL | DELGOAL |
| BEHOPGAP EDITGOAL | EDITGOAL |
| BEHOPGAP NEXTGN | NEXTGN |
| BEHOPGAP GETGOAL | GETGOAL |
| BEHOPGAP ADDREV | ADDREV |
| BEHOPGAP ADDSTEP | ADDSTEP |
| BEHOPGAP DELSTEP | DELSTEP |
| BEHOPGAP EDITSTEP | EDITSTEP |
| BEHOPGAP NEXTSN | NEXTSN |
| BEHOPGAP GETSTEP | GETSTEP |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCDTPGT - [#9001002.4] | GETGOAL+36, GETGOAL+37 |
| ^AUPNGOAL - [#9000093] | GETGOAL+34, GETGOAL+35, GETGOAL+41, GETGOAL+42, GETGOAL+43, GETSTEP+11, GETSTEP+12, STEPS+3 |
| ^AUPNGOAL("AC" | GETGOAL+11 |
| ^DIC(4 - [#4] | GETSTEP+13 |
| ^TMP("BEHOGOAL" | TMPGBL+1! |
| Name | Line Occurrences |
|---|---|
| $$TMPGBL | GETGOAL+10, GETSTEP+10 |
| STEPS | GETSTEP+14 |
| Name | Field # of Occurrence |
|---|---|
| ^($J | TMPGBL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APCDGIEN | DELGOAL+11~, DELGOAL+12*, DELGOAL+14 |
| ARRAY | GETGOAL+7~ |
| ARRAY( | GETGOAL+15, GETGOAL+16, GETGOAL+17, GETGOAL+18, GETGOAL+19, GETGOAL+20, GETGOAL+21, GETGOAL+22, GETGOAL+23, GETGOAL+24 , GETGOAL+25, GETGOAL+29, GETGOAL+30 |
| CNT | GETGOAL+7~, GETGOAL+41*, GETGOAL+44*, GETGOAL+45, GETSTEP+8~, GETSTEP+9* |
| DATA | ADDGOAL+21~, ADDGOAL+24*, ADDGOAL+25, ADDGOAL+26, ADDGOAL+27, ADDGOAL+28, ADDGOAL+29, ADDGOAL+30, ADDGOAL+31, ADDGOAL+32 |
| DDTE | DELGOAL~, DELGOAL+14 |
| DFN | ADDGOAL~, ADDGOAL+41, NEXTGN~, NEXTGN+1, GETGOAL~, GETGOAL+11 |
| DOTHER | DELGOAL~, DELGOAL+13, DELGOAL+14 |
| DREA | DELGOAL~, DELGOAL+13, DELGOAL+14 |
| DUZ(2 | ADDGOAL+26 |
| ERRARRY | GETGOAL+7~ |
| FAC | ADDGOAL+21~, NEXTGN~, NEXTGN+1, GETSTEP+12*, GETSTEP+13, GETSTEP+14, STEPS~, STEPS+17, NEXTSN~, NEXTSN+1 |
| FIELDS | GETGOAL+7~ |
| FILE | GETGOAL+7~, GETGOAL+9*, GETGOAL+14, GETGOAL+15, GETGOAL+16, GETGOAL+17, GETGOAL+18, GETGOAL+19, GETGOAL+20, GETGOAL+21 , GETGOAL+22, GETGOAL+23, GETGOAL+24, GETGOAL+25, GETGOAL+29, GETGOAL+30, GETSTEP+8~, GETSTEP+9* |
| FILE1 | STEPS+1~, STEPS+4*, STEPS+5, STEPS+6, STEPS+7, STEPS+8, STEPS+9, STEPS+10, STEPS+11, STEPS+12 , STEPS+13, STEPS+15, STEPS+16, STEPS+18 |
| FNAME | GETSTEP+13*, GETSTEP+14, STEPS~, STEPS+17 |
| FUD | EDITGOAL~, EDITGOAL+17, EDITSTEP~, EDITSTEP+11 |
| GARRAY | ADDGOAL+21~, ADDGOAL+41 |
| GARRAY(".01" | ADDGOAL+25* |
| GARRAY(".06" | ADDGOAL+26*, ADDGOAL+27* |
| GARRAY(".07" | ADDGOAL+28* |
| GARRAY(".08" | ADDGOAL+29* |
| GARRAY(".09" | ADDGOAL+30* |
| GARRAY(".1" | ADDGOAL+31* |
| GARRAY(".12" | ADDGOAL+32* |
| GARRAY("1000" | ADDGOAL+35* |
| GARRAY("1101" | ADDGOAL+38* |
| GARRAY("1201" | ADDGOAL+40* |
| GBY | GETGOAL+8~, GETGOAL+17*, GETGOAL+31 |
| GDAT | ADDGOAL~ |
| GDAT( | ADDGOAL+22, ADDGOAL+23, ADDGOAL+24, ADDGOAL+33, ADDGOAL+34, ADDGOAL+37, ADDGOAL+38, ADDGOAL+39, ADDGOAL+40 |
| GDATA | STEPS+1~ |
| GDATE | GETGOAL+8~, GETGOAL+16*, GETGOAL+31 |
| GERR | STEPS+1~ |
| GFAC | GETGOAL+8~, GETGOAL+19*, GETGOAL+31 |
| GFLDS | STEPS+1~ |
| GFUP | GETGOAL+8~, GETGOAL+23*, GETGOAL+31 |
| GIEN | DELGOAL~, DELGOAL+10, DELGOAL+12, EDITGOAL~, EDITGOAL+14, EDITGOAL+17, GETSTEP~, GETSTEP+11, GETSTEP+12, GETSTEP+14 , STEPS+17, ADDREV~, ADDREV+7, ADDREV+8, ADDSTEP~, ADDSTEP+17, DELSTEP~, DELSTEP+12, DELSTEP+16, EDITSTEP~ , EDITSTEP+10, EDITSTEP+11, NEXTSN~, NEXTSN+1 |
| GMOD | GETGOAL+8~, GETGOAL+18*, GETGOAL+31 |
| GNAME | GETGOAL+7~, GETGOAL+29*, GETGOAL+39 |
| GOAL | STEPS~, STEPS+3, STEPS+4 |
| GOALNO | GETGOAL+8~, GETGOAL+20*, GETGOAL+31, GETGOAL+38, GETGOAL+39, GETGOAL+40, GETGOAL+45 |
| GPROV | GETGOAL+8~, GETGOAL+21*, GETGOAL+31 |
| GREASON | GETGOAL+8~, GETGOAL+30*, GETGOAL+40 |
| GRIEN | GETGOAL+7~, GETGOAL+10*, GETGOAL+11*, GETGOAL+12, GETGOAL+14, GETGOAL+31, GETGOAL+34, GETGOAL+35, GETGOAL+41, GETGOAL+42 , GETGOAL+43 |
| GSET | GETGOAL+8~, GETGOAL+15*, GETGOAL+31 |
| GSTART | GETGOAL+8~, GETGOAL+22*, GETGOAL+31 |
| GSTAT | GETGOAL+8~, GETGOAL+24*, GETGOAL+26*, GETGOAL+27, GETGOAL+31 |
| GSTATE | GETGOAL+8~, GETGOAL+25*, GETGOAL+26 |
| GTYP | GETGOAL+7~, GETGOAL+35*, GETGOAL+36, GETGOAL+37 |
| GTYPE | GETGOAL+8~, GETGOAL+33*, GETGOAL+36*, GETGOAL+37*, GETGOAL+38 |
| I | ADDGOAL+21~, ADDGOAL+22*, ADDGOAL+23, ADDGOAL+24, ADDGOAL+33, ADDGOAL+34, ADDGOAL+37, ADDGOAL+38, ADDGOAL+39, ADDGOAL+40 , ADDSTEP+13~, ADDSTEP+14*, ADDSTEP+15, ADDSTEP+16 |
| IEN | GETGOAL+7~, GETGOAL+12*, GETGOAL+15, GETGOAL+16, GETGOAL+17, GETGOAL+18, GETGOAL+19, GETGOAL+20, GETGOAL+21, GETGOAL+22 , GETGOAL+23, GETGOAL+24, GETGOAL+25, GETGOAL+29, GETGOAL+30 |
| J | ADDGOAL+21~, ADDGOAL+34*, ADDGOAL+35, ADDGOAL+36*, ADDSTEP+13~, ADDSTEP+15*, ADDSTEP+16 |
| LIEN | DELSTEP~, DELSTEP+16, EDITSTEP~, EDITSTEP+11 |
| LKP | STEPS+1~, STEPS+4*, STEPS+5, STEPS+6, STEPS+7, STEPS+8, STEPS+9, STEPS+10, STEPS+11, STEPS+12 , STEPS+13, STEPS+15, STEPS+16, STEPS+18 |
| PRV | DELGOAL~, DELGOAL+14, DELSTEP~, DELSTEP+16 |
| RET | NEXTGN~, NEXTGN+1*, GETGOAL~, GETGOAL+10*, GETGOAL+31, GETGOAL+38, GETGOAL+39, GETGOAL+40, GETGOAL+45, GETSTEP~ , GETSTEP+10*, STEPS+17, STEPS+19, DELSTEP~, DELSTEP+11*, DELSTEP+12*, DELSTEP+15*, DELSTEP+16, NEXTSN~, NEXTSN+1* |
| RETVAL | ADDGOAL~, ADDGOAL+20*, ADDGOAL+41, ADDGOAL+42, ADDGOAL+43*, DELGOAL~, DELGOAL+10*, DELGOAL+13*, DELGOAL+14, EDITGOAL~ , EDITGOAL+13*, EDITGOAL+14*, EDITGOAL+17, EDITGOAL+18*, ADDREV~, ADDREV+7*, ADDREV+8, ADDSTEP~, ADDSTEP+17, ADDSTEP+18* , EDITSTEP~, EDITSTEP+10*, EDITSTEP+11 |
| RETVAL(1 | ADDSTEP+18 |
| REV | GETGOAL+7~, GETGOAL+41*, GETGOAL+42, GETGOAL+43 |
| REVD | EDITGOAL~, EDITGOAL+15*, EDITGOAL+17, ADDREV~, ADDREV+8 |
| REVDT | GETGOAL+7~, GETGOAL+42*, GETGOAL+45 |
| REVT | EDITGOAL~, EDITGOAL+16*, EDITGOAL+17, ADDREV~, ADDREV+8 |
| REVTXT | GETGOAL+7~, GETGOAL+43*, GETGOAL+45 |
| SBY | STEPS+2~, STEPS+6*, STEPS+17 |
| SDAT | ADDSTEP~ |
| SDAT( | ADDSTEP+14, ADDSTEP+16 |
| SDAT2 | ADDSTEP+13~, ADDSTEP+17 |
| SDAT2( | ADDSTEP+16* |
| SDTE | DELSTEP~, DELSTEP+14*, DELSTEP+16 |
| SFAC | GETGOAL+7~, GETSTEP+8~, GETSTEP+11*, GETSTEP+12, GETSTEP+14, STEPS~, STEPS+3, STEPS+4 |
| SFUP | STEPS+2~, STEPS+10*, STEPS+17 |
| SIEN | STEPS+1~, STEPS+3*, STEPS+4, STEPS+17, STEPS+19, DELSTEP~, DELSTEP+16, EDITSTEP~, EDITSTEP+11 |
| SMOD | STEPS+2~, STEPS+12*, STEPS+17 |
| SOTHER | DELSTEP~, DELSTEP+13*, DELSTEP+15, DELSTEP+16 |
| SPROV | STEPS+2~, STEPS+16*, STEPS+17 |
| SREA | DELSTEP~, DELSTEP+15, DELSTEP+16 |
| SSTART | STEPS+2~, STEPS+9*, STEPS+17 |
| SSTATUS | STEPS+2~, STEPS+13*, STEPS+14, STEPS+17 |
| STAT | EDITGOAL~, EDITGOAL+17, EDITSTEP~, EDITSTEP+11 |
| STATUS | STEPS+1~, STEPS+15*, STEPS+17 |
| STEPNO | STEPS+2~, STEPS+5*, STEPS+17 |
| STEXT | STEPS+2~, STEPS+18*, STEPS+19 |
| STYPE | STEPS+2~, STEPS+8*, STEPS+17 |
| SUPD | STEPS+2~, STEPS+11*, STEPS+17 |
| SWHEN | STEPS+2~, STEPS+7*, STEPS+17 |
| TIEN | GETGOAL+7~, GETGOAL+34*, GETGOAL+35 |
| >> TYPE | ADDGOAL+34*, ADDGOAL+35 |
| U | ADDGOAL+23, ADDGOAL+25, ADDGOAL+26, ADDGOAL+27, ADDGOAL+28, ADDGOAL+29, ADDGOAL+30, ADDGOAL+31, ADDGOAL+32, ADDGOAL+33 , ADDGOAL+34, ADDGOAL+37, ADDGOAL+38, ADDGOAL+39, ADDGOAL+40, ADDGOAL+43, GETGOAL+31, GETGOAL+36, GETGOAL+37, GETGOAL+42 , GETGOAL+43, GETGOAL+45, GETSTEP+12, GETSTEP+13, STEPS+17 |
| >> X | DELSTEP+14* |
| >> Y | DELSTEP+14 |