©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
GMRCONS3 ;ALB/MRY - Consult Status link report ;4/10/06 14:21
Source file <GMRCONS3.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | DD^%DT WAIT^DICD ^DIR |
| Kernel | 1 | $$LOW^XLFSTR |
| Registration | 1 | FULL^VALM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CASE | ;
|
|
| FND(CD) | ;status already selected?
|
|
| CT3 | ;print clinic summary
|
|
| END | ||
| STCK(RES) | ||
| STSAGAIN | ;Loop to get another status.
|
|
| SUMARY | ;
|
|
| ENDCASE | ||
| NUMBER | ;
|
|
| SETNOD | ;
|
|
| STS() | ;Select a set of status for view.
|
|
| HEADER | ;
|
|
| CKCODE(CODE) | ;
|
|
| SPC(DATA,COL) | ;
|
|
| NEWSTS | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | CT3+9 |
| ^SC - [#44] | CT3+9 |
| ^SC("AWAS1" | CT3+8, CT3+9 |
| ^TMP("GMRCR" | CT3+1!, SETNOD+1* |
| ^TMP($J | CT3+2, CT3+3, CT3+5, CT3+6 |
| Name | Line Occurrences |
|---|---|
| $$FND | CKCODE+1 |
| $$SPC | CT3+11, CT3+13, CT3+15, HEADER+1, HEADER+2, HEADER+3 |
| $$STS | NEWSTS+3 |
| CKCODE | CASE+4, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11 |
| CT3 | NEWSTS+5 |
| END | STSAGAIN+8, STSAGAIN+9 |
| HEADER | CT3+4 |
| SETNOD | CT3+12, CT3+14, CT3+15, HEADER+1, HEADER+3 |
| STCK | STSAGAIN+10 |
| STSAGAIN | STSAGAIN+11 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CT3+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> A | CT3+2*, CT3+3, CT3+5, CT3+6, HEADER+1 |
| >> B | CT3+3*, CT3+5, CT3+6, CT3+7 |
| CD | FND~, FND+1, FND+2, FND+3 |
| >> CLINIC | CT3+9*, CT3+13 |
| >> CNSDT | CT3+6* |
| >> CNSLT | CT3+6*, CT3+8, CT3+9 |
| >> CNSLTND | CT3+6*, CT3+11 |
| CODE | STCK+1~, CASE+4*, CKCODE~, CKCODE+1, CKCODE+4, CKCODE+5 |
| COL | SPC~, SPC+1 |
| DATA | SPC~, SPC+1 |
| DIR | STS+2~ |
| DIR("A" | STSAGAIN+2*, STSAGAIN+5* |
| DIR("B" | STSAGAIN+3*, STSAGAIN+6! |
| DIR(0 | STSAGAIN+1* |
| >> DSH | HEADER+3 |
| >> DTOUT | STSAGAIN+8 |
| >> DUOUT | STSAGAIN+8 |
| >> FR | HEADER+1 |
| >> GMRCCTRL | NUMBER+1*, NUMBER+2* |
| >> GMRCQUT | STSAGAIN+8* |
| >> GMRCSTAT | NEWSTS+2, NEWSTS+3*, CT3+3 |
| GMRCSTCK | STS+2~, STSAGAIN+4, STSAGAIN+11, END, CASE+1*, CKCODE+1, CKCODE+4*, CKCODE+5*, FND+1, FND+2 , FND+3 |
| HDR | CT3+3*, CT3+4! |
| >> I | CT3+15* |
| >> II | CT3+15* |
| >> IOBM | STS+1 |
| >> IOSTBM | STS+1 |
| >> IOTM | STS+1 |
| >> L1 | SPC+1* |
| >> L2 | SPC+1* |
| >> L3 | SPC+1* |
| >> LN | CT3+2*, SETNOD+1* |
| >> P3 | CT3+7* |
| >> P4 | CT3+7*, CT3+11 |
| >> P6 | CT3+7*, CT3+8, CT3+12 |
| >> PC3 | CT3+15* |
| >> PRTCNDT | CT3+6*, CT3+11 |
| >> PTNM | CT3+6*, CT3+11 |
| RES | STCK~, CASE+1, CASE+3, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11 |
| >> SDAPT | CT3+9*, CT3+10 |
| >> SDAPT1 | CT3+9*, CT3+13 |
| >> SDAPTIM | CT3+10*, CT3+13 |
| >> SETNOD | CT3+11*, CT3+13*, CT3+14*, CT3+15*, HEADER+1*, HEADER+2*, HEADER+3*, SETNOD+1 |
| >> SM | CT3+15* |
| SPC | SETNOD+1*, SPC+1~*, SPC+2 |
| >> STCOD | CT3+9*, CT3+13 |
| SUM | CT3+3!, CT3+14 |
| SUM( | CT3+5*, CT3+15 |
| TEMPSTAT | NEWSTS+1~, NEWSTS+2* |
| >> TEXT | CT3+7* |
| >> TO | HEADER+1 |
| >> TX | CT3+7* |
| U | CT3+6, CT3+9, CT3+11 |
| >> VALMCNT | SETNOD+1* |
| X | STS+2~ |
| Y | STS+2~, STSAGAIN+9, STSAGAIN+10, CT3+10* |
| Name | Field # of Occurrence |
|---|---|
| $T(SUMARY+II | CT3+15 |
| $T(SUMARY+TX | CT3+7 |