BDGICE2 ;IHS/OIT/LJF - NEW INCOMPLETE CHART EDIT OPTION
Source file <BDGICE2.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 5 | ^DIC FILE^DICN $$GET1^DID ^DIE $$GET1^DIQ |
Registration | 3 | EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 |
IHS Changes To ADT | 2 | ($$READ,MSG,PAUSE)^BDGF $$HRCN^BDGF2 |
Kernel | 2 | $$REPEAT^XLFSTR DISP^XQORM1 |
IHS Changes To Scheduling | 1 | $$DIV^BSDU |
IHS Patient | 1 | KILL^AUPNPAT |
Name | Comments | DBIA/ICR reference |
---|---|---|
HELP | ;EP; -- help code
|
|
PAT | ; ask user for patient
|
|
HDR | ;EP; -- header code
|
|
PENDING(IEN) | ; return 1 if chart has at least one pending deficiency
|
|
VDATE | ; EP; fix visit link - called by BDG ICE FIX VISIT protocol
|
|
PAD(D,L) | ; pad length of data
; -- D=data L=length |
|
SP(N) | ; pad N number of spaces
|
|
REBUILD | ; EP; rebuild display
; Called by BDG ICE VIEW ALL and BDG ICE VIEW PENDING protocols |
|
EXPND | ; -- expand code
|
|
COMPLETE | ; EP; mark chart as completed - called by BDG ICE COMPLETE protocol
|
|
COMMENT | ; EP; edit comments - called by BDG ICE COMMENTS protocol
|
|
HAVEDEF(BDGN,PRV,DEF) | ||
FIELDS | ;;
|
|
DSOKAY() | ; EP; does site use day surgery?
|
|
INIT | ;EP; -- init variables and list array
|
|
ASK | ; process IC entry selection
|
|
SET(DATA,COUNT) | ; stuff data into display lie
|
|
EN | ;EP; -- main entry point for BDG IC EDIT
; called with DFN and BDGN set |
|
FINDDEF(BDGN,PRV) | ; return BDGDEF array with current deficiencies for provider PRV
|
|
TDATES | ; EP; edit tracking dates - called by BDG ICE DATES
|
|
ADD | ; -- add new entry
|
|
LABEL(FIELD) | ; returns field's title or label
|
|
ADDDEF | ; EP; add chart deficiences - called by BDG ICE ADD DEF protocol
|
|
EXIT | ;EP; -- exit code
|
|
ADDMORE(BDGN,PRV) | ; add new deficiencies for provider
|
|
DELETE | ; EP; delete chart - in as a mistake - called by BDG ICE DELETE protocol
|
Name | Field # of Occurrence |
---|---|
KILL^AUPNPAT | PAT+1 |
$$READ^BDGF | PAT+2, ASK+3, ADD+3, ADDDEF+7, ADDDEF+23, ADDDEF+28, ADDDEF+32, ADDMORE+7, ADDMORE+9, DELETE+2 |
MSG^BDGF | TDATES+3, ADDDEF+3, ADDDEF+6, ADDDEF+15, ADDDEF+16, ADDDEF+18, ADDDEF+39, ADDMORE+2, ADDMORE+3, COMPLETE+3 |
PAUSE^BDGF | TDATES+3, VDATE+9, ADDDEF+3, ADDMORE+2, COMPLETE+4 |
$$HRCN^BDGF2 | HDR+2 |
$$DIV^BSDU | INIT+16, TDATES+8, DSOKAY+1 |
^DIC | ADDMORE+6 |
FILE^DICN | ADD+8, ADDMORE+14 |
$$GET1^DID | LABEL+2, LABEL+3 |
^DIE | TDATES+6, TDATES+11, TDATES+13, VDATE+9, COMMENT+3, ADDDEF+34, ADDDEF+41, ADDMORE+16, COMPLETE+6, DELETE+4 |
$$GET1^DIQ | PAT+16, PAT+18, PAT+19, PAT+20, PAT+21, ASK+6, HDR+2, HDR+3, HDR+6, HDR+7 , INIT+3, INIT+5, INIT+8, INIT+13, INIT+16, INIT+19, INIT+20, INIT+24, INIT+25, INIT+29 , INIT+39, INIT+40, INIT+42, INIT+43, INIT+45, INIT+46, INIT+49, TDATES+6, TDATES+8, TDATES+13 , VDATE+6, ADDDEF+15, FINDDEF+5, FINDDEF+6, FINDDEF+8, FINDDEF+9, ADDMORE+2, DELETE+2, DSOKAY+1, PENDING+4 , PENDING+5 |
EN^VALM | EN+3 |
TERM^VALM0 | EN+2, REBUILD+2 |
CLEAR^VALM1 | EN+2, EN+4 |
FULL^VALM1 | TDATES+1, VDATE+2, COMMENT+1, ADDDEF+2, COMPLETE+1, DELETE+1 |
$$REPEAT^XLFSTR | INIT+35, PAD+2 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^BDGIC - [#9009016.1] | Classic Fileman Calls, GET1^DID, GET1^DIQ |
9009016.11 | GET1^DIQ |
^BDGCD - [#9009016.4] | Classic Fileman Calls |
^BDGPAR - [#9009020.1] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BDGIC - [#9009016.1] | INIT+37, TDATES+3, TDATES+15, ADDDEF+3, ADDDEF+42, FINDDEF+3, HAVEDEF+2, HAVEDEF+3, PENDING+2 |
^BDGIC("B" | PAT+10 |
^DD(9009016.1 | ADDMORE+12 |
^TMP("BDGICE" | INIT+2!, SET+2*, EXIT+1! |
^TMP("BDGICE2" | INIT+33!, INIT+47*, INIT+49*, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+57, INIT+58 , EXIT+1! |
^XUSEC("DGZICE" | ASK+6 |
Name | Line Occurrences |
---|---|
$$DSOKAY | ASK+2, ADD+3 |
$$HAVEDEF | ADDMORE+7 |
$$LABEL | INIT+13, INIT+19, INIT+25, INIT+29 |
$$PAD | HDR+2, HDR+3, HDR+7, INIT+4, INIT+7, INIT+13, INIT+19, INIT+20, INIT+25, INIT+29 , INIT+34, INIT+45, INIT+46, FINDDEF+8, FINDDEF+9, SP+1 |
$$PENDING | COMPLETE+2 |
$$SP | INIT+49, INIT+57, INIT+58, ADDDEF+15 |
ADD | PAT+14, ASK+4 |
ADDMORE | ADDDEF+13, ADDDEF+25 |
ASK | PAT+23, ASK+6 |
EN | PAT+24, ADD+12 |
FINDDEF | ADDDEF+12 |
HDR | REBUILD+3 |
INIT | REBUILD+3 |
PAT | PAT+14, PAT+23, PAT+24 |
REBUILD | TDATES+3, TDATES+16, VDATE+9, COMMENT+3, ADDDEF+43, COMPLETE+6, DELETE+4 |
SET | INIT+6, INIT+9, INIT+14, INIT+21, INIT+26, INIT+30, INIT+34, INIT+35, INIT+54, INIT+55 , INIT+57, INIT+58, INIT+59 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTION | ADDDEF+1~, ADDDEF+23, ADDDEF+26*, ADDDEF+28, ADDDEF+31 |
ACTION(1 | ADDDEF+19* |
ACTION(2 | ADDDEF+20* |
ACTION(3 | ADDDEF+21* |
ACTION(4 | ADDDEF+22* |
APCDOVRR | ADD+5*, ADD+9!, VDATE+1~, VDATE+2* |
BDGA | PAT+8~, PAT+14 |
BDGA( | PAT+11*, PAT+17, PAT+18, PAT+19, PAT+20, PAT+21, ASK+5 |
BDGDEF | ADDDEF+1~, ADDDEF+12!, ADDDEF+13 |
BDGDEF( | ADDDEF+16, ADDDEF+34, ADDDEF+39, ADDDEF+40, FINDDEF+10* |
BDGDFALL | PAT+5~*, INIT+39, INIT+40, INIT+57, INIT+58, EXIT+2!, FINDDEF+5, FINDDEF+6 |
BDGN | PAT+8~, PAT+9*, PAT+10*, PAT+11, PAT+23, ASK+5*, ASK+6!, ADD+11*, HDR+3, HDR+6 , HDR+7, INIT+3, INIT+5, INIT+8, INIT+13, INIT+19, INIT+20, INIT+24, INIT+25, INIT+29 , INIT+37, INIT+38, EXIT+2!, TDATES+2, TDATES+3, TDATES+6, TDATES+13, TDATES+15, VDATE+3, VDATE+6 , COMMENT+2, ADDDEF+3, ADDDEF+12, ADDDEF+13, ADDDEF+25, ADDDEF+33, ADDDEF+37, ADDDEF+42, FINDDEF~, FINDDEF+3 , FINDDEF+4, ADDMORE~, ADDMORE+2, ADDMORE+7, ADDMORE+11, ADDMORE+16, HAVEDEF~, HAVEDEF+2, HAVEDEF+3, COMPLETE+2 , COMPLETE+5, DELETE+2, DELETE+3 |
BDGN1 | INIT+33~, INIT+37*, INIT+38, INIT+47, INIT+49, INIT+53*, INIT+54, INIT+55 |
CATG | INIT+1~, INIT+3*, INIT+4, INIT+7, INIT+8, VDATE+6~*, VDATE+7 |
CHOICES | ADDDEF+1~, ADDDEF+28*, ADDDEF+34, ADDDEF+38 |
COUNT | PAT+8~, PAT+11*, ASK+3, ASK+4, SET~, SET+1*, SET+2, ADDDEF+1~, ADDDEF+16*, ADDDEF+28 , FINDDEF+1~, FINDDEF+2*, FINDDEF+7*, FINDDEF+8, FINDDEF+10 |
D | PAD~, PAD+2 |
DA | ADD+1~, TDATES+1~, TDATES+2*, VDATE+1~, VDATE+3*, COMMENT+1~, COMMENT+2*, ADDDEF+1~, ADDDEF+34*, ADDDEF+38* , ADDDEF+39, ADDDEF+40*, ADDMORE+1~, ADDMORE+10!, ADDMORE+16*, COMPLETE+1~, COMPLETE+5*, DELETE+1~, DELETE+3* |
DA(1 | ADDDEF+33*, ADDDEF+37*, ADDMORE+11*, ADDMORE+16* |
DATA | SET~, SET+2 |
DATE | ADDDEF+1~, ADDDEF+32*, ADDDEF+33 |
DD | ADD+1~, ADDMORE+10! |
DEF | ADDMORE+1~, ADDMORE+6*, ADDMORE+7, ADDMORE+13, HAVEDEF~, HAVEDEF+3 |
DFN | PAT+1~, PAT+2*, PAT+10, PAT+16, ADD+4, HDR+2 |
DIC | ADD+1~, ADD+4*, ADDMORE+1~, ADDMORE+5!*, ADDMORE+10!, ADDMORE+11* |
DIC("DR" | ADD+6*, ADD+7*, ADDMORE+13* |
DIC("P" | ADDMORE+12* |
DIC("S" | ADDMORE+5* |
DIC(0 | ADD+4*, ADDMORE+5*, ADDMORE+11* |
DIE | TDATES+1~, TDATES+2*, VDATE+1~, VDATE+3*, COMMENT+1~, COMMENT+2*, ADDDEF+1~, ADDDEF+33*, ADDDEF+37*, ADDMORE+1~ , ADDMORE+16*, COMPLETE+1~, COMPLETE+5*, DELETE+1~, DELETE+3* |
DLAYGO | ADD+1~, ADD+4*, ADDMORE+1~, ADDMORE+12* |
DO | ADD+1~, ADDMORE+10! |
DR | ADD+1~, TDATES+1~, TDATES+6*, TDATES+9*, TDATES+10*, TDATES+13*, VDATE+1~, VDATE+3*, VDATE+7*, COMMENT+1~ , COMMENT+2*, ADDDEF+1~, ADDDEF+33*, ADDDEF+37*, ADDMORE+1~, ADDMORE+16*, COMPLETE+1~, COMPLETE+5*, DELETE+1~, DELETE+3* |
DUZ | ASK+6 |
DUZ(2 | HDR+2 |
FIELD | INIT+1~, INIT+18*, INIT+19, TDATES+1~, LABEL~, LABEL+2, LABEL+3 |
FOUND | HAVEDEF+1~, HAVEDEF+2*, HAVEDEF+3*, HAVEDEF+4, PENDING+1~, PENDING+2*, PENDING+6*, PENDING+7 |
I | PAT+8~, PAT+17*, PAT+18, PAT+19, PAT+20, PAT+21, PAT+22, ADDDEF+1~, ADDDEF+34*, ADDDEF+38* |
IEN | FINDDEF+1~, FINDDEF+2*, FINDDEF+3*, FINDDEF+4, FINDDEF+10, HAVEDEF+1~, HAVEDEF+2*, HAVEDEF+3, PENDING~, PENDING+2 , PENDING+3 |
IEN2 | PENDING+1~, PENDING+2*, PENDING+3 |
IENS | INIT+33~, INIT+38*, INIT+39, INIT+40, INIT+42, INIT+43, INIT+45, INIT+46, INIT+49, FINDDEF+1~ , FINDDEF+4*, FINDDEF+5, FINDDEF+6, FINDDEF+8, FINDDEF+9, PENDING+1~, PENDING+3*, PENDING+4, PENDING+5 |
>> IORVOFF | HDR+2, HDR+6 |
>> IORVON | HDR+2, HDR+6 |
ITEM | INIT+1~, INIT+11*, INIT+12, INIT+16, INIT+20, TDATES+1~, TDATES+4*, TDATES+5, TDATES+8, TDATES+10 |
L | PAD~, PAD+2 |
LINE | INIT+1~, INIT+4*, INIT+5*, INIT+6, INIT+7*, INIT+8*, INIT+9, INIT+13*, INIT+14, INIT+19* , INIT+20*, INIT+21, INIT+25*, INIT+26, INIT+29*, INIT+30, INIT+45*, INIT+46*, INIT+47, FINDDEF+1~ , FINDDEF+8*, FINDDEF+9*, FINDDEF+10 |
N | SP~, SP+1 |
PROMPT | ASK+1~, ASK+2*, ASK+3, ADDDEF+4*, ADDDEF+7 |
PROV | INIT+33~, INIT+42*, INIT+47, INIT+49, INIT+52*, INIT+53, INIT+54, INIT+55, ADDDEF+1~, ADDDEF+5 , ADDDEF+7*, ADDDEF+8, ADDDEF+12, ADDDEF+13, ADDDEF+15, ADDDEF+25, FINDDEF+3 |
PROVN | INIT+33~, INIT+43*, INIT+45, INIT+47, INIT+49, INIT+51*, INIT+52, INIT+53, INIT+54, INIT+55 |
PRV | FINDDEF~, ADDMORE~, ADDMORE+7, ADDMORE+11, HAVEDEF~, HAVEDEF+2 |
QUIT | ADDDEF+11*, ADDDEF+13*, ADDDEF+24*, ADDMORE+1~, ADDMORE+4*, ADDMORE+6* |
SCREEN | ADDDEF+1~, ADDDEF+4*, ADDDEF+7 |
U | ADDDEF+16, ADDDEF+34, ADDDEF+39, ADDDEF+40, FINDDEF+10, ADDMORE+12, HAVEDEF+3 |
>> VALMBCK | REBUILD+4*, COMPLETE+4*, DELETE+2* |
VALMCNT | EN+2~, INIT+2*, INIT+6, INIT+9, INIT+14, INIT+21, INIT+26, INIT+30, INIT+34, INIT+35 , INIT+54, INIT+55, INIT+57, INIT+58, INIT+59 |
>> VALMHDR(1 | HDR+4* |
>> VALMHDR(2 | HDR+8* |
X | ADD+1~, ADD+4*, HDR+1~, HDR+2*, HDR+3*, HDR+4, HDR+6*, HDR+7*, HDR+8, INIT+1~ , INIT+24*, INIT+49*, HELP+1*, ADDMORE+11*, LABEL+1~, LABEL+2*, LABEL+3*, LABEL+4 |
Y | ASK+1~, ASK+3*, ASK+4, ASK+5, ADD+1~, ADD+2*, ADD+3*, ADD+6, ADD+7, ADD+8 , ADD+11, TDATES+1~, TDATES+4, TDATES+6, ADDDEF+1~, ADDDEF+23*, ADDDEF+24, ADDDEF+25, ADDDEF+26, ADDMORE+1~ , ADDMORE+6, ADDMORE+14, ADDMORE+16 |
Y(0 | ADDMORE+9 |
Name | Field # of Occurrence |
---|---|
$T(FIELDS+(3) | INIT+18, TDATES+9 |