source: WorldVistAEHR/trunk/r/GENERIC_CODE_SHEET-GEC/GECSVFY0.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.6 KB
Line 
1GECSVFY0 ;WISC/RFJ-verify and check code sheet parameters ;18 Nov 93
2 ;;2.0;GCS;;MAR 14, 1995
3 Q
4 ;
5 ;
6GO ; start checking. GECSFIX will fix discrepancies if set to a 1
7 N GECSCS,GECSD,GECSD1,GECSDA,GECSDA1,GECSDATA,GECSDIE,GECSERR,GECSFLAG,GECSI,GECSII,GECSP
8 I '$D(GECSFIX) S GECSFIX=0
9 F GECSI=1:1 S GECSD=$T(DATA+GECSI) Q:GECSD="" S GECSD=$P(GECSD,";",3,7) I $E(GECSD)'="=" D
10 . D CHECK^GECSVFY1 I GECSFLAG Q
11 . S GECSDA=+$O(^GECS(2101.1,"B",$P(GECSD,";"),0))
12 . F GECSII=GECSI+1:1 S GECSDATA=$P($T(DATA+GECSII),"=",2) Q:GECSDATA="" S GECSI=GECSI+1 F GECSP=1:1 S GECSCS=$P(GECSDATA,"^",GECSP) Q:GECSCS="" D
13 . . S GECSDA1=+$O(^GECS(2101.2,"B",GECSCS,0))
14 . . S GECSD1=$G(^GECS(2101.2,GECSDA1,0))
15 . . I GECSD1="" W !?5,$J(GECSERR,2),". ERROR -- CODE SHEET '",GECSCS,"' IS NOT FOUND IN FILE 2101.2." Q
16 . . S GECSDIE=""
17 . . I $P(GECSD1,"^",4)'=GECSDA D
18 . . . W !?5,$J(GECSERR,2),". ERROR -- CODE SHEET '",GECSCS,"' BATCH SHOULD EQUAL '",$P(GECSD,";"),"'",!?35,"[NOT '",$P($G(^GECS(2101.1,+$P(GECSD1,"^",4),0)),"^"),"']" S GECSERR=GECSERR+1
19 . . . I GECSFIX S GECSDIE=$P(GECSD,";") W !?10,"... FIXING BATCH TYPE."
20 . . I $P(GECSD1,"^",5)'="Y",$P(GECSD1,"^")'="08",$P(GECSD1,"^")'="11",$P(GECSD1,"^")'="223" D
21 . . . W !?5,$J(GECSERR,2),". ERROR -- ACTIVE CODE SHEET ",$P(GECSD1,"^")," SHOULD BE 'YES' [NOT 'NO']" S GECSERR=GECSERR+1
22 . . . I GECSFIX S $P(GECSDIE,"^",2)="Y" W !?10,"... FIXING ACTIVE CODE SHEET (TO YES)."
23 . . ; fix code sheet if problem
24 . . I '$G(GECSFIX)!(GECSDIE="") Q
25 . . N D,D0,DA,DI,DIC,DIE,DQ,DR,X
26 . . S DR="" I $P(GECSDIE,"^")'="" S DR=".7///"_$P(GECSDIE,"^")_";"
27 . . I $P(GECSDIE,"^",2)'="" S DR=DR_"1///Y"
28 . . S (DIC,DIE)="^GECS(2101.2,",DA=GECSDA1 D ^DIE
29 Q
30 ;
31 ;
32DATA ;;data for batch types
33 ;;ACCOUNTS RECEIVABLE;100;AMS;Q-AMD.VA.GOV
34 ;;=243^244^245^246^247^248^249^251^252^253^254^292^293^294^295^296^297^298
35 ;;BUILDING MANAGEMENT;100;AMS;Q-AMD.VA.GOV
36 ;;=217^218^219^220
37 ;;CHAPLAIN;100;AMS;Q-AMD.VA.GOV
38 ;;=141^142
39 ;;CONSULTING/ATTENDING;100;CAA;Q-CAA.VA.GOV
40 ;;=2418A^2418C^2418D1^2418D2^2418D3^2418T^C&AHDR
41 ;;DDCSS - MENTAL HEALTH;100;DDC;Q-NPF.VA.GOV
42 ;;=5333^5334^5335^5356^5357^53CO
43 ;;DENTAL;100;DAS;Q-DAS.VA.GOV
44 ;;=G61^G62^G63^G64^G65
45 ;;DIETETICS;100;AMS;Q-AMD.VA.GOV
46 ;;=224
47 ;;FEE BASIS;100;AMS;Q-AMD.VA.GOV
48 ;;=344^347^348^349^350
49 ;;FEE BASIS - GECO;100;CNH;Q-CNH.VA.GOV
50 ;;=18-3
51 ;;FEE BASIS - IFCAP;49;FEN;Q-FEE.VA.GOV
52 ;;=994.00^994.01^994.02^994.10^994.90
53 ;;FINANCIAL MANAGEMENT;;FMS;Q-FMS.VA.GOV
54 ;;=AO:FMS^AT:FMS^AV:FMS^BD:FMS^CO:FMS^CR:FMS^CX:FMS^DD:FMS^DV:FMS^IF:FMS^IV:FMS^MO:FMS^MV:FMS^NC:FMS^OP:FMS^PV:FMS^RC:FMS^RO:FMS^RT:FMS^RV:FMS^SA:FMS^SO:FMS^ST:FMS^SV:FMS
55 ;;=TD:FMS^TN:FMS^TO:FMS^TP:FMS^TV:FMS^TY:FMS^TZ:FMS^VR:FMS^WR:FMS
56 ;;FORM REQUISITION - GECO;100;FOR;Q-LOG.VA.GOV
57 ;;=FORM1
58 ;;HOSPITAL BASED HOME CARE- GECO;100;HBH;Q-HBH.VA.GOV
59 ;;=HBHC3^HBHC4^HBHC5
60 ;;LAB;25;AMS;Q-AMD.VA.GOV
61 ;;=378^H01^H02^H03^H04^H05^H06^H07^H08^H09^H10^H11^H12^H13^H14^H15^H16^H17^H18^H19^H20^H21^H22^H23^H24^H26^H28^H29^H30^H32^H33^H34^H35^H36^H37^H38^H39^H40^H41^H42^H43^H44^H46^H47^H48^H49^H50^H51^H52^H53^H54^H55^H56^H57^H58^H59^H60
62 ;;=H61^H62^H63^H64^H65^H66^H67^H68^H69^H73^H74^H75^H76^H77^H78^H79^H80^H81^H82^H83^H84^H85^H86^H87^H88^H89^H90^H91^H92^H93^H94^H95^H96^H97^H98^H99^J03^J07^J08^J09
63 ;;MAS;100;AMS;Q-AMD.VA.GOV
64 ;;=167^223^290^334^335^336^337^338^339^340^341^345^346^401^402^403^404^405^406^407^408^409^410^411^412^413^414^415^416^417^418^419^420
65 ;;MEDICAL MEDIA;100;AMS;Q-AMD.VA.GOV
66 ;;=165
67 ;;MEDICINE;100;AMS;Q-AMD.VA.GOV
68 ;;=230^234^J15^J19^J41^J42^J43^J44
69 ;;MENTAL HEALTH;100;AMS;Q-AMD.VA.GOV
70 ;;=169^171^172^222^229^311^312^313^314^315^316^317^318^319^324
71 ;;NURSING;100;AMS;Q-AMD.VA.GOV
72 ;;=200^201^202
73 ;;PERSONNEL;100;PER;Q-PRB.VA.GOV
74 ;;=PER1
75 ;;PERSONNEL:VACANT;100;PER;Q-PFV.VA.GOV
76 ;;=PER2
77 ;;PHARMACY;100;AMS;Q-AMD.VA.GOV
78 ;;=157^158
79 ;;PHYSICIAN RECRUIT/STAFF - GECO;100;PHY;Q-PHY.VA.GOV
80 ;;=PHY1^PHY2^PHY3^PHY4
81 ;;PROSTHETICS;100;AMS;Q-AMD.VA.GOV
82 ;;=120^121^122^123^124^125^126^127^128^129^130^131^132^133^134^135^136^137^138^139^150^173^174^362^363
83 ;;RADIOLOGY;100;AMS;Q-AMD.VA.GOV
84 ;;=186^189
85 ;;RECREATION;100;AMS;Q-AMD.VA.GOV
86 ;;=264^265
87 ;;SECURITY/POLICE;10;AMS;Q-AMD.VA.GOV
88 ;;=196
89 ;;SOCIAL WORK;100;AMS;Q-AMD.VA.GOV
90 ;;=255^256^257^258^361
91 ;;STAFFING MANAGEMENT - GECO;100;NSY;Q-NSY.VA.GOV
92 ;;=NSY1^NSY2^NSY3^NSY4^NSY5^NSY6^NSY7
93 ;;SURGERY;100;AMS;Q-AMD.VA.GOV
94 ;;=177
95 ;;SWS (FOR VAF10-7946) - GECO;100;SWS;Q-SWS.VA.GOV
96 ;;=7946
97 ;;SWS - GECO;100;RCS;Q-RHC.VA.GOV
98 ;;=18-8
99 ;;VOLUNTARY;100;VOL;Q-NST.VA.GOV
100 ;;=10^11^01^02^03^03R^03T^04^04D^05^08^09^10D
101 ;;WAGE SURVEY - GECO;100;WGE;Q-WGE.VA.GOV
102 ;;=WGE1^WGE2^WGE3^WGE4^WGE5
Note: See TracBrowser for help on using the repository browser.