AMHVRL2 ; IHS/CMI/LAB - DEMO/APPTS ACTION ;
Source file <AMHVRL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | EN1^SDAM EN^SDCNP RD1^SDDPA EN1^SDM |
| IHS VA Utilities | 2 | ^XBCLS $$VAL^XBDIQ1 |
| Kernel | 2 | ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR |
| Mental Health Social Services | 2 | RESET^AMHVRL ($$CONFID,$$PKGCK,MSG,RETURN)^AMHVU |
| IHS Changes To Scheduling | 1 | PAT2^ASDI |
| IHS Patient | 1 | ^AUPNPAT |
| Lab Service | 1 | SENDPAT^LRORD |
| Registration | 1 | FULL^VALM1 |
| VA Fileman | 1 | ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Mental Health Social Services | 3 | AMHLEA AMHLEE AMHLEP2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HDR | ; -- print header
|
|
| HRCN() | ; -- returns chart # for this facility
|
|
| PAD(DATA,LENGTH) | ; -- SUBRTN to pad length of data
|
|
| MENU | ; -- menu of scheduling actions
|
|
| NOW() | ; -- returns readable now
|
|
| 3 | ; -- check-in/walkin
|
|
| NAME() | ; -- returns printable name
|
|
| CHOICE | ;;
|
|
| 1 | ; -- make appt
|
|
| APPT(DFN) | ;EP; called by AMHV APPT protocol
|
|
| SENDPAT | ||
| 2 | ; -- cancel appt
|
|
| 4 | ; -- display appts
|
|
| SP(NUM) | ; -- SUBRTN to pad spaces
|
|
| PIMS | ;
|
| Name | Field # of Occurrence |
|---|---|
| RESET^AMHVRL | SENDPAT+9 |
| $$CONFID^AMHVU | HDR+4 |
| $$PKGCK^AMHVU | SENDPAT+4, APPT+5 |
| MSG^AMHVU | MENU+3, 1+2, 2+2, HDR+3, HDR+4, HDR+5, HDR+6 |
| RETURN^AMHVU | 3+2, 4+3 |
| PAT2^ASDI | 3+2 |
| ^AUPNPAT | SENDPAT+3, APPT+3 |
| ^DIR | MENU+6 |
| SENDPAT^LRORD | SENDPAT+7 |
| EN1^SDAM | APPT+4, PIMS+2 |
| EN^SDCNP | 2+3 |
| RD1^SDDPA | 4+3 |
| EN1^SDM | 1+3 |
| FULL^VALM1 | SENDPAT+1 |
| ^XBCLS | MENU+2 |
| $$VAL^XBDIQ1 | NAME+1 |
| $$FMTE^XLFDT | NOW+1 |
| $$NOW^XLFDT | NOW+1 |
| $$REPEAT^XLFSTR | HDR+6, PAD+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMHSITE - [#9002013] | SENDPAT+6 |
| ^AUPNPAT - [#9000001] | HRCN+1 |
| Name | Line Occurrences |
|---|---|
| $$HRCN | HDR+5 |
| $$NAME | 1+2, 2+2, 2+3, 4+2, HDR+5 |
| $$NOW | HDR+2 |
| $$PAD | HDR+2, SP+1 |
| $$SP | MENU+3, 1+2, 2+2, HDR+2, HDR+4, HDR+5 |
| @( | MENU+6 |
| MENU | MENU+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AMHPAT | APPT+4* |
| >> AMHVSAV | SENDPAT+2*, SENDPAT+8, APPT+2*, APPT+4, 1+3, 2+3, 3+2, 4+3 |
| APL | 4+1~, 4+2* |
| AUPNDOB | APPT+1~ |
| AUPNDOD | APPT+1~ |
| AUPNPAT | APPT+1~ |
| AUPNSEX | APPT+1~ |
| DA | 2+1~, 2+3*, 4+1~, 4+3* |
| DATA | PAD~, PAD+1 |
| DFN | SENDPAT+2, SENDPAT+3, SENDPAT+5, SENDPAT+8*, APPT~, APPT+2, APPT+3, APPT+4*, APPT+6, 1+3* , 2+3*, 3+2*, 4+3*, NAME+1, HRCN+1, PIMS+1 |
| DIC | 1+1~ |
| DIR | MENU+1~, MENU+6! |
| DIR("A" | MENU+4*, MENU+5* |
| DIR(0 | MENU+4* |
| DIRUT | MENU+1~, MENU+6 |
| DIV | 3+1~ |
| DT | 4+2 |
| DUZ | SENDPAT+6 |
| DUZ(2 | SENDPAT+6, HRCN+1 |
| HDT | 4+1~, 4+2* |
| I | MENU+1~, MENU+5* |
| >> IOUOFF | HDR+2 |
| >> IOUON | HDR+2 |
| LENGTH | PAD~, PAD+1 |
| NAME | 2+1~, 2+3*, 4+1~, 4+2* |
| NUM | SP~, SP+1 |
| OTH | 4+1~, 4+2* |
| SDEDT | 4+1~, 4+2* |
| SDEND | 4+1~, 4+2* |
| SDMM | 1+1~, 1+3* |
| SDPEP | 1+1~, 1+3*, 2+1~, 2+3*, 3+1~, 3+2*, 4+1~, 4+2* |
| SDRG | 4+1~, 4+2* |
| >> SDY | APPT+4* |
| U | HRCN+1 |
| X | HDR+1~, HDR+2*, HDR+3 |
| >> Y | SENDPAT+3*, APPT+3*, MENU+6 |
| Name | Field # of Occurrence |
|---|---|
| $T(CHOICE+I | MENU+5 |
| $T(EN1^SDAM | APPT+4 |