©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
SDOQMP0 ;ALB/SCK - Appointment Monitoring / Performance Measure Rpt. ; [07/23/96]
Source file <SDOQMP0.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | ASK2^SDDIV LOOPC^SDOQMP AMMSCNT^SDOQMP1 ^SDOQMPL |
| VA Fileman | 2 | NOW^%DTC ^DIR |
| Kernel | 1 | RESCH^XUTMOPT |
| MailMan | 1 | ^XMD |
| Registration | 1 | FIRST^VAUTOMA |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIVISION(PMIEN) | ; Returns the name of the division the clinic as assigned to.
; Input: ; Ien of clinic in the Hospital location file. |
|
| SELECT() | ; Selection method for clinic selection.
; Returns: ; Y = S, D, or C for Stop Code, Division, or Clinic. ; Y = Null for up-arrow or timeout |
|
| DIV() | ; -- get division data
; input: none ; output: VAUTD := divs selected (VAUTD=1 for all) ; return: was selection made [ 1|yes 0|no] |
|
| STOPCDE(PMIEN) | ; Get associated stop code number for clinic
; Input ; PMIEN - Ien of clinic in the Hospital location file |
|
| CHKTASK() | ; Checks if the expiration date has been reached. If it has, delete the option
; scheduling run time field to turn off the reschedule option |
|
| STOPQ | ||
| CHKQ | ||
| CLINIC() | ; One-Many-All clinic selection
; Output ; CLINIC(IEN)="" |
|
| LOOPSC | ; Loops through all clinics in the Hospital location file, and selects clinics that are
; associated with one of the selected stop codes, adding them to the "SDAMMS" TMP global. ; If VAUTC=1, then select clinics for all Stop codes. ; If VAUTC=0, then select only those clinics for the Stop codes in the ; VAUTC(StopCode Ien) local array. ; |
|
| LOOPS | ; Use appropriate loop for building the clinic global.
|
|
| LOOPD | ; Loops through all clinics in the Hospital location file, and select clinics that are
; in one of the selected divisions, adding them to the "SDAMMS" TMP global. ; If VAUTD=1, then select clinics for all Divisions. ; If VAUTD=0, then select only those clinics for the Divisions in the ; VAUTC(StopCode Ien) local array. |
|
| CLNOK(PMSC) | ; Checks associated stop code for clinic.
; Input ; PMSC - Associated stop code for current clinic |
|
| SELQ | ||
| DIVQ | ||
| STOP() | ; -- get stop code data
; output: VAUTC := stop codes selected (VAUTC=1 for all) ; return: was selection made [ 1|yes 0|no] |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(40.7 - [#40.7] | Classic Fileman Calls |
| ^SC - [#44] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | DIVISION+11 |
| ^DG(43 - [#43] | DIV+5 |
| ^DIC(19 - [#19] | CHKTASK+9 |
| ^DIC(19.2 - [#19.2] | CHKTASK+11 |
| ^DIC(40.7 - [#40.7] | STOPCDE+8, CLNOK+11, CLNOK+12 |
| ^SC - [#44] | STOPCDE+8, DIVISION+9, LOOPSC+12, LOOPSC+19, LOOPSC+20, LOOPD+12, LOOPD+18, LOOPD+19 |
| ^SC("AC" | LOOPSC+11, LOOPSC+18, LOOPD+11, LOOPD+17 |
| ^TMP("SDAMMS" | LOOPSC+13, LOOPSC+22, LOOPD+13, LOOPD+22 |
| Name | Line Occurrences |
|---|---|
| CHKQ | CHKTASK+8 |
| DIVQ | DIVISION+10 |
| LOOPD | LOOPS+4 |
| LOOPSC | LOOPS+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | CHKTASK+8 |
| AMMSD0 | LOOPSC+6~, LOOPSC+7*, LOOPSC+11*, LOOPSC+12, LOOPSC+18*, LOOPSC+19, LOOPSC+20, LOOPD+6~, LOOPD+8*, LOOPD+11* , LOOPD+12, LOOPD+17*, LOOPD+18, LOOPD+19 |
| >> AMMSLAST | LOOPSC+14, LOOPSC+23, LOOPD+14, LOOPD+23 |
| CLINIC | CLINIC+7!, CLINIC+8, LOOPS+2 |
| CNT | CLNOK+8~, CLNOK+10* |
| >> DIC | CLINIC+5*, STOP+5* |
| >> DIC("S" | CLINIC+5* |
| DIR | SELECT+11! |
| DIR("?" | SELECT+8*, SELECT+9* |
| DIR("A" | SELECT+7* |
| DIR("B" | SELECT+10* |
| DIR(0 | SELECT+6* |
| >> DIRUT | SELECT+12 |
| EXPDT | CHKTASK+3~, CHKTASK+6*, CHKTASK+8 |
| OIEN | CHKTASK+3~, CHKTASK+9*, CHKTASK+10, CHKTASK+11 |
| OSIEN | CHKTASK+3~, CHKTASK+11*, CHKTASK+12 |
| PDIV | DIVISION+7~ |
| PMDIEN | DIVISION+7~, DIVISION+9*, DIVISION+10, DIVISION+11 |
| PMDIV | DIVISION+8*, DIVISION+11*, DIVQ, LOOPD+6~, LOOPD+19*, LOOPD+20, LOOPD+21 |
| PMIEN | STOPCDE~, STOPCDE+8, DIVISION~, DIVISION+9 |
| PMOK | CLNOK+8~, CLNOK+9*, CLNOK+10, CLNOK+12*, CLNOK+13 |
| PMSC | STOPCDE+7~, STOPCDE+8*, STOPCDE+9, CLNOK~, CLNOK+11, CLNOK+12, LOOPSC+6~, LOOPSC+20*, LOOPSC+21 |
| PMSTCD | CLNOK+8~, CLNOK+10*, CLNOK+12 |
| PMTEXT | CHKTASK+3~ |
| PMTEXT(1 | CHKTASK+17* |
| PMTEXT(2 | CHKTASK+18* |
| PMTEXT(3 | CHKTASK+19* |
| PMTEXT(4 | CHKTASK+20* |
| PMTEXT(5 | CHKTASK+21* |
| >> SCERR | CHKTASK+15 |
| SDFRQ | CHKTASK+3~, CHKTASK+14*, CHKTASK+15 |
| SDOK | CHKTASK+3~, CHKTASK+5*, CHKTASK+26*, CHKQ |
| SDOPT | CHKTASK+3~, CHKTASK+14*, CHKTASK+15 |
| SDWHN | CHKTASK+3~, CHKTASK+14*, CHKTASK+15 |
| U | DIV+5, STOPCDE+8, CLNOK+12, DIVISION+9, DIVISION+11 |
| VAUTC | STOP+7!, STOPQ, LOOPSC+10, LOOPSC+17, LOOPS+3 |
| VAUTC( | LOOPSC+21 |
| VAUTD | DIV+7!, DIV+8, LOOPD+10, LOOPD+16, LOOPS+4 |
| VAUTD( | LOOPD+21 |
| >> VAUTNI | CLINIC+5*, STOP+5* |
| >> VAUTSTR | CLINIC+5*, STOP+5* |
| >> VAUTVB | CLINIC+5*, STOP+5* |
| >> X1 | LOOPSC+14*, LOOPSC+23*, LOOPD+14*, LOOPD+23* |
| >> XMDUZ | CHKTASK+24* |
| >> XMN | CHKTASK+22* |
| >> XMSUB | CHKTASK+22* |
| >> XMTEXT | CHKTASK+23* |
| >> XMY("G.SD PM | NOTIFICATION" , CHKTASK+24* |
| Y | SELECT+5~, SELECT+12*, SELQ, CLINIC+7, STOP+7, DIV+7 |
| Name | Field # of Occurrence |
|---|---|
| $T(EXPIRE+1^SDOQMPL | CHKTASK+6 |
| $T(STOPS+CNT^SDOQMPL | CLNOK+10 |