©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
IBCSCE ;ALB/MRL,MJB - MCCR SCREEN EDITS ;07 JUN 88 14:35
Source file <IBCSCE.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 7 | ^IBCCPT MCCR^IBCNSP2 ^IBCOPV DX^IBCSC4B ^IBCSC4D ^IBCSC5A ^IBCSC5B |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMPL | ||
| 310 | ;;101;102;103;S Y="@31";@311;D INST^IBCU;111;K DIC("DR"),DLAYGO;@31;
|
|
| 61 | ;;.06;164;
|
|
| 62 | ;;155;S:X=0 Y=156;157;156;S:'$D(IBOX) Y="@62";153;@62;
|
|
| 63 | ;;151;152;
|
|
| 64 | ;;161;165;
|
|
| 65 | ;;D RCD^IBCU1;42;202;S:'X Y=201;203;201;I $P(^DGCR(399,DA,"U1"),"^",11)']"" S Y="@65";210;@65;
|
|
| 82 | ;;204;
|
|
| 83 | ;;205;
|
|
| 81 | ;;208;
|
|
| 86 | ;;163;
|
|
| 84 | ;;206;
|
|
| 85 | ;;207;
|
|
| 46 | ;;40;
|
|
| 44 | ;;S IBZ20=$P(^DGCR(399,DA,0),U,9);.09;D PRO^IBCSC4B;S IBASKCOD=1
|
|
| 45 | ;;41;
|
|
| 42 | ;;162;
|
|
| 43 | ;;I IBPTF S Y="@943";64;65;66;67;68;S Y="@43";@943;D DX^IBCSC4B;@43;
|
|
| 41 | ;;160;159;158;
|
|
| UPDT | ||
| 999 | ;;64;65;66;67;68;
|
|
| ENQ | ||
| 75 | ;;D RCD^IBCU1;42;202;S:'X Y=201;203;201;I $P(^DGCR(399,DA,"U1"),"^",11)']"" S Y="@75";210;@75;
|
|
| 74 | ;;S:$D(IBOUT) Y="@999";43;@999;K IBOUT;
|
|
| 73 | ;;151;152;
|
|
| 72 | ;;155;S:X=0 Y=156;157;156;S:'$D(IBOX) Y="@72";153;@72;
|
|
| 71 | ;;.06;164;
|
|
| 17 | ;;.18;
|
|
| 16 | ;;110;
|
|
| EDIT | ||
| 32 | ;;104;105;106;121;107;108;109
|
|
| 31 | ;;.07;S X=$P(^DGCR(399,DA,0),U,11);S Y="@"_$S(X']"":31,X="p":31,X="o":311,1:310);@310;D 1^IBCSCH1 S Y="@"_$S(IBADI=-1:31,'IBADI:312,1:313);@313;^2^DPT(^^D SET^IBCSCE;D UPDT^IBCSCE;@312;
|
|
| 56 | ;;40;
|
|
| 51 | ;;.03;
|
|
| 53 | ;;;;same as 74
|
|
| 52 | ;;64;S:X="" Y="@99";65;S:X="" Y="@99";66;S:X="" Y="@99";67;S:X="" Y="@99";68;@99;
|
|
| 55 | ;;41;
|
|
| 54 | ;;S IBZ20=$P(^DGCR(399,DA,0),U,9);.09;S IBASKCOD=1
|
|
| LOOP |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | UPDT+1* |
| ^DIC(36 - [#36] | UPDT |
| ^DPT - [#2] | UPDT |
| ^IBE(350.9 - [#350.9] | EDIT+3 |
| Name | Line Occurrences |
|---|---|
| EDIT | LOOP |
| ENQ | EDIT, EDIT+1, EDIT+4, EDIT+5 |
| TMPL | EDIT+2, EDIT+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | UPDT+1 |
| ^(0 | UPDT |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EDIT+2*, TMPL*, ENQ! |
| >> DFN | UPDT |
| DGDRD | ENQ! |
| DGDRS | ENQ! |
| DGDRS1 | ENQ! |
| DIE | TMPL*, TMPL+1!, ENQ! |
| DR | EDIT+2!, EDIT+3!, TMPL*, TMPL+1!, ENQ! |
| I | EDIT+2~, EDIT+3~ |
| IBAIC | UPDT+1*, UPDT+2! |
| IBDD | UPDT*, UPDT+2! |
| IBDD( | UPDT*, UPDT+1 |
| IBDR1 | ENQ! |
| IBDR20 | IBCSCE+6*, IBCSCE+7*, LOOP*, EDIT, EDIT+1, EDIT+2, EDIT+3, EDIT+4, EDIT+5, ENQ! |
| IBDRL | LOOP~* |
| IBDRLP | LOOP~* |
| IBI1 | UPDT*, UPDT+1*, UPDT+2! |
| >> IBIFN | EDIT+2, TMPL, UPDT+1 |
| >> IBPTF | EDIT+1 |
| >> IBSR | TMPL |
| >> IBSR1 | TMPL |
| >> Y | EDIT+2*, TMPL* |