©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
SDUTL2 ;ALB/CAW - Misc. utilities ; 6/28/07 11:48am
Source file <SDUTL2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | C^%DTC IX^DIC $$GET1^DIQ ^DIR |
| Registration | 2 | $$LST^DGMTU (DEM,KVAR)^VADPT |
| Kernel | 1 | $$FMTE^XLFDT |
| Scheduling | 1 | (ACTIVE,CLOSE,DATE,INDEX,OPEN,PAT,SCAN,SCANCB)^SDQ |
| Uncategorized | 1 | $$RET^YSGAF |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 21 | PROVIDER SCDXMSG2 SD53121 SDAL0 SDAM1 SDAM10 SDAM3 SDAMEP2 SDAMQ1 SDAMWI SDCO SDCO1 SDCO7 SDGAF SDMHNS SDMULT SDNACT SDPCE2 SDREACT ^SC SDUNC |
| IHS Changes To Scheduling | 2 | BSDAM10 BSDCHKI1 |
| PCE Patient Care Encounter | 2 | PXCE PXCEHLOC |
| IHS VA Support Files | 1 | PROVIDER |
| Order Entry Results Reporting | 1 | ORWPCE2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWGAF(DFN) | ;;Determine if new GAF Score needed
|
|
| HELP(SDDT) | ; -- executable help called when entering a provider in the
; DEFAULT PROVIDER field (#16) or PROVIDER field (#.01) of the PROVIDER ; multiple (#2600) in the HOSPITAL LOCATION file (#44), the PROVIDER ; (#.01) field of the V PROVIDER file (#9000010.06), or in the ; PROVIDER prompt of the Check-out screen. display active providers ; with an active entry in the NEW PERSON file (#200) for PERSON CLASS. |
|
| XMY(GROUP,SDUZ,SDPOST) | ; -- set up XMY for mail group members
; input: GROUP := mail group efn [required] ; SDUZ := send to current user [ 0|no ; 1|yes] [optional] ; SDPOST := send to postmaster if XMY is undefined ; [ 0|no ; 1|yes] [optional] ; output: XMY := array of users ; XMDUZ := message sender set postmaster |
|
| GAFCM() | ;;
|
|
| ELSTAT(DA) | ;Retrieve patient eligibility status
|
|
| SCANQ | ||
| SCREEN(Y,SDDT) | ; -- screen called when entering a provider in the
; DEFAULT PROVIDER field (#16) or PROVIDER field (#.01) of the PROVIDER ; multiple (#2600) in the HOSPITAL LOCATION file (#44). |
|
| CLNCK(CLN,DSP) | ;Check clinic for valid stop code restriction.
; INPUT: CLN = IEN of Clinic ; DSP = Error Message Display, 1 - Display or 0 No Display |
|
| MHCLIN(SDCL,SDSC) | ;;Determines if Mental health Clinic requiring GAF
|
|
| FMT(DFN) | ; return current status of means test in external form
; input: DFN=ifn of patient ; ouput: [returned] MT^SMT^LST ; MT=external format of current status ; SMT=shortened format of current staus ; LST=date of last test |
|
| SCAN(SDINDEX,SDBEG,SDEND,SDCB,SDFN,SDIR) | ; -- api to invoke scan
|
|
| MSG | ;display error message to screen
|
|
| SCREST(SCIEN,TYP,DIS) | ;check stop code restriction in file 40.7 for a clinic.
; INPUT: SCIEN = IEN of Stop Code ; TYP = Stop Code Type, Primary (P) or Secondary (S) ; DIS = Message Display, 1 - Display or 0 No Display |
|
| COLLAT(SDEC) | ;Determines if patient has a collateral eligibility status
|
|
| FYNUNK(SD) | ; return YES, NO, UNKNOWN
; input: SD=internal piece ; output: [returned] Y=YES, N=NO, U=UNKNOWN |
|
| FCO(DFN) | ; return current status of copay test in external form
; input: DFN=ifn of patient ; ouput: [returned] COT^SCOT^LST ; COT=external format of current status ; SCOT=shortened format of current staus ; LST=date of last test |
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | NEWGAF+23 |
| $$LST^DGMTU | FMT+8, FCO+8 |
| IX^DIC | HELP+15 |
| $$GET1^DIQ | COLLAT+8, ELSTAT+9 |
| ^DIR | GAFCM+4 |
| ACTIVE^SDQ | SCAN+7 |
| CLOSE^SDQ | SCAN+9 |
| DATE^SDQ | SCAN+5 |
| INDEX^SDQ | SCAN+3 |
| OPEN^SDQ | SCAN+2 |
| PAT^SDQ | SCAN+4 |
| SCAN^SDQ | SCAN+8 |
| SCANCB^SDQ | SCAN+6 |
| DEM^VADPT | NEWGAF+18 |
| KVAR^VADPT | NEWGAF+20 |
| $$FMTE^XLFDT | SCREST+18 |
| $$RET^YSGAF | NEWGAF+16 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | Classic Fileman Calls |
| ^DIC(8 - [#8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | MHCLIN+21, SCREST+12 |
| ^SC - [#44] | MHCLIN+14, CLNCK+9, CLNCK+11 |
| ^XMB(3.8 - [#3.8] | XMY+11 |
| Name | Line Occurrences |
|---|---|
| $$SCREST | CLNCK+13, CLNCK+15 |
| MSG | SCREST+10, SCREST+14, SCREST+15, SCREST+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLN | CLNCK~, CLNCK+7, CLNCK+9, CLNCK+11 |
| CTY | SCREST+8~, SCREST+11*, SCREST+15 |
| D | HELP+12~, HELP+13* |
| DA | ELSTAT~, ELSTAT+8, ELSTAT+9 |
| DFN | FMT~, FMT+8, FCO~, FCO+8, NEWGAF~, NEWGAF+16 |
| DIC | HELP+12~, HELP+13* |
| DIC("S" | HELP+14* |
| DIC(0 | HELP+13* |
| DIR | GAFCM+1~ |
| DIR("A" | GAFCM+2*, GAFCM+3* |
| DIR("B" | GAFCM+4* |
| DIR(0 | GAFCM+4* |
| DIRUT | GAFCM+1~ |
| DIS | SCREST~, SCREST+9*, MSG+1 |
| DO | HELP+12~ |
| DSP | CLNCK~, CLNCK+6*, CLNCK+8, CLNCK+10, CLNCK+11*, CLNCK+13, CLNCK+15 |
| DT | SCREEN+30, HELP+11, NEWGAF+24, SCREST+17 |
| DUZ | XMY+12 |
| GROUP | XMY~, XMY+11 |
| I | XMY+8~ |
| IOST | MSG+1, CLNCK+8, CLNCK+10 |
| ND0 | CLNCK+5~, CLNCK+11*, CLNCK+12 |
| PSC | CLNCK+5~, CLNCK+11*, CLNCK+13 |
| RDT | SCREST+8~, SCREST+12*, SCREST+17, SCREST+18 |
| RTY | SCREST+8~, SCREST+12*, SCREST+13, SCREST+15 |
| SCIEN | SCREST~, SCREST+10, SCREST+12 |
| SCN | SCREST+8~, SCREST+12*, SCREST+14, SCREST+16, SCREST+18 |
| SD | FYNUNK~, FYNUNK+3 |
| SDBEG | SCAN~, SCAN+5 |
| SDCB | SCAN~, SCAN+6 |
| SDCL | MHCLIN~, MHCLIN+13, MHCLIN+14 |
| SDCS | MHCLIN+10~, MHCLIN+21*, MHCLIN+22, MHCLIN+23 |
| SDDT | SCREEN~, SCREEN+30*, SCREEN+31*, HELP~, HELP+11* |
| SDEC | COLLAT~, COLLAT+7, COLLAT+8 |
| SDEND | SCAN~, SCAN+5 |
| SDFN | SCAN~, SCAN+4 |
| SDGAF | NEWGAF+14~, NEWGAF+16*, NEWGAF+19, NEWGAF+22, NEWGAF+23, NEWGAF+24 |
| SDGAFDT | NEWGAF+14~ |
| SDINDEX | SCAN~, SCAN+3, SCAN+4, SCAN+5 |
| SDIR | SCAN~, SCAN+8 |
| SDMH | MHCLIN+10~, MHCLIN+23*, MHCLIN+25 |
| SDNOGAF | MHCLIN+10~, MHCLIN+11*, MHCLIN+23 |
| SDPOST | XMY~, XMY+10~*, XMY+14 |
| SDQID | SCAN+1~, SCAN+2, SCAN+3, SCAN+4, SCAN+5, SCAN+6, SCAN+7, SCAN+8, SCAN+9 |
| SDSC | MHCLIN~, MHCLIN+16 |
| SDSTOP | MHCLIN+10~, MHCLIN+14*, MHCLIN+16*, MHCLIN+21 |
| SDUZ | XMY~, XMY+9~*, XMY+12 |
| SDY | SCREEN+29~, SCREEN+31*, SCREEN+34*, SCREEN+35 |
| SSC | CLNCK+5~, CLNCK+11*, CLNCK+14, CLNCK+15 |
| STR | SCREST+8~, SCREST+10*, SCREST+13, SCREST+14*, SCREST+15, SCREST+16*, SCREST+17, SCREST+18*, MSG+1 |
| STYP | SCREST+8~, SCREST+9*, SCREST+10, SCREST+14, SCREST+18 |
| TYP | SCREST~, SCREST+9, SCREST+11, SCREST+16 |
| U | FMT+9, FMT+10, FCO+9, FCO+10, XMY+11, SCREST+12, SCREST+14, SCREST+16, SCREST+18, CLNCK+11 , CLNCK+12 |
| VADM | NEWGAF+14~ |
| VADM(6 | NEWGAF+19 |
| VAL | CLNCK+5~, CLNCK+13*, CLNCK+14, CLNCK+15*, CLNCK+16 |
| X | FMT+7~, FMT+8*, FMT+9, FMT+10, FCO+7~, FCO+8*, FCO+9, FCO+10, HELP+12~, HELP+13* , NEWGAF+24 |
| >> X1 | NEWGAF+23* |
| >> X2 | NEWGAF+23* |
| >> XMDUZ | XMY+16* |
| XMY | XMY+8!, XMY+14 |
| XMY( | XMY+12*, XMY+14* |
| XMY("G." | XMY+11* |
| Y | FMT+7~, FMT+9*, FMT+10, FCO+7~, FCO+9*, FCO+10, SCREEN~, SCREEN+28, GAFCM+5 |