©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
DG1010PA ;ALB/REW - 1010 PRINT--INQUIRY PATIENT -ADDITIONL ; 28-MAY-93
Source file <DG1010PA.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC YN^DICN ^DIR |
| Registration | 2 | ($$MTPRMPT,$$SEL1010)^DG1010P ASK^DGBLRV |
| Health Summary | 1 | ENXQ^GMTSDVR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADM | ||
| QTFAIL | ||
| NOREG(DFN) | ; DOES PROMPTS FOR 10/10 PRINT W/O REGISTRATION
|
|
| AFTERASK(DGX) | ;ACTIONS AFTER REPONSE OF YES TO PRINT
|
|
| QTPROMP | ||
| ASK(DGX) | ; PROMPTS FOR PRINT
|
|
| QTNOREG | ||
| PROMPRN(DGX) | ; PROMPTS FOR PRINT
; RETURNS DGX [1=YES;0=NO;-1=DIRUT CONDITIONS] ; OUTPUT:DG1 VALUE |
|
| FAILCOND(DGX) | ;CHECKS IF PROMPT SHOULD BE ASKED
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | FAILCOND+16, FAILCOND+19 |
| ^DG(43 - [#43] | NOREG+16, NOREG+17, FAILCOND+17, FAILCOND+20, FAILCOND+23, AFTERASK+15, AFTERASK+25, AFTERASK+26 |
| ^DGPM("ATID1" | ADM |
| ^DGS(41.1 - [#41.1] | FAILCOND+12 |
| ^DIC(4 - [#4] | AFTERASK+34 |
| ^XMB(1 - [#4.3] | AFTERASK+34 |
| Name | Line Occurrences |
|---|---|
| $$AFTERASK | PROMPRN+7 |
| $$ASK | PROMPRN+6 |
| $$FAILCOND | PROMPRN+4 |
| $$PROMPRN | NOREG+18, NOREG+24, NOREG+25 |
| ADM | FAILCOND+10 |
| QTFAIL | FAILCOND+7, FAILCOND+8, FAILCOND+15, FAILCOND+18, FAILCOND+22 |
| QTNOREG | NOREG+17, NOREG+18, NOREG+21, NOREG+24, NOREG+25 |
| QTPROMP | PROMPRN+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ADM |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ASK+5*, ASK+6, FAILCOND+8, FAILCOND+14 |
| DFN | NOREG~, NOREG+20, FAILCOND+12, ADM |
| >> DFN1 | ADM |
| DG1 | NOREG+15~, NOREG+18, NOREG+21*, NOREG+24, NOREG+25, QTNOREG, PROMPRN+3*, PROMPRN+4*, PROMPRN+5, PROMPRN+6* , PROMPRN+7*, QTPROMP, FAILCOND+14* |
| DGDEF | FAILCOND+9~, FAILCOND+13*, AFTERASK+24~, AFTERASK+25*, AFTERASK+27, AFTERASK+31*, AFTERASK+33 |
| DGFAIL | FAILCOND+5~, FAILCOND+6*, FAILCOND+11*, FAILCOND+15*, FAILCOND+17*, FAILCOND+18*, FAILCOND+21*, FAILCOND+23*, QTFAIL |
| DGGO | AFTERASK+12~, AFTERASK+13*, AFTERASK+20*, AFTERASK+23*, AFTERASK+33*, AFTERASK+35 |
| >> DGMTI | NOREG+20 |
| DGNOQ | FAILCOND+9~, FAILCOND+13* |
| >> DGOPT | NOREG+16*, NOREG+18*, NOREG+22*, NOREG+23*, NOREG+24*, NOREG+25*, QTNOREG* |
| DGPMDA | FAILCOND+12, ADM!*, ADM+1* |
| DGX | PROMPRN~, PROMPRN+4, PROMPRN+6, PROMPRN+7, ASK~, ASK+4, ASK+5, FAILCOND~, FAILCOND+7, FAILCOND+8 , FAILCOND+15, FAILCOND+18, FAILCOND+22, AFTERASK~, AFTERASK+14, AFTERASK+22 |
| DIC | AFTERASK+15*, AFTERASK+16! |
| DIC(0 | AFTERASK+15* |
| DIR | AFTERASK+12~, AFTERASK+20! |
| DIR("A" | AFTERASK+29* |
| DIR("B" | AFTERASK+17*, AFTERASK+27* |
| DIR(0 | AFTERASK+18*, AFTERASK+28* |
| DIRUT | AFTERASK+20!, AFTERASK+32 |
| DUOUT | AFTERASK+20! |
| >> EASMTIEN | NOREG+20* |
| FORM | NOREG+15~, NOREG+19*, NOREG+21, NOREG+22, NOREG+23 |
| >> FREE | NOREG+16* |
| >> GMTSTYP | AFTERASK+21* |
| I | NOREG+15~, ADM* |
| >> PRF | NOREG+17*, NOREG+25* |
| >> PSOINST | AFTERASK+34* |
| >> PSONOPG | AFTERASK+33* |
| >> PSOPAR | AFTERASK+33* |
| >> PSTYPE | AFTERASK+33* |
| U | NOREG+16, FAILCOND+17, FAILCOND+20, FAILCOND+23, AFTERASK+15, AFTERASK+17, AFTERASK+25, AFTERASK+26, AFTERASK+34 |
| X | NOREG+15~, FAILCOND+16*, FAILCOND+19*, AFTERASK+12~, AFTERASK+15* |
| Y | NOREG+15~, AFTERASK+12~, AFTERASK+17, AFTERASK+20, AFTERASK+21, AFTERASK+31 |
| Name | Field # of Occurrence |
|---|---|
| $T(ENXQ^GMTSDVR | FAILCOND+17 |